Меню сайта

Задача №11

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


Program zap_11-

Uses Crt-

Const n=6-

Type rasp = record

k,k1:byte-

Vrem,klas,pred:string[20]-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите номер урока ‘)-

Readln(k)-

Writeln(‘ Время начала урока’)-

Readln(vrem)-

Writeln(‘Класс’)-

Readln(klas)-

Writeln(‘Предмет’)-

Readln(pred)-

Writeln(‘N кабинета’)-

Readln(k1)-

End-

Writeln(‘Расписание занятий’)-

for i:=1 to n do

with a[I] do

writeln (k,’ ‘,vrem,’ ‘,klas,’ ‘,pred,’ ‘,k1)-

Readln-

end.

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

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