dönem ödevi yardım :

[by_akrep]

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.

bir el atıver nolur abiii....