Цитата:
Сообщение от TpaXmopucm
пытался разобраться переделывая другой код , но ничего не получается плиз помогите пожалуйста .... завтра ответить нужно!
|
Ну Вы и зануда, сударь! Ведь вот ну только что проходила аналогичная задачка:
Помогите решить задачу Pascal , переделки - плёвые, ну ничего не желаем делать!!! Всё давайте за меня, а я пошел. И не врите, что Вы там что-то пытались, ничего Вы не пытались, иначе было бы что выложить и показать. Лень, наглость и полная безответственность. Прежде всего - перед своим же будущим.
Извините за резкость - накипело!
Ладно, вот вам листинг для тупого бездумного перекатывания:
Код:
const
N=5;
var
School:Array[1..N] of Record
Number:Word;
Year:Word;
Graduated:Word;
Matriculated:Word;
end;
i,i0:integer;
Rate:Real;
Begin
Rate:=0;
For i:=1 to N do
With School[i] do
begin
Writeln(i,' school');
Write('Number: ');
Readln(Number);
Write('Year: ');
Readln(Year) ;
Write('Graduated: ');
Readln(Graduated);
Write('Matriculated: ');
Readln(Matriculated);
Writeln;
If Matriculated/Graduated>Rate then
begin
i0:=i;
Rate:=Matriculated/Graduated;
end;
end;
Writeln('Best school:');
With School[i0] do
begin
Writeln('Number: ',Number);
Writeln('Year: ',Year);
Writeln('Graduated: ',Graduated);
Writeln('Matriculated: ',Matriculated);
end;
readln;
End.