![]() |
osym
{**********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:4: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:20:3); end; close(dd); readln; end; {*******************************ana menu*********************} begin menu; end. gürkay eser [Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....] |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım içni tşkr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 22:43 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.