Arkadaş listesi Kişilere ait bilgileri kayıt eder Kod: uses crt; type demir=record ad, soyad, okul, is, dogumtarih:string; adres, babaad, anaad, babames, anames:string; evtel, ceptel, email:string; kayno:integer; f:char; end; var dosya:file of demir; lis:demir; i, kod:integer; a:char; arama:string; ar:integer; procedure ekle; begin clrscr; assign ; reset ; kod:=ioresult; if kod<>0 then rewrite ; repeat clrscr; writeln; writeln; writeln; textcolor ; writeln ; writeln; writeln; textcolor ; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; gotoxy(29,7); readln ; if lis. ad='' then exit; gotoxy(29,9); readln ; gotoxy(29,11); readln ; gotoxy(29,13); readln ; gotoxy(29,15); readln ; gotoxy(29,17); readln ; gotoxy(29,19); readln ; gotoxy(29,21); readln ; gotoxy(29,23); readln ; gotoxy(29,25); readln ; gotoxy(29,27); readln ; gotoxy(29,29); readln ; gotoxy(29,31); readln ; lis. f:=' '; seek(dosya, filesize ; write ; until 1=2; end; procedure ara; begin clrscr; assign ; reset ; kod:=ioresult; if kod<>0 then rewrite ; repeat clrscr; writeln; writeln; writeln; textcolor ; writeln ; writeln; writeln; writeln; textcolor(14); write ; textcolor ; readln ; if arama='' then exit; for i:=0 to filesize -1 do begin clrscr; seek ; read ; if and then begin writeln; writeln; writeln; writeln ; writeln; writeln; textcolor ; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; readln; end; end; until 1=0; end; procedure silme; begin clrscr; assign ; reset ; kod:=ioresult; if kod<>0 then rewrite ; writeln; writeln; writeln; textcolor ; writeln ; writeln; writeln; writeln; textcolor(14); write ; textcolor ; readln ; if arama='' then exit; for i:=0 to filesize -1 do begin seek ; read ; if and then begin clrscr; writeln; writeln; writeln; writeln ; writeln; writeln; textcolor ; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; textcolor(198); writeln ; arama:=readkey; if arama='h' then silme; if arama='e' then begin lis. f:='s'; seek ; write ; end; writeln; textcolor ; writeln ; writeln; writeln ; a:=readkey; if a='e' then silme; end; end; end; procedure duzelt; begin clrscr; assign ; reset ; kod:=ioresult; if kod<>0 then rewrite ; writeln; writeln; textcolor ; writeln ; writeln; writeln; textcolor ; write ; readln ; for i:=0 to filesize -1 do begin seek ; read ; if and then begin writeln; writeln; writeln; writeln ; writeln; writeln; textcolor ; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln ; a:=readkey; if a='h' then duzelt; if a='e' then clrscr; writeln; writeln; writeln; textcolor ; writeln ; writeln; writeln; textcolor ; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; writeln; writeln ; gotoxy(29,7); readln ; if lis. ad='' then exit; gotoxy(29,9); readln ; gotoxy(29,11); readln ; gotoxy(29,13); readln ; gotoxy(29,15); readln ; gotoxy(29,17); readln ; gotoxy(29,19); readln ; gotoxy(29,21); readln ; gotoxy(29,23); readln ; gotoxy(29,25); readln ; gotoxy(29,27); readln ; gotoxy(29,29); readln ; gotoxy(29,31); readln ; seek ; write ; close ; end; end; end; procedure menu; begin repeat clrscr; textcolor(3); writeln ; writeln; writeln; delay(200); textcolor ; textcolor ; writeln ; writeln; writeln; textcolor ; delay(200); write ; gotoxy(40,7); textcolor ; write ; delay(200); gotoxy(34,9); textcolor ; write ; gotoxy(40,9); textcolor ; write ; delay(200); gotoxy(34,11); textcolor ; write ; gotoxy(40,11); textcolor ; write ; delay(200); gotoxy(34,13); textcolor ; write ; gotoxy(40,13); textcolor ; write ; writeln; writeln; writeln; textcolor ; writeln(' cikis icin tuslayin'); a:=readkey; if a='e' then ekle; if a='a' then ara; if a='s' then silme; if a='d' then duzelt; until a=