Паскаль / курсовые / Курсовая Pascal Компьютерная фирма / PROSMOTR

Program mm;
Uses crt,graph;
Const
norm=$17; {梥⠭Ґўл¤Ґ«Ґ­­®Ј® Їг­Єв }
sel=$6; {梥⠢뤥«Ґ­­®Ј® Їг­Єв  }
k=6;
type
tovar=record
regnom:integer;{ॣЁбва жЁ®­­л© ­®¬Ґа}
name:string;{­ Ё¬Ґ­®ў ­ЁҐ}
haracter:char;{е аҐЄвҐаЁбвЁЄЁ}
data:string; {¤ в  Ё§Ј®в®ў«Ґ­Ёп}
garant:string; {ба®Є Ј а ­вЁЁ}
cenaopt:real; {®Їв®ў п 業 }
cenarozn:real; {१­Ёз­ п 業 }
end;
type
ps=^dan;
dan=record
regnom:integer;{ॣЁбва жЁ®­­л© ­®¬Ґа}
name:string;{­ Ё¬Ґ­®ў ­ЁҐ}
haracter:char;{е аҐЄвҐаЁбвЁЄЁ}
data:string; {¤ в  Ё§Ј®в®ў«Ґ­Ёп}
garant:string; {ба®Є Ј а ­вЁЁ}
cenaopt:real; {®Їв®ў п 業 }
cenarozn:real; {१­Ёз­ п 業 }
l:ps;
end;
{-------------а §¤Ґ« ЇҐаҐ¬Ґ­­ле------------------------------}
Var
menu:array[1 .. k] of string[20]; {­ §ў ­Ёп Їг­Єв®ў ¬Ґ­о}
punkt:integer; {­®¬Ґа ўҐ¤Ґ«Ґ­­®Ј® Їг­Єв }
ch:char; {ўўҐ¤Ґ­­л© бЁ¬ў®«}
x,y:integer; {Є®®а¤Ё­ вл ЇҐаў®© бва®ЄЁ ¬Ґ­о}
baza:file of tovar; {ЇҐаҐ¬Ґ­­ п д ©«  б Ў §®©}
buf:tovar;
top,t,n:ps;
begin
clrscr;
assign(baza,'c:\Єгаб з\firma.dat'); {Ё­Ё «Ё§ жЁп д ©« }
reset(baza);
top^.l:=nil;
repeat
read(baza,buf);
if top=nil then begin
new(n);
n^.regnom:=buf.regnom;
n^.name:=buf.name;
n^.haracter:=buf.haracter;
n^.data:=buf.data;
n^.garant:=buf.garant;
n^.cenaopt:=buf.cenaopt;
n^.cenarozn:=buf.cenarozn;
top:=n; {бв ўЁ¬ ўҐаиЁ­г ­  ­®ўл© н«Ґ¬Ґ­в}
t:=top;
t^.l:=nil;
end
else begin
new(n);
n^.regnom:=buf.regnom;
n^.name:=buf.name;
n^.haracter:=buf.haracter;
n^.data:=buf.data;
n^.garant:=buf.garant;
n^.cenaopt:=buf.cenaopt;
n^.cenarozn:=buf.cenarozn;
n^.l:=nil;
t^.l:=n;
t:=n;
end;
until eof(baza);
t:=top;
while t<>nil do begin
writeln('Ќ Ё¬Ґ­®ў ­ЁҐ в®ў а  ',t^.name);
writeln('ЋЇв®ў п 業  ',t^.cenaopt:8:3);
t:=t^.l;
end;
textattr:=norm;
readln;
end.