Задача на паскале - есть ответ

Без имени, 199 просмотров

Задача.
Даны массивы:
P1,...,P20 - плановые задания по обьёму перевозок 20 водителей;
R1,...,R20 - реально выполненные обьёмы перевозок;
F1,...,F20 - фамилии водителей;
FOND - величина премиального фонда.
(Это мы вбиваем сами,по столбцам.)Далее:
Напечатать список премированных водителей с указанием суммы,начисленной пропорционально проценту перевополнения плана. Водителям,не выполневшим план перевозок,премия не начисляется.

Ответы:

Без имени

const
n = 20;
var
p, r: Array[0..n] of Integer;
f: Array[1..n] of String;
fond, i, z: Integer;
begin
p[0] := 0;
r[0] := 0;
for i := 1 to n do
begin
Write('f[', i, '] = '); ReadLn(f[i]);
Write('p[', i, '] = '); ReadLn(p[i]);
Write('r[', i, '] = '); ReadLn(r[i]);
WriteLn;
end;
Write('fond = '); ReadLn(fond);
for i := 1 to n do
begin
p[0] := p[0] + p[i];
r[0] := r[0] + r[i];
end;
if r[0] > p[0] then
begin
r[0] := r[0] - p[0];
WriteLn('r[0] = ', r[0]);
for i := 1 to n do
if r[i] > p[i] then
begin
z := Round(fond * ((r[i] - p[i]) / r[0]));
WriteLn(f[i], ' ', z);
end;
end;
ReadLn;
end.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.