![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Тема:
Записи
Мета:
Використання стуктурованого типу запису
Постановка задачі
Сформувати масив записів про: прізвище студента, ім’я; оцінки з фізики, математики, інформатики.
Обчислити кількість студентів, середній бал яких більший, або рівний “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 с.
Дата публикования: 2014-11-04; Прочитано: 486 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!