Меню сайта

Задача №9

Составить программу, выводящую на экран расписание экзаменов и зачетов (предмет, вид отчетности, число, преподаватель).


Program zap_9-

Uses Crt-

Const n=10-

Type rasp = record

pred, vid,prep:string[20]-

data:string[8]-

end-

Var a : array[1..n] of rasp-

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите предмет ‘,I)-

Readln(pred)-

Writeln(‘ Вид отчетности’)-

Readln(vid)-

Writeln(‘Дата’)-

Readln(data)-

Writeln(‘ ФИО преподавателя’)-

Readln(prep)-

End-

Writeln(‘расписание экзаменов и зачетов’)-

for i:=1 to n do

with a[I] do

writeln (pred,’ ‘,vid,’ ‘,data,’ ‘,prep)-

Readln-

end.

Категория: Записи | Дата: 19.01.13

Меню раздела
Блок