Hoşgeldiniz, bugün 23 April 2024
aktif üye 8,903
SEN DE YAZ
HazırKod ziyaretçilerinin katkıları bizim için çok önemli!
Sizde hazırkod üyesi olun, ekleyeceğiniz kodlar yapacağınız yorumlarla hazirkod.com'a katkıda bulunun.
ETİKETLER
toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler

Programalama > PASCAL

PASCAL / Öös Puan Hasaplama Ögrenci Bilgileri
Öös Puan Hasaplari Ve Ögrenci Bilgileri Ver
Etiketler: öös, puan, hasaplama, ögrenci, bilgileri

Ort. 0
Puan ver:
hazirkod 19 June 19:34 0
0 kişiden 0 puan aldı
6387 
{**********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:12);
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:12);
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
eser199@hotmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ADO.NET - ADO - 8
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
COMPONENT - 5
DATABASE - 8
DELPHI - 247
FLASH - 49
HTML - 536
JAVA - JSP - 43
JAVA SCRIPT - 494
PASCAL - 246
PERL - 11
PHP - 160
VISUAL BASIC - 337
VISUAL BASIC.NET - 39
WML - 9
XML - 2
Tüm Kategoriler
GİZLİLİK İLKELERİ | BİZE ULAŞIN
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.