Hoşgeldiniz, bugün 27 December 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 / Öğrenci Takip Programı
3 Yazılı Ve 1 Sözlü Notu Ortalaması Da Var :D
Etiketler: öğrenci, takip, programı

Ort. 0
Puan ver:
hazirkod 27 June 19:34 0
0 kişiden 0 puan aldı
5646 
uses crt,cerceve,dos;
type
kayit=record
adsoyad:string[20];
sinifno:string[14];
bolum:string[25];
adres:string[50];
veli:string[10];
d_tarih:string[10];
k_tarihi:string[10];
telefon:string[13];
disiplin:string[100];
tckimlik:string[11];
y1,y2,y3,s1:integer;
ort:real;
f:char;
end;

var
top:real;
x:integer;
dosya:file of kayit;
kay:kayit;
kod,i:integer;
t:char;
y,a,ag,hg,s,d,sn,sa:word;
procedure menu;
var
i:integer;
begin
clrscr;
textbackground(0);
textcolor(14);
kutu(1,18,80,22);
kutu(1,1,80,3);
kutu(1,4,40,18);
kutu(41,4,80,18);
kutu(1,22,80,24);
textcolor(4+128);
gotoxy(25,2);write(''''******™¦RENC˜ TAK˜P PROGRAMI******'''');
textcolor(14);
gotoxy(7,7);write(''''™¦RENC˜ KAYIT G˜R˜ž˜'''');
gotoxy(7,8);write(''''™¦RENC˜ B˜LG˜LER˜ ARAMA'''');
gotoxy(7,9);write(''''™¦RENC˜ KAYIT S˜LME'''');
gotoxy(7,10);write(''''™¦RENC˜ KAYIT DšZELTME'''');
gotoxy(7,11);write(''''KAYIT L˜STELEME'''');
textcolor(1);
gotoxy(7,12);write(''''€IKIž'''');
textcolor(3);
gotoxy(45,7);writeln(''''Bu Program 29-11-2006 Tarihinde'''');
gotoxy(43,8);writeln(''''˜stanbul Menkul Kymetler Borsas'''');
gotoxy(43,9);writeln(''''Anadolu Meslek Lisesi ™§rencisi'''');
gotoxy(43,10);writeln(''''Aykut Pehlivan Tarafndan BitirilmiŸ'''');
gotoxy(43,11);writeln(''''ve Kullanma Hazr Hale getirilmiŸtir'''');
textcolor(15);
gotoxy(5,7);write(''''1-'''');
gotoxy(5,8);write(''''2-'''');
gotoxy(5,9);write(''''3-'''');
gotoxy(5,10);write(''''4-'''');
gotoxy(5,11);write(''''5-'''');
gotoxy(5,12);write(''''6-'''');
textcolor(3);
gotoxy(23,23);write(''''<<<HAZIRLAYAN:::Aykut PEHL&#732;VAN:::>>>'''');
gotoxy(70,2);getdate(y,a,ag,hg);write(ag,''''/'''',a,''''/'''',y);

textcolor(15);
gotoxy(10,19);write(''''>>L&#353;TFEN YAPMAK &#732;STED&#732;¦&#732;N&#732;Z &#732;žLEM&#732;N YANINDAK&#732; SAYIYI G&#732;R&#732;N&#732;Z.'''');
textcolor(4+128);
gotoxy(10,20);write(''''>>SE&#8364;&#732;M&#732;N&#732;Z..........'''');
textcolor(15);


end;






procedure kayitek;
  begin
       assign(dosya,''''ogrenci.DAT'''');
       {$i-} reset(dosya);kod:=IOResult;{$i+};
       if kod<>0 then rewrite(dosya);
       repeat
        clrscr;
        gotoxy(1,1);write(''''&#8482;§renci Ad ve Soyad Giriniz:............:'''');readln(kay.adsoyad);
        if kay.adsoyad='''''''' then
        begin
        close(dosya);exit;
        end;
        write(''''&#8482;§rencinin snf ve numaras.......................:'''');readln(kay.sinifno);
        write(''''&#8482;§rencinin b&#8221;lmn giriniz.........................:'''');readln(kay.bolum);
        write(''''&#8482;§rencinin adresini giriniz.........................:'''');readln(kay.adres);
        write(''''&#8482;§rencinin veli adn giriniz.......................:'''');readln(kay.veli);
        write(''''&#8482;§rencinin do§um tarihini giriniz...................:'''');readln(kay.d_tarih);
        write(''''&#8482;§rencinin kayt tarihini giriniz...................:'''');readln(kay.k_tarihi);
        write(''''&#8482;§rencinin telefonunu giriniz.......................:'''');readln(kay.telefon);
        write(''''&#8482;§rencinin disiplin cezas varsa giriniz............:'''');readln(kay.disiplin);
        write(''''&#8482;§rencinin TC.Kimlik numarasn giriniz.............:'''');readln(kay.tckimlik);
        textcolor(4);
        writeln(''''     ****Programlama yazl sonuclar****'''');
        textcolor(15);
        write(''''&#8482;§rencinin 1.yazl notu...........:'''');readln(kay.y1);
        write(''''&#8221;§rencinin 2.yazl notu...........:'''');readln(kay.y2);
        write(''''&#8221;§rencinin 3.yazl notu...........:'''');readln(kay.y3);
        write(''''&#8221;§rencinin s&#8221;zl notu..............:'''');readln(kay.s1);
        kay.ort:=(kay.y1+kay.y2+kay.y3+kay.s1)/4;
        write(''''&#8221;§rencinin not ortalamas..........:'''');
        textcolor(14);
        write(kay.ort:2:0);
        textcolor(15);
        gotoxy(1,25);write(''''Bilgi Dosyaya Yazlsn m?   '''');
         textcolor(4+128);
         write(''''[E/H]'''');
        textcolor(15);
        repeat
        t:=upcase(readkey);
        until t in [''''E'''', ''''H''''];
        if t=''''E'''' then
        begin
        kay.f:=''''*'''';
        Seek(dosya,filesize(dosya));
        write(dosya,kay);
        end
        else exit;
        until 1=2;
end;







procedure arama;
var
ara:string[30];
begin
assign(dosya,''''ogrenci.dat'''');
{$i-}reset(dosya);kod:=IOResult;{$i+}
if kod<>0 then
begin
gotoxy(20,20);
textcolor(4+128);
writeln(''''Dosya yok.........'''');
textcolor(15);
t:=readkey;
halt;
end;
repeat
   clrscr;
   write(''''Arad§nz &#8482;§rencinin ismi:'''');readln(ara);
   if ara='''''''' then
   begin
  close(dosya);exit;
  end;

   for i:=0 to filesize(dosya)-1 do
   begin

   seek(dosya,i);

   read(dosya,kay);

   if (kay.f=''''*'''') and (kay.adsoyad=ara) then
   begin
   clrscr;

   writeln(''''&#8482;§renci Ad ve Soyad ..............................:'''',kay.adsoyad);
   writeln(''''&#8482;§rencinin snf ve numaras.......................:'''',kay.sinifno);
   writeln(''''&#8482;§rencinin b&#8221;lm.. ................................:'''',kay.bolum);
   writeln(''''&#8482;§rencinin adresi...................................:'''',kay.adres);
   writeln(''''&#8482;§rencinin veli ad.................................:'''',kay.veli);
   writeln(''''&#8482;§rencinin do§um tarihi.. ..........................:'''',kay.d_tarih);
   writeln(''''&#8482;§rencinin kayt tarihi.............................:'''',kay.k_tarihi);
   writeln(''''&#8482;§rencinin telefonu.................................:'''',kay.telefon);
   writeln(''''&#8482;§rencinin disiplin cezas .........................:'''',kay.disiplin);
   writeln(''''&#8482;§rencinin TC.Kimlik numaras.......................:'''',kay.tckimlik);
   textcolor(4);
   writeln(''''         ****programlama yazl sonu&#8225;lar****'''');
   textcolor(15);
   writeln(''''&#8482;§rencinin 1.yazl notu...........:'''',kay.y1);
   writeln(''''&#8482;§rencinin 2.yazl notu...........:'''',kay.y2);
   writeln(''''&#8482;§rencinin 3.yazl notu...........:'''',kay.y3);
   writeln(''''&#8482;§rencinin s&#8221;zl notu..............:'''',kay.s1);
   write(''''&#8482;§rencinin not ortalamas..........:'''');
    textcolor(14);
   write(kay.ort:2:0);
    textcolor(15);
   gotoxy(1,23); write(''''Arad§nz kayt bu mu? '''');
   textcolor(4+128);
   write(''''[E/H]'''');
   textcolor(15);
   repeat
        t:=upcase( readkey);
   until t in [''''E'''',''''H''''];
   if t=''''E'''' then exit;
   end;
   end;
   writeln;
   gotoxy(1,24);
   textcolor(4+128);
   writeln(''''Arad§nz kayt yok.......'''');
   textcolor(15);
   t:=readkey;
   until t=#27;
end;






procedure silme;
var

ara:string[30];
begin
repeat
assign(dosya,''''ogrenci.dat'''');
{$i-} reset(dosya);kod:=IOresult;{$i+}
if kod<>0 then
begin
gotoxy(20,20);
textcolor(4+128);
writeln(''''Dosya yok....'''');
textcolor(15);
t:=readkey;halt;
end;
clrscr;
write (''''Silinecek isim....:'''');readln(ara);
if ara='''''''' then
begin
close(dosya);exit;
end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);

if (ara=kay.adsoyad) and (kay.f=''''*'''') then
begin
clrscr;
   writeln(''''&#8482;§renci Ad ve Soyad ..............................:'''',kay.adsoyad);
   writeln(''''&#8482;§rencinin snf ve numaras.......................:'''',kay.sinifno);
   writeln(''''&#8482;§rencinin b&#8221;lm.. ................................:'''',kay.bolum);
   writeln(''''&#8482;§rencinin adresi...................................:'''',kay.adres);
   writeln(''''&#8482;§rencinin veli ad.................................:'''',kay.veli);
   writeln(''''&#8482;§rencinin do§um tarihi.. ..........................:'''',kay.d_tarih);
   writeln(''''&#8482;§rencinin kayt tarihi.............................:'''',kay.k_tarihi);
   writeln(''''&#8482;§rencinin telefonu.................................:'''',kay.telefon);
   writeln(''''&#8482;§rencinin disiplin cezas .........................:'''',kay.disiplin);
   writeln(''''&#8482;§rencinin TC.Kimlik numaras.......................:'''',kay.tckimlik);
   textcolor(4);
   writeln(''''         ****programlama yazl sonu&#8225;lar****'''');
   textcolor(15);
   writeln(''''&#8482;§rencinin 1.yazl notu...........:'''',kay.y1);
   writeln(''''&#8482;§rencinin 2.yazl notu...........:'''',kay.y2);
   writeln(''''&#8482;§rencinin 3.yazl notu...........:'''',kay.y3);
   writeln(''''&#8482;§rencinin s&#8221;zl notu..............:'''',kay.s1);
   write(''''&#8482;§rencinin not ortalamas..........:'''');
   textcolor(14);
   writeln(kay.ort:2:0);
   textcolor(15);
   gotoxy(1,25);write(''''Silinecek kayt bu mu?   '''');
   textcolor(4+128);
   writeln(''''[E/H]'''');
   textcolor(15);
   repeat
   t:=upcase(readkey);
   until t in [''''E'''',''''H''''];
   if t=''''E'''' then
   begin
   kay.f:=''''s'''';
   seek(dosya,i);
   write(dosya,kay);
   gotoxy(20,20);
   textcolor(4+128);
   writeln(''''Kayt silindi......'''');

   textcolor(15);
   close(dosya);
   t:=readkey;
   exit;
   end;
  end;{if}
end;{for}
gotoxy(20,20);
textcolor(4+128);
writeln(''''Kayt yok.....'''');
textcolor(15);
close(dosya);
t:=readkey;
until 1=2;
end;







procedure duzeltme;
var
ara:string[30];

begin
assign(dosya,''''ogrenci.dat'''');
{$i+} reset(dosya);kod:=IOresult;{$i+}
if kod<>0 then
begin
textcolor(4+128);
writeln(''''Dosya yok.......'''');
textcolor(15);
t:=readkey;
exit;
end;
clrscr;
write(''''Dzeltilecek isim.........:'''');readln(ara);
if ara='''''''' then
begin
close(dosya);
exit;
end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);

if (ara=kay.adsoyad) and (kay.f=''''*'''') then
begin
clrscr;
   writeln(''''&#8482;§renci Ad ve Soyad ..............................:'''',kay.adsoyad);
   writeln(''''&#8482;§rencinin snf ve numaras.......................:'''',kay.sinifno);
   writeln(''''&#8482;§rencinin b&#8221;lm.. ................................:'''',kay.bolum);
   writeln(''''&#8482;§rencinin adresi...................................:'''',kay.adres);
   writeln(''''&#8482;§rencinin veli ad.................................:'''',kay.veli);
   writeln(''''&#8482;§rencinin do§um tarihi.. ..........................:'''',kay.d_tarih);
   writeln(''''&#8482;§rencinin kayt tarihi.............................:'''',kay.k_tarihi);
   writeln(''''&#8482;§rencinin telefonu.................................:'''',kay.telefon);
   writeln(''''&#8482;§rencinin disiplin cezas .........................:'''',kay.disiplin);
   writeln(''''&#8482;§rencinin TC.Kimlik numaras.......................:'''',kay.tckimlik);
   textcolor(4);
   writeln(''''        ****programlama yazl sonu&#8225;lar****'''');
   textcolor(15);
   writeln(''''&#8482;§rencinin 1.yazl notu...........:'''',kay.y1);
   writeln(''''&#8482;§rencinin 2.yazl notu...........:'''',kay.y2);
   writeln(''''&#8482;§rencinin 3.yazl notu...........:'''',kay.y3);
   writeln(''''&#8482;§rencinin s&#8221;zl notu..............:'''',kay.s1);
   write(''''&#8482;§rencinin not ortalamas..........:'''');
   textcolor(14);
   writeln(kay.ort:2:0);
   textcolor(15);
   gotoxy(1,25); write(''''Dzeltilecek kayt bu mu?   '''');
   textcolor(4+128);
   writeln(''''[E/H]'''');
   textcolor(15);
   repeat
   t:=upcase(readkey);
   until t in [''''E'''',''''H''''];
   if t=''''H'''' then exit;
   if t=''''E'''' then
   repeat
   clrscr;
   textcolor(15);
   gotoxy(1,1);writeln(''''1-'''');
   gotoxy(1,2);writeln(''''2-'''');
   gotoxy(1,3);writeln(''''3-'''');
   gotoxy(1,4);writeln(''''4-'''');
   gotoxy(1,5);writeln(''''5-'''');
   gotoxy(1,6);writeln(''''6-'''');
   gotoxy(1,7);writeln(''''7-'''');
   gotoxy(1,8);writeln(''''8-'''');
   gotoxy(1,9);writeln(''''9-'''');
   gotoxy(1,10);writeln(''''0-'''');
   gotoxy(1,12);writeln(''''11-'''');
   gotoxy(1,13);writeln(''''12-'''');
   gotoxy(1,14);writeln(''''13-'''');
   gotoxy(1,15);writeln(''''14-'''');
   gotoxy(1,16);writeln(''''15-'''');
   textcolor(14);
   gotoxy(3,1);writeln(''''&#8482;§renci Ad ve Soyad ..............................:'''',kay.adsoyad);
   gotoxy(3,2);writeln(''''&#8482;§rencinin snf ve numaras.......................:'''',kay.sinifno);
   gotoxy(3,3);writeln(''''&#8482;§rencinin b&#8221;lm.. ................................:'''',kay.bolum);
   gotoxy(3,4);writeln(''''&#8482;§rencinin adresi...................................:'''',kay.adres);
   gotoxy(3,5);writeln(''''&#8482;§rencinin baba ad.................................:'''',kay.veli);
   gotoxy(3,6);writeln(''''&#8482;§rencinin do§um tarihi.. ..........................:'''',kay.d_tarih);
   gotoxy(3,7);writeln(''''&#8482;§rencinin kayt tarihi.............................:'''',kay.k_tarihi);
   gotoxy(3,8);writeln(''''&#8482;§rencinin telefonu.................................:'''',kay.telefon);
   gotoxy(3,9);writeln(''''&#8482;§rencinin disiplin cezas .........................:'''',kay.disiplin);
   gotoxy(3,10);writeln(''''&#8482;§rencinin TC.Kimlik numaras.......................:'''',kay.tckimlik);
   textcolor(4);
   gotoxy(7,11);writeln(''''****programlama yazl sonu&#8225;lar****'''');
   textcolor(15);
   textcolor(14);
   gotoxy(4,12);writeln(''''&#8482;§rencinin 1.yazl notu...........:'''',kay.y1);
   gotoxy(4,13);writeln(''''&#8482;§rencinin 2.yazl notu...........:'''',kay.y2);
   gotoxy(4,14);writeln(''''&#8482;§rencinin 3.yazl notu...........:'''',kay.y3);
   gotoxy(4,15);writeln(''''&#8482;§rencinin s&#8221;zl notu..............:'''',kay.s1);
   textcolor(1);
   gotoxy(4,16);writeln(''''&#732;&#376;lem yapmadan &#8364;kmak i&#8225;in'''');
   textcolor(15);

   textcolor(4+128);
   gotoxy(3,17);write(''''Seciminiz....(0..15):'''');
   textcolor(15);


              repeat
              readln(x);
              until x in[0..15];

   case x  of
   1:begin
   gotoxy(15,20);write(''''Yeni &#732;sim....:'''');readln(kay.adsoyad);
   end;
   2:begin
   gotoxy(15,20);write(''''Yeni snf ve numara......:'''');readln(kay.sinifno);
   end;
   3:begin
   gotoxy(15,20);write(''''Yeni b&#8221;lm........:'''');readln(kay.bolum);
   end;
   4:begin
   gotoxy(15,20);write(''''Yeni adres........:'''');readln(kay.adres);
   end;
   5:begin
   gotoxy(15,20);write(''''Yeni baba ad.....:'''');readln(kay.veli);
   end;
   6:begin
   gotoxy(15,20);write(''''Yeni do§um tarihi.:'''');readln(kay.d_tarih);
   end;
   7:begin
   gotoxy(15,20);write(''''Yeni kayt tarihi.:'''');readln(kay.k_tarihi);
   end;
   8:begin
   gotoxy(15,20);write(''''Yeni telefon no...:'''');readln(kay.telefon);
   end;
   9:begin
   gotoxy(15,20);write(''''Yeni disiplin cezas.:'''');readln(kay.disiplin);
   end;
   0:begin
   gotoxy(15,20);write(''''Yeni TC kimlik no...:'''');readln(kay.tckimlik);
   end;
   11:begin
   gotoxy(15,20);write(''''Yeni 1.yazl notu...:'''');readln(kay.y1);
   end;
   12:begin
   gotoxy(15,20);write(''''Yeni 2. yazl notu...:'''');readln(kay.y2);
   end;
   13:begin
   gotoxy(15,20);write(''''Yeni 3. yazl notu...:'''');readln(kay.y3);
   end;
   14:begin
   gotoxy(15,20);write(''''Yeni s&#8221;zl notu...:'''');readln(kay.s1);
   end;
   15:begin exit end;
   end;
   kay.ort:=(kay.y1+kay.y2+kay.y3+kay.s1)/4;
   write(''''Ba&#376;ka de§i&#376;iklik yapmak istiyor musunuz   '''');
   textcolor(4+128);
   writeln(''''[E/H]'''');
    textcolor(15);
                  repeat
   t:=upcase(readkey);
                      until t in[''''E'''',''''H''''];

   until t=''''H'''';




   begin
   seek(dosya,i);
   write(dosya,kay);
   gotoxy(60,24);
   textcolor(14+128);
   write(''''ižLEM TAMAMLANDI.....'''');
   textcolor(15);
   close(dosya);
   t:=readkey;
exit;
end;
exit;

end;
end;
gotoxy(20,20);
textcolor(4+128);
write(''''Kayt yok.....'''');
textcolor(15);
close(dosya);
t:=readkey
end;










procedure listele;
var
s:integer;
begin
assign(dosya,''''ogrenci.dat'''');
{$i-}reset(dosya);kod:=IOResult;{$i+}
if kod<>0 then
begin
textcolor(4+128);
write(''''dosya yok.....'''');
textcolor(15);
t:=readkey;halt;
end;
clrscr;
writeln(''''AD SOYAD        TC.K&#732;ML&#732;K NO    SINIF NO     B&#8482;L&#353;M      NOT ORT.   TEL NO:'''');
writeln(''''-------------   -------------   ---------  ----------  ---------   -------'''');

window(1,3,80,25);
s:=0;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f=''''*''''then
begin
s:=s+1;

gotoxy(1,s);write(kay.adsoyad);
gotoxy(18,s);write(kay.tckimlik);
gotoxy(33,s);write(kay.sinifno);
gotoxy(44,s);write(kay.bolum);
textcolor(2);
gotoxy(60,s);write(kay.ort:2:0);
textcolor(15);
GOTOXY(68,S);write(kay.telefon);
end;
if s>18 then
begin
gotoxy(20,21);write(''''di§er sayfa i&#8225;in bir tu&#376;a basn...'''');
t:=readkey;
s:=0;
clrscr;
end;
end;
gotoxy(20,21);write(''''listelenecek kaytlar bitti.....'''');
t:=readkey;
window(1,1,80,25);
close(dosya);
end;


procedure saat;
begin
repeat
gettime(s,d,sn,sa);
textcolor(3);
gotoxy(70,23);
write(s:2,'''':'''',d:2,'''':'''',sn:2);
textcolor(15);
until keypressed;
end;



begin
repeat
menu;
saat;
repeat

t:=readkey;
until t in [''''1''''..''''6'''',#27];

case t of
''''1'''':kayitek;
''''2'''':arama;
''''3'''':silme;
''''4'''':duzeltme;
''''5'''':listele;
''''6'''':halt;
end;
until t=#27;
end.

cezanefret17
cezanefret17@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.