Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Удобочитаемая программаuses crt; const st = 25; {kolvo studentov} type student = record fio: string[40]; {fio} data_rozhd: record day: integer; {день} month: integer; {месяц} year: integer; {год} end; god_post: integer; {год поступленеия} group: string[8]; {группа} kurs: integer; {курс} ocenki: array [1.. 40] of integer; {оценки} sr_ball: real; {средний балл} end; var spisok:array [1..st] of student;
{ввод студентов} procedure vvod; var i,j,k,sr:integer; begin for i:= 1 to st do begin clrscr; writeln(i,' fio data rozhd god post group kurs ocenki'); gotoxy(1,2); readln(spisok[i].fio); gotoxy(18,2); readln(spisok[i].data_rozhd.day,spisok[i].data_rozhd.month,spisok[i].data_rozhd.year); gotoxy(31,2); readln(spisok[i].god_post); gotoxy(41,2); readln(spisok[i].group); gotoxy(50,2); readln(spisok[i].kurs); sr:=0; for j:=1 to spisok[i].kurs do begin gotoxy(56,1+j); for k:=1 to 4 do begin readln(spisok[i].ocenki[(j-1)*4+k]); gotoxy(56+2*(k),1+j); sr:=sr+spisok[i].ocenki[(j-1)*4+k]; end; end; {определение среднего балла} spisok[i].sr_ball:=sr/(spisok[i].kurs*4); end; end;
{вывод отсортированного списка студентов} procedure vyvod; var i,j,k,sr,str:integer; sredn:real; stud:student; begin for i:=1 to st-1 do for j:=i+1 to st do begin if spisok[j].sr_ball < spisok[i].sr_ball then begin stud:=spisok[i]; spisok[i]:=spisok[j]; spisok[j]:=stud; end; end; clrscr; str:=2; {вывод сведений о студенте} writeln(' fio data_rozhd god_post group kurs ocenki sr_ball'); for i:=1 to st do begin gotoxy(1,str); writeln(spisok[i].fio); gotoxy(18,str); writeln(spisok[i].data_rozhd.day,spisok[i].data_rozhd.month,spisok[i].data_rozhd.year); gotoxy(31,str); writeln(spisok[i].god_post); gotoxy(41,str); writeln(spisok[i].group); gotoxy(50,str); writeln(spisok[i].kurs); gotoxy(66,str); writeln(spisok[i].sr_ball:4:1); sredn:=sredn+spisok[i].sr_ball; for j:=1 to spisok[i].kurs do begin gotoxy(56,str); for k:=1 to 4 do begin writeln(spisok[i].ocenki[(j-1)*4+k]); gotoxy(56+2*(k),str); end; str:=str+1; end; end; gotoxy(1,str+1); writeln('sredniy ball: ',sredn/st:4:1); end; begin vvod; vyvod; end.
|