Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Обработка записей

Автор: Stenmarsh 16.12.2008, 21:06

Даны массивы F1,..,F10-фамилии водителей
S1,..,S10-выручка за смену в рублях
за смену и PL -плановая выручка.
Напечатать списки водителей перевыполнивших план более чем на 5%.
Отдельно указать фамилии водителей, не выполнивших план.
Помогите пожалуйста а то я непонимаю как это делать.

Автор: NewDima 17.12.2008, 08:11

Код


const cnt = 10;
procedure PrintDrivers(DriversFamilies: array[1..cnt] of string; DriversCash: array[1..cnt]; PL: integer);
var i: integer;
begin
for i:=1 to cnt do
 if (DriversCash/PL*100>5) then writeln(DriversFamilies[i]);
end;