Programalama > PASCAL

Etiketler: öğrenci, takip

Ort. 0
Puan ver:
uses crt;
type
calisan=record
calisanisim,is,sinif,evtel,ceptel,adres:string;
yas:integer;
f:char;
end;
listeleme=record
s:array[1..40]of integer;
ismi:string;
f:char;
end;
notg=record
turk,mat:integer;
ad:string;
f:char;
end;
ogrenci=record
ogrencino:integer;
ad,dogumtarih,dogumyer,velisim,sube,sinif:string;
f:char;
end;
var
dosyal:file of listeleme;
liste:listeleme;
dosya:file of ogrenci;
kay:ogrenci;
dosyag:file of notg;
no:notg;
dosyac:file of calisan;
cal:calisan;
kisi,sec,i,kod:integer;
ara:string;
procedure ekle;
begin
assign(dosya,'c:/ogrenci.dat');
{$i-}reset(dosya);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosya);
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                          OGRENCI KAYIT MENUSU');
textcolor(14);
writeln;
writeln;
writeln;
writeln('       ogrenci ad  ---> ');
writeln;
writeln('       ogrenci no   ---> ');
writeln;
writeln('       sinifi       ---> ');
writeln;
writeln('       subesi       ---> ');
writeln;
writeln('       veli ismi    ---> ');
writeln;
writeln('       dogum yeri   ---> ');
writeln;
writeln('       dogum tarihi ---> ');
textcolor(white);
gotoxy(26,8);
readln(kay.ad);
if kay.ad='' then exit;
gotoxy(26,10);
readln(kay.ogrencino);
gotoxy(26,12);
readln(kay.sinif);
gotoxy(26,14);
readln(kay.sube);
gotoxy(26,16);
readln(kay.velisim);
gotoxy(26,18);
readln(kay.dogumyer);
gotoxy(26,20);
readln(kay.dogumtarih);
kay.f:='*';
seek(dosya,
filesize(dosya));
write(dosya,kay);
until 1=2;
end;
procedure arama;
begin
assign(dosya,'c:\ogrenci.dat');
{$i-}reset(dosya);{$i+}
kod:=IOresult;
if kod<>0 then writeln('dosya yok....' );
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       OGRENCI ARAMA MANUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('ARADIGINIZ OGRENCI ISMINI GIRIN ---> ');
textcolor(white);
readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.ad=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('         OGRENCININ BILGILERI');
textcolor(14);
writeln;
writeln;
writeln;
writeln('       ogrenci ad  ---> ',kay.ad);
writeln;
writeln('       ogrenci no   ---> ',kay.ogrencino);
writeln;
writeln('       sinifi       ---> ',kay.sinif);
writeln;
writeln('       subesi       ---> ',kay.sube);
writeln;
writeln('       veli ismi    ---> ',kay.velisim);
writeln;
writeln('       dogum yeri   ---> ',kay.dogumyer);
writeln;
writeln('       dogum tarihi ---> ',kay.dogumtarih);
readln;
end;
end;
until 1=2;
end;
procedure notgirisi;
begin
clrscr;
assign(dosyag,'c:/notlar.dat');
{$i-}reset(dosyag);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosyag);
repeat;
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('               NOT KAYIT GIRISI');
textcolor(14);
writeln;
writeln;
writeln('isim ---> ');
writeln;
writeln('       turkce    ---> ');
writeln;
writeln('       matematik ---> ');
gotoxy(10,7);
readln(no.ad);
if no.ad='' then exit;
gotoxy(23,9);
readln(no.turk);
gotoxy(23,11);
readln(no.mat);
no.f:='*';
seek(dosyag,filesize(dosyag));
write(dosyag,no);
until 8=9;
end;
procedure calisankayit;
begin
clrscr;
assign(dosyac,'c:/calisan.dat');
{$i-}reset(dosyac);{$i+};
kod:=ioresult;
if kod<>0 then rewrite(dosyac);
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       CALISAN KAYIT MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
writeln('    calisan isim ---> ');
writeln;
writeln('    isi          ---> ');
writeln;
writeln('    sinif        ---> ');
writeln;
writeln('    yas          ---> ');
writeln;
writeln('    ev tel       ---> ');
writeln;
writeln('    cep tel      ---> ');
writeln;
writeln('    adres        ---> ');
gotoxy(23,8);
readln(cal.calisanisim);
if cal.calisanisim='' then exit;
gotoxy(23,10);
readln(cal.is);
gotoxy(23,12);
readln(cal.sinif);
gotoxy(23,14);
readln(cal.yas);
gotoxy(23,16);
readln(cal.evtel);
gotoxy(23,18);
readln(cal.ceptel);
gotoxy(23,20);
readln(cal.adres);
cal.f:='*';
seek(dosyac,filesize(dosyac));
write(dosyac,cal);
until 28=14;
end;
procedure bilgisil;
begin
clrscr;
writeln;
writeln;
textcolor(white);
writeln('               KAYIT SILME MENUSU');
writeln;
writeln;
textcolor(14);
writeln('     <1> ---> Not Silme');
writeln;
writeln('     <2> ---> Ogrenci Silme');
writeln;
writeln('     <3> ---> Calisan Silme');
writeln;
write('seciminiz ---> ');
textcolor(white);
readln(sec);
if sec=1 then
begin
assign(dosyag,'c:/notlar.dat');
{$i-}reset(dosyag);{$i+}
kod:=ioresult;
if kod<>0 then writeln('dosya yok');
repeat
clrscr;
textcolor(14);
writeln;
writeln;
write('Silinecek Kisinin Ismini Girin --->');
readln(no.ad);
if no.ad='' then exit;
for i:=0 to filesize(dosyag)-1 do
begin
seek(dosyag,i);
read(dosyag,no);
if (no.f='*') and (no.ad=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('               NOT SORGULAMA MENUSU');
textcolor(14);
writeln;
writeln;
writeln('isim ---> ',no.ad);
writeln;
writeln('       turkce    ---> ',no.turk);
writeln;
writeln('       matematik ---> ',no.mat);
writeln;
textcolor(red);
writeln;
write('silinecek kayit bumu??  [E/H]');
readln(ara);
if ara='e' then
end;
end;
until 5=6;
end;
readln;
end;
procedure kayitguncelle;
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       KAYIT GUNCELLEME MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
writeln('       <1> Ogrenci Bilgileri');
writeln;
writeln('       <2> Not Bilgileri');
writeln;
writeln('       <3> Listeler');
writeln;
write('seciminiz ---> ');
readln(sec);
case sec of
1:
begin
assign(dosya,'c:\ogrenci.dat');
{$i-}reset(dosya);{$i+}
kod:=IOresult;
if kod<>0 then writeln('dosya yok....' );
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       KAYIT GUNCELLEME MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('ARADIGINIZ OGRENCI ISMINI GIRIN ---> ');
textcolor(white);
readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.ad=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('         KAYIT GUNCELLEME');
textcolor(14);
writeln;
writeln;
writeln;
writeln('       ogrenci ad  ---> ',kay.ad);
writeln;
writeln('       ogrenci no   ---> ',kay.ogrencino);
writeln;
writeln('       sinifi       ---> ',kay.sinif);
writeln;
writeln('       subesi       ---> ',kay.sube);
writeln;
writeln('       veli ismi    ---> ',kay.velisim);
writeln;
writeln('       dogum yeri   ---> ',kay.dogumyer);
writeln;
writeln('       dogum tarihi ---> ',kay.dogumtarih);
writeln;
textcolor(red);
write('aradiginiz kayit bumu?  [E/H]');
readln(ara);
if  ara='e' then
begin
textcolor(white);
gotoxy(26,8);
readln(kay.ad);
gotoxy(26,10);
readln(kay.ogrencino);
gotoxy(26,12);
readln(kay.sinif);
gotoxy(26,14);
readln(kay.sube);
gotoxy(26,16);
readln(kay.velisim);
gotoxy(26,18);
readln(kay.dogumyer);
gotoxy(26,20);
readln(kay.dogumtarih);
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
readln;
end;
end;
end;
end;
2:
begin
clrscr;
assign(dosyag,'c:/notlar.dat');
{$i-}reset(dosyag);{$i+}
kod:=ioresult;
if kod<>0 then writeln('dosya yok...');
writeln;
writeln;
writeln;
textcolor(white);
write('                 NOT SORGULAMA MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('ARADIGINIZ KISNIN ISMINI GIRIN ---> ');
readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosyag)-1 do
begin
seek(dosyag,i);
read(dosyag,no);
if (no.f='*') and (no.ad=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('               NOT GUNCELLEME MENUSU');
textcolor(14);
writeln;
writeln;
writeln('isim ---> ',no.ad);
writeln;
writeln('       turkce    ---> ',no.turk);
writeln;
writeln('       matematik ---> ',no.mat);
writeln;
textcolor(red);
write('gncellenecek bilgiler bunlarmi?   [E/H]');
textcolor(white);
readln(ara);
if ara='e' then
begin
gotoxy(11,7);
readln(no.ad);
gotoxy(23,9);
readln(no.turk);
gotoxy(23,11);
readln(no.mat);
no.f:='*';
seek(dosyag,filesize(dosyag));
write(dosyag,no);
readln;
end;
end;
end;
end;
end;
end;
procedure listekayit;
begin
clrscr;
assign(dosyal,'c:/listeler.dat');
{$i-}reset(dosyal);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosyal);
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('               LISTE KAYIT MENUSU');
writeln;
textcolor(14);
writeln('cikis=1');
write('sinifiniz kac kisilik ---> ');
readln(kisi);
if kisi=1 then exit;
gotoxy(1,8);
textcolor(white);
for i:=1 to (kisi) do
begin
write('  ',i,')');
readln(liste.s[i]);
liste.f:='*';
seek(dosyal,filesize(dosyal));
write(dosyal,liste);
end;
until 4=1;
end;
procedure calisanara;
begin
clrscr;
assign(dosyac,'c:/calisan.dat');
{$i-}reset(dosyac);{$i+}
kod:=ioresult;
if kod<>0 then writeln('dosya yok...');
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       CALISAN ARAMA');
writeln;
writeln;
writeln;
textcolor(14);
write('ARADIGINIZ KISININ ISMINI GIRIN ---> ');
textcolor(white);
readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosyac)-1 do
seek(dosyac,i);
read(dosyac,cal);
if (cal.f='*') and (cal.calisanisim=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                       CALISAN BILGILERI');
writeln;
textcolor(14);
writeln;
writeln;
writeln('    calisan isim ---> ',cal.calisanisim);
writeln;
writeln('    isi          ---> ',cal.is);
writeln;
writeln('    sinif        ---> ',cal.sinif);
writeln;
writeln('    yas          ---> ',cal.yas);
writeln;
writeln('    ev tel       ---> ',cal.evtel);
writeln;
writeln('    cep tel      ---> ',cal.ceptel);
writeln;
writeln('    adres        ---> ',cal.adres);
readln;
end;
until 41=28;
end;
procedure listeler;
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                !!!   OLUSTURULMUS HERHANGI BIR LISTE YOK  !!');
readln;
end;
procedure notgoster;
begin
clrscr;
assign(dosyag,'c:/notlar.dat');
{$i-}reset(dosyag);{$i+}
kod:=ioresult;
if kod<>0 then writeln('dosya yok...');
writeln;
writeln;
writeln;
textcolor(white);
write('                 NOT SORGULAMA MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('ARADIGINIZ KISNIN ISMINI GIRIN ---> ');
readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosyag)-1 do
begin
seek(dosyag,i);
read(dosyag,no);
if (no.f='*') and (no.ad=ara) then
begin
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('               NOT SORGULAMA MENUSU');
textcolor(14);
writeln;
writeln;
writeln('isim ---> ',no.ad);
writeln;
writeln('       turkce    ---> ',no.turk);
writeln;
writeln('       matematik ---> ',no.mat);
readln;
end;
end;
end;
begin
repeat
clrscr;
textcolor(3);
writeln;
writeln('   demirnazim@hotmail.com');
writeln;
writeln;
writeln;
textcolor(white);
writeln('                             OGRENCI TAKIP PROGRAMI');
textcolor(red);
writeln;
writeln('            !!!  biraz gelistirilirse okullarda kullanilabilir  !!!');
writeln;
writeln;
textcolor(14);
writeln('        <1>  Ogrenci Kayit');
writeln;
writeln('        <2>  Ogrenci Bilgileri');
writeln;
writeln('        <3>  Kayit Silme');
writeln;
writeln('        <4>  Not Girisi');
writeln;
writeln('        <5>  Not Bilgileri');
gotoxy(35,11);
write('        <6>  Bilgi Guncelleme');
gotoxy(35,13);
write('        <7>  Calisan Kayit');
gotoxy(35,15);
write('        <8>  Calisan Isimleri');
gotoxy(35,17);
write('        <9>  Liste Olusturma');
gotoxy(35,19);
write('        <10> Sinif Listeleri');
gotoxy(14,25);
textcolor(10);
writeln('NAZIM DEMIR  (Bilgisayar Teknolojisi Ve Programlama)');
textcolor(white);
gotoxy(9,23);
write('seciminiz ---> <..>');
write('               cikis icin (11) tusuna basin');
gotoxy(25,23);
readln(sec);
if sec=1 then ekle;
if sec=2 then arama;
if sec=3 then bilgisil;
if sec=4 then notgirisi;
if sec=5 then notgoster;
if seC=6 then kayitguncelle;
if sec=7 then calisankayit;
if sec=8 then calisanara;
if sec=9 then listekayit;
if sec=10 then listeler;
if sec=11 then exit;
until 1=5;
readln;
end.










nazım demİr
demirnazim@hotmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.