Меню сайта

Задача №8

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


Program zap_8-

Uses Crt-

Const n=10-

Type kniga = record

Avt, name,izd:string[20]-

God:integer-

Stoim:real-

end-

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

i :byte-

avtor:string-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите автора ‘,I)-

Readln(Avt)-

Writeln(‘ Название книги’)-

Readln(name)-

Writeln(‘Издательство’)-

Readln(izd)-

Writeln(‘Год издания’)-

Readln(god)-

Writeln(‘Стоимость’)-

Readln(stoim)-

end-

Writeln(‘введите автора’)-

Readln(avtor)-

for i:=1 to n do

with a[I] do

if avt=avtor then writeln (avt,’ ‘,name,’ ‘,izd,’ ‘,god, ‘ ‘,stoim:4:2)-

Readln-

end.

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

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