Создать файл, содержащий сведения об ассортименте обуви в магазине фирмы. Каждая запись содержит следующую информацию: артикул, наименование, цена, количество. Артикул начинается в буквы "Д" для дамской обуви, "М" для мужской, "П" для детской. Количество записей произвольное.
Вывести в файл для печати следующую информацию :
а) о наличии и стоимости обуви указанного артикула и
б) о наличии и стоимости обуви по первой букве атикула.
Как редактировать прогу,чтобы она решала задачу ?
uses crt;
var
naim:string;
art:char;
price,kol:integer;
f:text;
s:string;
c:char;
i,n,max:integer;
begin
clrscr;
write('Введите полный путь к файлу : ');
readln(s);
assign(f,s);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
begin
write('Файл не доступен.Для завершения программы нажмите - ENTER. Для создания файла - 1 : ');
read©;
if c='1' then
begin
rewrite(f);
clrscr;
write('Введите количество записей : ');
readln(n);
for i:=1 to n do
begin
clrscr;
write('Артикул товара (д- жен, м- муж, п- дет) : ');
readln(art);
write('Наименование товара : ');
readln(naim);
write('Цена товара : ');
readln(price);
write('Количество товара : ');
readln(kol);
write(f,art);
write(f,' ');
writeln(f,price);
end;
close(f);
reset(f);
end
else
halt(1);
end;
