Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » список студентов
список студентов
Даны сведения о двухстах абитуриентах: фамилии и оценки, полученные на трех вступительных экзаменах. Напечатать список будущих студентов при условии, что норма приема — 40 человек, а зачисляются абитуриенты, набравшие наибольшую сумму баллов за три экзамена
const n=4;
type abiturient=record
familiy: string[15];
exz1: 1..5;
exz2: 1..5;
exz3: 1..5;
sum, sumend:integer;
end;
var abitur: array [1..5] of abiturient;
I, sum, j, t: integer;
begin
for I:=1 to n do

begin
writeln('abitur');
writeln ('ââåäèòå ôàìèëèþ ',I,'-îãî àáèòóðèåíòà');
readln (abitur[I].familiy);
writeln ('ââåäèòå îöåíêè çà 1-ûé ýêçàìåí ');
readln (abitur[I].exz1);
writeln ('ââåäèòå îöåíêè çà 2-îé ýêçàìåí ');
readln (abitur[I].exz2);
writeln ('ââåäèòå îöåíêè çà 3-èé ýêçàìåí ');
readln (abitur[I].exz3);
abitur[I].sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;
end;

for I:=1 to n - 1 do
for I:=i+1 to n do
if abitur[I].sum>abitur[I].sum then begin
t:=abitur[I].sum;
abitur[I].sum:=abitur[I].sum;
abitur[I].sum:=t;
end;

begin

writeln('Ôàìèëèÿ: ',abitur[I].familiy);
writeln('Ðåçóëüòàò ýêçàìåíîâ: ', abitur[I].sum);
writeln;
end;

end.
выводит лишь последнего абитуриента и сумму его оценок

1 | Автор: Марийка92 | 2011-03-04, 14:39   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » список студентов
Страница 1 из 11
Поиск: