Лабораторна робота № 7

Тема:

Записи

Мета:

Використання стуктурованого типу запису

Постановка задачі

Сформувати масив записів про: прізвище студента, ім’я; оцінки з фізики, математики, інформатики.

Обчислити кількість студентів, середній бал яких більший, або рівний “4”.

Текст програми

program Zap;

const n=2;

type TMarks=record

f:integer;

m:integer;

inf:integer;

end;

Tst=record

surname:string[15];

name:string[10];

marks: TMarks;

ser:real;

end;

Tgr=array[1..n] of Tst;

var gr:Tgr; k,i:integer;

begin

for i:=1 to n do

with gr[i],marks do begin

readln(surname);

readln(name);

readln(f);

readln(m);

readln(inf);end; K:=0;

for i:=1 to n do

with gr[i],Marks do begin

ser:=(f+m+inf)/3;

if gr[i].ser>=4 then

k:=k+1;writeln('ser',i,'=',ser:2:1); end;

writeln('k=',k);

end.

Результати виконання програми

Kas

Oleh

Top

Olena

ser1=4.7

ser2=3.3

k=1

Література

1. Барковский А.Б. Англо-русский словарь по программированию и информатике. – М.: Моковская международная школа переводчиков, 1992. – 335 с.

2. Грогоно П. Программирование на языке Паскаль: Пер. с англ. – М.: Мир, 1982. – 324 с.

3. Зуев Е.А. Система программирования Turbo Pascal. – М.: Радио и связь, 1991. – 288 с.

3. Рюттен Т., Франкен Г. Турбо Паскаль 6.0. – Киев: ГРИФОН, 1992. – 240 с.

4. Сердюченко В.Я. Розробка алгоритмів та програмування мовою TURBO PASCAL. Харків, Паритет, 1995.

5. Хершель Р. Турбо Паскаль / 2-е изд., перераб. - М.: МП ТПО «Квадрат», 1991. – 342 с.