Programalama > PASCAL

uses crt;
var
ad:string;
a,c: integer;
tex:text;
ch:char;
procedure listele;
begin
assign(tex,'snav.dat');
rewrite(tex);
ch:='e';
repeat
write('isim girin>>'); readln(ad);
writeln(tex,ad);
writeln('devam etmek istiyormusunuz(e/h)>');
ch:=readkey;
until ch in['H','h'];
close(tex);
end;
 procedure sonuc;
begin
assign(tex,'snav.dat');
reset(tex);
clrscr;
writeln('       ad       ');
writeln('---------------');
while not eof(tex) do
begin
readln(tex,ad);
writeln(ad:20); end; end;
begin
clrscr;
writeln('1-bilgi giriŸi');
writeln('2-listeleme');
writeln('Seciminiz');
readln(a);
case a of
1:begin
listele; end;
2:begin
sonuc; end; end;
end.