Pascal İle Öğrenci Takip Programı Yazmak

**Conrad** · 02-04-2007, 01:14

Code:

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 adg ---> ');
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 adg ---> ',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 bumugg [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 adg ---> ',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 bumug [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('ggncellenecek bilgiler bunlarmig [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(' [Bu Linki Görüntüleyebilmeniz İçin Üye Olmanız Gerekiyor. ]');
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.

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder