Меню сайта

Задача №15

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


Program zap_15-

Uses Crt-

Const n=10-

Type opis = record

k:integer-

name,dat1:string[20]-

end-

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

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

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

Readln(k)-

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

Readln(name)-

Writeln(‘ Введите дату учета’)-

Readln(dat1)-

End-

Writeln(‘Инвентаризационная опись’)-

for i:=1 to n do

with a[I] do

writeln (k,’ ‘,name,’ ‘,dat1)-

Readln-

end.

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

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