program zapisi;
uses crt;
type
data=record
rel,plan:real {реальная и плановая норма}
end;
var i:integer;
predp:array[1..10] of data; rezult:real;
begin
clrscr;
writeln('zapolnite');
for i:=1 to 10 do begin {заполняем предприятия}
writeln(i,' predp');
write('vved rel ');
readln(predp.rel);
write('vved plan ');
read(predp.plan);
end;
for i:=1 to 10 do {ищем недостачи}
if predp.rel<predp.plan then {если реальное ментше планового}
begin
rezult:=(predp.plan-predp.rel)*100/predp.plan; {считаем процент}
write(i,' pred '); {ввыводим номер придпрятия}
writeln('nedostacha ',rezult:10:3); {выводим недостача}
end;
readln;
end.
Хитрая задача в Turbo Pascal
Даны цифры, плановые и реальные показатели грузооборота 10 предприятий. Вывести таблицу с предприятиями, не выполнившими план, с указанием процента недовыполнения плана.
ничего хитрого если разобратся :)
создаем структуру в которой две переменные типа риал. потом массив из 10 таких струтур. циклом вводим 2 показания каждого придприятия. следуєщий цикл проверяет реальній показатель, если он меньше запланированого то выводит номер этого предприятеля, его показатели и высчитует по формуле: икс=(п-р)100/п, где икс-процент недовыполнения, п-планированые, р-реальные.
создаем структуру в которой две переменные типа риал. потом массив из 10 таких струтур. циклом вводим 2 показания каждого придприятия. следуєщий цикл проверяет реальній показатель, если он меньше запланированого то выводит номер этого предприятеля, его показатели и высчитует по формуле: икс=(п-р)100/п, где икс-процент недовыполнения, п-планированые, р-реальные.
Уважаемый, а вы бы не могли написать данную программу на языке Turbo Pascal!? Желательно полностью и просто, буду благодарен!