{**********YAZAN GÜRKAY ESER BERGAMA E.M.L İLSESİ TEKNİK LİSE 10/T SINIFI*********}
uses crt;
var
adi,ad,soyad,adres:string[30];
dogum,tel,is,cep:string[40];
anne,baba,ev,ilce:string[30];
dd,gd:text;
ch,sil,t,h:char;
bay:integer;
yaz:boolean;
procedure ogrenci_bilgi; forward;
procedure menu ; forward;
procedure devam;forward;
procedure ucret;forward;
procedure oos;forward;
procedure dene;forward;
procedure kayit;forward;
procedure bul;forward;
procedure delete;forward;
procedure devamsiz;forward;
procedure naz;forward;
procedure bil;forward;
procedure ucret_olus;forward;
procedure ucret_ode;forward;
procedure ucret_yaz;forward;
procedure oss_gir;forward;
procedure dene_olus;forward;
procedure dene_gir;forward;
procedure dene_yaz;forward;
procedure ekran;
begin
clrscr;
gotoxy(30,6);
highvideo;
write(''''DERSANE KAYITLAR˜'''');
end;
{********************MENU************************* ****}
procedure menu;
begin
clrscr;
ekran;
textbackground(0);
gotoxy(30,8); write (''''1.™GRENCI BILGILERI...'''');
gotoxy(30,10); write(''''2.DEVAMSIZLIKLAR...'''');
gotoxy(30,12); write(''''3.šCRET TAKIBI...'''');
gotoxy(30,14); write(''''4.™SS PUAN HESAPLARI...'''');
gotoxy(30,16); write(''''5.™SS DENEME VE ORTALAMASI...'''');
gotoxy(30,18); write(''''6.€IKIž...'''');
gotoxy(30,21); write(''''SE€IMINIZI YAPIN...'''');
gotoxy(47,21); write('''' '''');
gotoxy(47,21);
t:=readkey;
case t of
''''1'''':begin ogrenci_bilgi;menu;end;
''''2'''':begin devam;menu;end;
''''3'''':begin ucret;menu;end;
''''4'''':begin oos;menu;end;
''''5'''':begin dene;menu;end;
''''6'''':begin halt end;
end;
end;
{*************”grenci bilgileri*****************************}
procedure ogrenci_bilgi;
begin
clrscr;
gotoxy(30,6);
highvideo;
write(''''™GRENCI BILGILERI'''');
gotoxy(30,8); write(''''1.™GRENC˜ KAYDI...'''');
gotoxy(30,10); write(''''2.™GRENC˜ BUL...'''');
gotoxy(30,12); write(''''3.™GRENC˜ SIL...'''');
gotoxy(30,14); write(''''4.ANA MENU...'''');
gotoxy(30,17); write(''''SE€IMINIZI YAPIN...'''');
gotoxy(47,17); write('''' '''');
gotoxy(47,17);
ch:=readkey;
case ch of
''''1'''':begin kayit;ogrenci_bilgi;end;
''''2'''':begin bul;ogrenci_bilgi;end;
''''3'''':begin delete;ogrenci_bilgi;end;
''''4'''':begin menu;end;
end;
end;
{****************devamsizlik********************** *******}
procedure devam;
begin
clrscr;
gotoxy(30,6);
highvideo;
write(''''DEVAMSIZLIKLAR'''');
gotoxy(30,8 );write(''''1.DOSYA OLUSTUR...'''');
gotoxy(30,10); write(''''2.DEVAMSIZLIK EKLE...'''');
gotoxy(30,12); write(''''3.DEVAMSIZLIKLARA BAK...'''');
gotoxy(30,14);write(''''4.ANA MENU...'''');
gotoxy(30,16);write(''''SE€IMINIZI YAPIN... '''');
gotoxy(47,16);write('''' '''');
gotoxy(47,16);
gotoxy(47,16);
ch:=readkey;
case ch of
''''1'''':begin devamsiz;devam;end;
''''2'''':begin bil;devam;end;
''''3'''':begin naz;devam;end;
''''4'''':begin menu;end;
end;
end;
{***************?cret tak?d?***********************}
procedure ucret;
begin
clrscr;
gotoxy(30,6);
highvideo;
write(''''š€RET B˜LG˜LER˜'''');
gotoxy(30,8);write(''''1.DOSYA OLUSTUR..'''');
gotoxy(30,10); write(''''2.š€RET G˜R˜S˜...'''');
gotoxy(30,12); write(''''3.š€RETLERE BAK...'''');
gotoxy(30,14);write(''''4.ANA MENU...'''');
gotoxy(30,16);write(''''SE€IMINIZI YAPIN... '''');
gotoxy(47,16);write('''' '''');
gotoxy(47,16);
gotoxy(47,16);
ch:=readkey;
case ch of
''''1'''':begin ucret_olus ;ucret;end;
''''2'''':begin ucret_ode;ucret;end;
''''3'''':begin ucret_yaz;;ucret;end;
''''4'''':begin menu;end;
end;
end;
{****************””spuanlar?********************** ***}
procedure oos;
begin
clrscr;
gotoxy(30,6);
highvideo;
write(''''™™S PUANLARI'''');
gotoxy(30,8); write(''''1.™™S PUAN HESAPLARI...'''');
gotoxy(30,10);write(''''2.ANA MENU...'''');
gotoxy(30,12);write(''''SE€IMINIZI YAPIN... '''');
gotoxy(47,12);write('''' '''');
gotoxy(47,12);
gotoxy(47,12);
ch:=readkey;
case ch of
''''1'''':begin oss_gir;end;
''''2'''':begin menu;end;
end;
end;
{*******************deneme ve ortalamas?****************************}
procedure dene;
begin
clrscr;
gotoxy(30,4);
highvideo;
write(''''DENEME VE ORTALAMALAR'''');
gotoxy(30,6);write(''''1.DOSYA OLUSTUR..'''');
gotoxy(30,8); write(''''2.PUAN GIRISI..'''');
gotoxy(30,10); write(''''3.™GRENC˜ DURUMU...'''');
gotoxy(30,12);write(''''4.ANA MENU...'''');
gotoxy(30,14);write(''''SE€IMINIZI YAPIN... '''');
gotoxy(47,14);write('''' '''');
gotoxy(47,14);
gotoxy(47,14);
ch:=readkey;
case ch of
''''1'''':begin dene_olus;end;
''''2'''':begin dene_gir;end;
''''3'''':begin dene_yaz;end;
''''4'''':begin menu;end;
end;
end;
{*********************‡?k?Ÿ*********************** ***}
procedure exit;
begin
halt;
end;
{*****************kay?t*************************** **************}
procedure kayit;
begin
clrscr;
assign(dd,''''c:\dershane.bat'''');
rewrite(dd);
ch:=''''e'''';
repeat
writeln(''''˜S˜M...:'''');writeln;
writeln(''''SOYAD...:'''');writeln;
writeln(''''DO¦UN TARIHI...:'''');writeln;
writeln(''''BABA ADI...:'''');writeln;
writeln(''''ANNE ADI...:'''');writeln;
writeln(''''EV TEL...:'''');writeln;
writeln(''''CEP TEL...:'''');writeln;
writeln(''''˜L€E...:'''');writeln;
writeln(''''ADRES...:'''');writeln;
window(20,17,35,17);textbackground(1);clrscr;
window(20,15,35,15);textbackground(1);clrscr;
window(20,13,35,13);textbackground(1);clrscr;
window(20,11,35,11);textbackground(1);clrscr;
window(20,9,35,9);textbackground(1);clrscr;
window(20,7,35,7);textbackground(1);clrscr;
window(20,5,35,5);textbackground(1);clrscr;
window(20,3,35,3);textbackground(1);clrscr;
window(20,1,35,1);textbackground(1);clrscr;
window(20,1,35,2);gotoxy(20,1);readln(ad);
window(20,3,35,4);gotoxy(20,3);readln(soyad);
window(20,5,35,6);gotoxy(20,5);readln(dogum);
window(20,7,35,8);gotoxy(20,7);readln(baba);
window(20,9,35,10);gotoxy(20,9);readln(anne);
window(20,11,35,12);gotoxy(20,11);readln(ev);
window(20,13,35,14);gotoxy(20,13);readln(cep);
window(20,15,35,16);gotoxy(20,15);readln(ilce);
window(20,17,35,18);gotoxy(20,17);readln(adres);
readln;
writeln(dd,ad);
writeln(dd,soyad);
writeln(dd,dogum);
writeln(dd,baba);
writeln(dd,anne);
writeln(dd,ev);
writeln(dd,cep);
writeln(dd,ilce);
writeln(dd,adres);
writeln;
window(1,20,70,22);gotoxy(5,17);write(''''DEVAM ETMEK ˜STERM˜S˜N˜Z (E/H)'''');
textbackground(0);
window(1,1,80,25);
ch:=readkey;
until ch in[''''h'''',''''H''''];
close(dd);
menu;
end;
{*************************”grenci bul***********************************}
procedure bul;
begin
clrscr;
write(''''ARANAN ADI G˜R˜N...:''''); readln(adi);
assign(dd,''''c:\dershane.bat'''');
reset(dd);
clrscr;
writeln('''' ADI SOYADI DO¦UM TAR. BABA ADI ANNE ADI EV TEL. '''');
writeln(''''______ ________ _____________ ____________ _________ __________ '''');
while not eof(dd) do
begin
readln(dd,ad);
readln(dd,soyad);
readln(dd,dogum);
readln(dd,baba);
readln(dd,anne);
readln(dd,ev);
if adi=ad then
writeln(ad:6,soyad:8,dogum:12,baba:16,anne:10,ev:1 2);
end;
readln;
close(dd);
readln;
end;
{****************”grenci sil*********************************************** }
procedure delete;
begin
clrscr;
assign(dd,''''c:\dershane.bat'''');
assign(gd,''''gecici.bat'''');
reset(dd);
rewrite(gd);
writeln(''''S˜L˜NECEK ADI G˜R˜N....>''''); readln(adi);
bay:=0;
begin
yaz:=true;
readln(dd,ad); readln(dd,soyad); readln(dd,dogum);readln(dd,baba);readln(dd,anne); readln(dd,ev);
if adi=ad then
begin
readln(dd,ad);
readln(dd,soyad);
readln(dd,dogum);
readln(dd,baba);
readln(dd,anne);
readln(dd,ev);
writeln('''' ADI SOYADI DO¦UM TAR. BABA ADI ANNE ADI EV TEL. '''');
writeln(''''______ ________ _____________ ____________ _________ __________ '''');
if adi=ad then
begin
bay:=1;
writeln(ad:6,soyad:8,dogum:12,baba:16,anne:10,ev:1 2);
write(''''S˜LMEK ˜€˜N (S)'''');
readln(sil);
if(sil=''''s'''') or (sil=''''S'''') then
yaz:=false;
end;
if yaz then
begin;
writeln(gd,ad);
writeln(gd,soyad);
writeln(gd,dogum);
writeln(gd,baba);
writeln(gd,anne);
writeln(gd,ev);
writeln(gd,cep);
writeln(gd,ilce);
writeln(gd,adres);
end
else
writeln(''''aranan kay?t yok...'''');
end;
close(dd);
close(gd);
if bay=0 then
begin
writeln('''' kay?t silindi..'''');
erase(dd);
readln;
end
else
begin
erase(dd);
rename(gd,''''c:\.bat'''');
readln;
end;
end;
end;
{************************devams?zl?klar*********** ************************}
procedure devamsiz;
var
dd:text;
ch:char;
ogrenciler:string;
label
son;
begin
clrscr;
writeln(''''daha ”nce kullan?c? oluŸturmus iseniz bu b”l?m? kullanmay?n?z!!!'''');
writeln(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
if ch in [''''H'''',''''h''''] then goto son;
write(''''”grencinin ad?n? ve soyad?n? giriniz...:'''');readln(ogrenciler);
assign(dd,ogrenciler);
rewrite(dd);
writeln(''''dosya olusturuldu'''');
close(dd);
readln;
son:
end;
{-------------------------bilgi ekler-------------------------}
procedure bil;
var
kullanici,yok:string[20];
tarih:string;
ch:char;
dd:text;
begin
clrscr;
write(''''”grencin ad?n? ve soyad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
append(dd);
ch:=''''e'''';
repeat
clrscr;
write(''''bug?n derste yokmudu yok/var...:'''');readln(yok);
write(''''tarih.....'''');readln(tarih);
writeln(dd,yok:18);
writeln(dd,tarih:15);
write(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
until ch in [''''H'''',''''h''''];
close(dd);
end;
{-----------------------yaz-------------------------}
procedure naz;
var
kullanici:string[25];
yok:string;
tarih:string;
dd:text;
begin
clrscr;
write(''''kullan?c? ad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
reset(dd);
clrscr;
reset(dd);
writeln('''' ADI VE SOYADI DEVAMSIZLIK GšNLER˜ TAR˜H˜'''');
writeln(''''_______________ ___________________ _______'''');
while not eof(dd) do
begin
readln(dd,yok);
readln(dd,tarih);
writeln(kullanici:13,yok:15,tarih:10);
end;
close(dd);
readln;
end;
{******************?cret************************** *********}
procedure ucret_olus ;
var
dd:text;
ch:char;
ogrenciler:string;
label
son;
begin
clrscr;
writeln(''''daha ”nce kullan?c? oluŸturmus iseniz bu b”l?m? kullanmay?n?z!!!'''');
writeln(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
if ch in [''''H'''',''''h''''] then goto son;
write(''''”grencinin ad?n? ve soyad?n? giriniz...:'''');readln(ogrenciler);
assign(dd,ogrenciler);
rewrite(dd);
writeln(''''dosya olusturuldu'''');
close(dd);
readln;
son:
end;
{-------------------------bilgi ekler-------------------------}
procedure ucret_ode;
var
kullanici,odedi:string[20];
tarih:string;
ch:char;
dd:text;
begin
clrscr;
write(''''”grencin ad?n? ve soyad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
append(dd);
ch:=''''e'''';
repeat
clrscr;
write(''''bu ay?n paras?n? ”dedini evet/hay?r...:'''');readln(odedi);
write(''''tarihi.....'''');readln(tarih);
writeln(dd,odedi:18);
writeln(dd,tarih:15);
write(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
until ch in [''''H'''',''''h''''];
close(dd);
end;
{-----------------------yaz-------------------------}
procedure ucret_yaz;
var
kullanici:string[25];
odedi:string;
tarih:string;
dd:text;
begin
clrscr;
write(''''kullan?c? ad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
reset(dd);
clrscr;
reset(dd);
writeln('''' ADI VE SOYADI ™DED˜ TAR˜H˜'''');
writeln(''''_______________ ___________ __________'''');
while not eof(dd) do
begin
readln(dd,odedi);
readln(dd,tarih);
writeln(kullanici:8,odedi:11,tarih:8);
end;
close(dd);
readln;
end;
{*******************”ss puan hesab?*******************************}
procedure oss_gir;
var
dtur,ytur:integer;
dfen,yfen:integer;
dmat,ymat:integer;
dsos,ysos:integer;
ntur,nfen:integer;
nmat,nsos:integer;
a,b,c,d,j:real;
e,f,g,h:real;
begin
clrscr;
write(''''t?rk‡e do§ru say?s?n? girin.......:'''');readln(dtur);
write(''''fen do§ru say?s?n? girin..........:'''');readln(dfen);
write(''''matamatik do§ru say?s?n? giriniz..:'''');readln(dmat);
write(''''sosyal do§ru say?s?n? giriniz.....:'''');readln(dsos);
write(''''t?rk‡e yanl?Ÿ say?s?n? girin.......:'''');readln(ytur);
write(''''fen yanl?Ÿ say?s?n? girin..........:'''');readln(yfen);
write(''''matamatik yanl?Ÿ say?s?n? giriniz..:'''');readln(ymat);
write(''''sosyal yanl?Ÿ say?s?n? giriniz.....:'''');readln(ysos);
a:=ytur div 3;b:=yfen div 3;c:=ymat div 3;d:=ysos div 3;
e:=dtur-a; f:=dfen-b; g:=dmat-c; h:=dsos-d;
writeln(''''t?rk‡e net...:'''',e:3:0,'''' fen net...:'''',f:3:0,'''''''');
writeln(''''matamatik net...:'''',g:3:0,'''' sosyal net..:'''',h:3:0,'''''''');
j:=488.361+(g*7.864)+(f*7.943)+(e*5.320)+(h*1.466) ;
write(''''”ss puan?....:'''',j:3:3);
readln;
end;
{*******************deneme************************ ***************}
procedure dene_olus ;
var
dd:text;
ch:char;
ogrenciler:string;
label
son;
begin
clrscr;
writeln(''''daha ”nce kullan?c? oluŸturmus iseniz bu b”l?m? kullanmay?n?z!!!'''');
writeln(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
if ch in [''''H'''',''''h''''] then goto son;
write(''''”grencinin ad?n? ve soyad?n? giriniz...:'''');readln(ogrenciler);
assign(dd,ogrenciler);
rewrite(dd);
writeln(''''dosya olusturuldu'''');
close(dd);
readln;
son:
end;
{-------------------------bilgi ekler-------------------------}
procedure dene_gir;
var
kullanici:string;
ch:char;
dd:text;
a,b,c,d,e,f:real;
begin
clrscr;
write(''''”grencin ad?n? ve soyad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
append(dd);
ch:=''''e'''';
repeat
clrscr;
write(''''1.deneme s?nav? notu..:'''');readln(a);
write(''''2.deneme s?nav? notu..:'''');readln(b);
write(''''3.deneme s?nav? notu..:'''');readln(c);
write(''''4.deneme s?nav? notu..:'''');readln(d);
write(''''5.deneme s?nav? notu..:'''');readln(e);
f:=(a+b+c+d+e)/5;
write(''''5 deneme s?nav?n?n ortalamas?...:'''',f
3);
writeln(dd,f);
write(''''devam etmek istermisiniz e/h'''');
ch:=readkey;
until ch in [''''H'''',''''h''''];
close(dd);
end;
{-----------------------yaz-------------------------}
procedure dene_yaz;
var
kullanici:string[25];
f:real;
dd:text;
begin
clrscr;
write(''''kullan?c? ad?n? giriniz...:'''');readln(kullanici);
assign(dd,kullanici);
reset(dd);
clrscr;
reset(dd);
writeln('''' ADI VE SOYADI ORTALAMA'''');
writeln(''''_______________ ___________ '''');
while not eof(dd) do
begin
readln(dd,f);
writeln(kullanici:8,f
3);
end;
close(dd);
readln;
end;
{*******************************ana menu*********************}
begin
menu;
end.
gürkay eser
eser199@hotmail.com
osym
Normal
