Записи (решебник)
Решение типовых задач по теме «процедуры и функции». Решение производилось с использованием Free Pascal, в качестве IDE использовался Geany. Задачи из сборника Абрамова отмечены соответствующим номером.
Из ведомости 3-х студентов с их оценками (порядковый номер, Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Type wed=record {Тип wed включает 3 поля: n, fio, bal} n:integer; fio:string[40] ; bal:array [1..3] of integer {Поле bal – массив из 3 оценок } end; Var spisok:wed; {Запись spicok типа wed} i,j,kol,s:integer; sr:real; BEGIN kol:=0; {kol- количество отличников} With spisok do {with присоединяет имя записи spisok ко всем } For i:=1 to 3 do { полям внутри цикла For по i } begin n:=i; Write (' Введите ФИО » ', i ,' '); Readln (fio); s:=0; For j:= 1 to 3 do begin write (' Введите оценку » '); readln (bal[j]); s:=s+bal[j]; end; if s=15 then kol:=kol+1; {подсчет количества отличников} sr:=s/3; writeln(fio, ', Средний бал = ', sr:4:1); end; writeln('Количество отличников = ', kol); END. |