PASCALik

Найти редкие книги в библиотеке

Файл комбинированного типа содержит список книг библиотеки: название книги, автор, количество экземпляров, цену. Вывести список тех книг, экземпляров которых меньше, чем 3.

Program knigi3;
Type
bib = Record
name : String[50];
avtor: String[50];
kol : integer;
cena : real;
End;
Var
f : file of bib;
p : bib;
ch:char;
b :boolean;

Begin
b:=false;
Assign(F,’D:\pascal\Test1.txt’);
try
reset(f);
except
b:=true;
writeln(’Nenaiden fail’);
rewrite(f);
{zapolnim}
writeln(’dobavim zapis? y/n’);
read(ch);
while upcase(ch)=’Y’ do
begin
writeln(’name - ‘);
Read(p.name);
writeln(’avtor - ‘);
Read(p.avtor);
writeln(’kol - ‘);
read(p.kol);
writeln(’cena - ‘);
read(p.cena);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
while not eof(f) do begin
read(f,p);
if p.kol<3 then writeln(p.name,’ ‘,p.avtor,’ ‘,p.kol,’ ‘,p.cena:6:2)
end;
close(f);
End.

Теги: автор, библиотека, книга, количество, комбинированный, файл, фильтр, цена

Количество книг в библиотеке

Файл комбинированного типа содержит список книг библиотеки, а именно: название книги, автора, количество экземпляров, цену. Подсчитать общее количество книг в библиотеке.

Program kniga;
Type
bib = Record
name : String[50];
avtor: String[50];
kol : integer;
cena : real;
End;
Var
f : file of bib;
p : bib;
ch:char;
b :boolean;
sum:integer;
Begin
b:=false;
Assign(F,’D:\pascal\Test1.txt’);
try
reset(f);
except
b:=true;
writeln(’Nenaiden fail’);
rewrite(f);
{zapolnim}
writeln(’dobavim zapis? y/n’);
read(ch);
while upcase(ch)=’Y’ do
begin
writeln(’name - ‘);
Read(p.name);
writeln(’avtor - ‘);
Read(p.avtor);
writeln(’kol - ‘);
read(p.kol);
writeln(’cena - ‘);
read(p.cena);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
sum:=0;
while not eof(f) do
begin
read(f,p);
sum:=sum+p.kol;
end;
close(f);
writeln(sum);
End.

Теги: автор, библиотека, книга, количество, комбинированный, файл, фильтр, цена