Меню сайта

Задача №16

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


Program zap_16-

Uses Crt-

Const n=10-

Type sotrud = record

Fio,dol,dat1:string[20]-

zar:real-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите ФИО’)-

Readln(fio)-

Writeln(‘ Введите должность’)-

Readln(dol)-

Writeln(‘ Введите дату рождения’)-

Readln(dat1)-

Writeln(‘ Введите зарплату’)-

Readln(zar)-

End-

Writeln(‘Ведомость выдачи заработной платы’)-

for i:=1 to n do

with a[I] do

writeln (fio,’ ‘,dol,’ ‘,dat1,’ ‘,zar:4:2)-

Readln-

end.

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

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