Меню сайта

Задача №14

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


Program zap_14-

Uses Crt-

Const n=10-

Type grafik = record

Fio,dat1,dat2:string[20]-

kol:integer-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите фамилию, имя, отчество ‘)-

Readln(fio)-

Writeln(‘ Введите дату начала отпуска’)-

Readln(dat1)-

Writeln(‘ Введите дату окончания отпуска’)-

Readln(dat2)-

Writeln(‘ Введите количество’)-

Readln(kol)-

End-

Writeln(‘График отпусков’)-

for i:=1 to n do

with a[I] do

writeln (fio,’ ‘,dat1,’ ‘,dat2,’ ‘,kol)-

Readln-

end.

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

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