помогите плз! Нужно переделать эту программу с использованием нетипизированных файлов.:
| Код | Program MAGAZ;
Uses crt;
TYPE
Napitok = Record
name:string;
kol:integer;
gazirovanost: (s_gazom,bez_gaza);
Cena:integer;
kompania:string
end;
Tmas=array[1..50]of Napitok;
var
cv:Tmas;
n,w:byte;
procedure Zagr_iz_Fail(FileName:string);
var f:file of Napitok;
begin
assign(f,fileName);
reset(f);
n:=0;
while (not eof(f)) and (n <> 50) do
begin
inc(n);
read(f,cv[n]);
end;
close(f);
end;
procedure Sohr_V_Fail(FileName:string);
var f:file of Napitok;
i:integer;
begin
assign(f,fileName);
rewrite(f);
for i:=1 to n do
write(f, cv[i]);
Close(f);
end;
procedure vvod(var n:byte;var m:Tmas);
var s:byte; c:char;
i:Napitok;
begin
n:=0;
repeat n:=n+1;
with m[n] do
begin
clrscr;
textcolor(10);
write('Название напитка=');readln(Name);
write('количество=');readln(kol);
write('газированность= (0-без газа*; 1-с газом)');readln(s);
if s=0 then gazirovanost:=bez_gaza else gazirovanost:=s_gazom;
write('имя компании производителя '); readln(kompania);
write('Цена');readln(Cena);
writeln('„Для выхода в меню программы наэмите Esc, а для продолжения нажмите Enter' );
end;
c:=readkey;
until c=#27;
end;
procedure print(n:byte;var m:Tmas);
var i:byte;
begin
clrscr;
writeln('Прейскурант на напитки');
writeln;
writeln('------------------------------------------------------');
writeln('|Название |Количество|Газированность|Кампания |Цена*|');
writeln('------------------------------------------------------');
for i:=1 to n do
begin
with m[i] do
begin
gotoXY(1,whereY); write('|',Name);
gotoXY(11,whereY);write('|',kol);
gotoXY(22,whereY); if gazirovanost=bez_gaza then write('|без газа*') else write('|с газом');
gotoXY(37,whereY); write('|',kompania);
gotoXY(49,whereY); write('|',Cena);
gotoXY(54,whereY); write('|');
end;
writeln;
writeln('-------------------------------------------------------');
end;
end;
Begin {Osnovnaia proga}
clrscr;
w:=0;
while w<4 do begin
textcolor(12);
writeln('ЊҐ*о Їа®Ја*¬¬л');
writeln('1:ввод данных');
writeln('2:Вывод данных на экран*');
Writeln('3:Загрузка из файла');
Writeln('4:Сохранение файла');
writeln('5:Выход');
readln(w);
case w of
1:vvod(n,cv);
2: print(n,cv);
3:Zagr_iz_Fail('Napitok.dat');
4:Sohr_V_Fail('Napitok.dat');
end;
end;
readln;
end. |
|