s.a.
gökan abi sana artık yüzüm yok söyleyemiyorum msn den ..
bir daha yüzsüzlük yapım dedim ... ama kendimden çok utanıyorum...
pascal dönem ödevi aldım kredisi yüksek diye ama pascaldan çakmadıgım için yapamiyorum ... yardımcı olursan sevinirim ..
konu : pascalda yazılmış döviz ve müşteri kaydi tutan bir program bu program 10 adet farklı para cinsini çevirecek.. müşteri kaydını tutacak borc kayıt olması gerekiyo döviz kurunu belirleyecek .. ben sadece 1 parayı çevireni yapabildim ..gerisi yok ama
uses crt;
var
kur,miktar,tl:longint;
begin
clrscr;
write(’Döviz kurunu giriniz :’);
readln(kur);
write(’Döviz miktarını giriniz :’);
readln(miktar);
tl:=kur*miktar;
write(miktar,’ birim döviz karşılığı Yeni Türk Lirası :’,ytl);
readkey;
end.
uses crt;
type
kaydet=record
Id:integer;
ad:string;
adres:string;
ucret:longint;
doviz_tur:string;
diz:char;
end;
var
i,k:byte;
bas:char;
kay:kaydet;
data:file of kaydet;
menu:byte;
procedure colors(yazi,arka:byte);
begin
textcolor(yazi);
textbackground(arka);
end;
procedure cikis;
begin
clrscr;
gotoxy(1,10);
writeln('Veriler Kaydediliyor');
for k:=0 to 50 do
begin
gotoxy(k+20,10);
writeln('.');
delay(100);
end;
writeln('Program kapaniyor');
delay(500);
halt;
end;
procedure giris;
begin
clrscr;
repeat
gotoxy(10,2); write('AD SOYAD....:'); readln(kay.ad);
gotoxy(10,3); write('ADRES.......:'); readln(kay.adres);
gotoxy(10,4); write('UCRET.......:'); readln(kay.ucret);
writeln('Bu bilgiler kaydedilsinmi [E/H] ?');
bas:=readkey;
if (bas='e') or (bas='E') then
begin
kay.diz:='#';
seek(data,filesize(data));
write(data,kay);
exit;
end;
until bas=#27;
end;
procedure listele;
var
say:byte;
begin
clrscr;
say:=0;
for k:=0 to filesize(data)-1 do
begin
say:=say+1;
read(data,kay);
gotoxy(10,1);writeln(' ADI-SOYADI ADRES UCRET[YTL] ');
gotoxy(10,2); writeln('_________________________________________ ________');
gotoxy(10,say+2); writeln(kay.ad,' ',kay.adres,' ',kay.ucret);
end;
gotoxy(10,22); writeln('Suanda Toplam ',say,' tane musterimiz kayitli');
gotoxy(10,23); writeln('Listelenecek kayitlar bitti');
readln;
end;
procedure arama;
var aranan:integer;
kac:byte;
begin
clrscr;
gotoxy(10,2); write('Aramak istedi§iniz insanin ucretini girib [YTL]..:');
readln(aranan);
clrscr;
kac:=0;
for k:=0 to filesize(data)-1 do
begin
if (aranan=kay.ucret) then
begin
kac:=kac+1;
gotoxy(10,1); writeln(aranan, 'ucret icin toplam ',kac,' sonuc bulundu.');
gotoxy(10,kac+2); writeln('Adi Soyadi : ',kay.ad,' Adres : ',kay.adres,' ucret :', kay.ucret);
end
else
begin
gotoxy(10,1); writeln(aranan,' ucreti icin herhangi bi kayit yok..');
end;
end;
readln;
end;
procedure hak;
begin
clrscr;
gotoxy(20,4); textcolor(4); writeln('Bu program xxxxxx tarafindan yazilmistir');
gotoxy(20,6); textcolor(7); writeln('Her kes kullanabilir bunu ');
{ artık sen saçmala gitsin burda }
end;
procedure dovis;
const
{Sabitlerimizi yaziyoruz}
d1=13;
d2=21;
d3=1;
d4=90;
d5= 3;
d6=10;
d7=5;
d8=6;
d9=12;
d10=2;
var
tur:byte;
miktar:integer;
function hesapla(xl:byte;nl:integer):integer;
var
sonuc:integer;
begin
case xl of
1: begin xl:=d1; end;
2: begin xl:=d2; end;
3: begin xl:=d3; end;
4: begin xl:=d4; end;
5: begin xl:=d5; end;
6: begin xl:=d6; end;
7: begin xl:=d7; end;
8: begin xl:=d8; end;
9: begin xl:=d9; end;
10: begin xl:=d10; end;
end;
sonuc:=xl*nl;
writeln(nl,' doviz ',sonuc,' ytl yapar');
exit;
end;
begin
clrscr;
gotoxy(10,2); write('D”viz miktarini girin...:'); readln(miktar);
gotoxy(10,3); writeln('DOLAR icin [1] ');
gotoxy(10,4); writeln('EURO icin [2] ');
gotoxy(10,5); writeln('D3 icin [3] ');
gotoxy(10,6); writeln('D4 icin [4] ');
gotoxy(10,7); writeln('D5 icin [5] ');
gotoxy(10,8); writeln('D6 icin [6] ');
gotoxy(10,9); writeln('D7 icin [7] ');
gotoxy(10,10); writeln('D8 icin [8] ');
gotoxy(10,11); writeln('D9 icin [9] ');
gotoxy(10,12); writeln('D1 icin [10] seciniz...');
gotoxy(10,14); write('Lutfen doviz turunu girin..'); readln(tur);
hesapla(tur,miktar);
end;
procedure ana_menu;
begin
clrscr;
{Yeni Dosya a‡lyor e§er varsa devam ediliyor}
assign(data,'c:data.dat');
{$i-}; reset(data); {$i+};
menu:=0;
repeat
textbackground(2);
if ioresult<>0 then rewrite(data);
if bas=#80 then begin menu:=menu+1; end;
if bas=#72 then begin menu:=menu-1; end;
if menu>6 then begin menu:=1; end;
if menu<1 then begin menu:=6; end;
if menu=1 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI GIRIS !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY________________________');
gotoxy(23,2);writeln(' Bu kisimda yeni msteri kayd yaplr ');
end;
if menu=2 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI LISTELEME !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Bu kisimda kayıtlı musteriler listelenir ');
end;
if menu=3 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! MUSTERI SORGULA !');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY_______________________');
gotoxy(23,2);writeln(' Bu kisimda kayıtlı musteri sorgulanr ');
end;
if menu=4 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln('! DOVIZ ISLEMLERI ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY___________________________________');
gotoxy(23,2);writeln(' Bu kisimda dövizi - ytl çevirme işlemleri yapılır ');
end;
if menu=6 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln(' ? HAKKINDA ? ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Program hakkinda teday . ');
end;
if menu=5 then begin
clrscr;
gotoxy(23,5); writeln('====================');
gotoxy(23,6); writeln(' X CIKIS X ');
textcolor(yellow);
gotoxy(23,7); writeln('====================');
gotoxy(23,1);writeln('_______MENU DETAY__________________________');
gotoxy(23,2);writeln(' Bu kisimda program kapanir. ');
end;
if (menu=1) and (bas=#13) then begin giris; end;
if (menu=5) and (bas=#13) then begin cikis; end;
if (menu=2) and (bas=#13) then begin listele; end;
if (menu=3) and (bas=#13) then begin arama; end;
if (menu=4) and (bas=#13) then begin dovis; end;
if (menu=6) and (bas=#13) then begin hak; end;
bas:=readkey;
until bas=#27;
end;