Çevrimdışı

Herkese merhaba, donem odevim ayni soru olarak verildi benimde. Takildigim yer uc haneden sonrasi icin dolari (veya euro'yu) yazi olarak gosteremiyorum. Bir turlu kafamda sekillendiremedim algoritmasini ve nasil dusunmem gerektigini.. diyelim ki sonuc 345 TL olsun. ucyuz kirk bes olarak yazdirabiliyorum ekrana ciktisini. ama binli hanelerde ve sonrasinda sorun yasiyorum. yardimci olabilecek olan birisi var mi acaba? benimde acikcasi cok fazla zamanim kalmadi. tesekkur ederim simdiden.



program dolar_euro_girilen_degerin_TL_karsiligi_rakam_ve_y azi_ile;
Uses crt;


Const
oku: array[0..4] of string[10] = (' ',' bin ',' milyon ',' milyar ',' trilyon ');

var
level: integer;
kur_degeri, miktar: integer;
tus:char;
sonuc:string;
dolar, euro :integer;
hane: integer;


Label
menu,dolar_hesapla, euro_hesapla, cikis;



begin
menu:clrscr;
Writeln('1-DOLAR');
Writeln('2-EURO');
Writeln('3-CIKIS');
Writeln('Para Birimini Seciniz');
tus:=Readkey;

if tus='1' then goto dolar_hesapla;
if tus='2' then goto euro_hesapla;
if tus='3' then goto cikis;
writeln('Hatali secim yaptiniz yeniden deneyiniz');
readkey;
goto menu;

euro_hesapla:
readkey;
goto menu;

dolar_hesapla:
writeln;
Write('DOLAR MIKTARINI Giriniz: ');Readln(miktar);
writeln;
Write('Guncel DOLAR KUR DEGERINI Giriniz: ');Readln(kur_degeri);
dolar:=(miktar * kur_degeri);
writeln;
writeln('RAKAM ILE TUTAR: ',dolar, ' TL ');

hane := (dolar mod 10);
case hane of
0: sonuc:='';
1: sonuc:=' bir';
2: sonuc:=' iki';
3: sonuc:=' uc';
4: sonuc:=' dort';
5: sonuc:=' bes';
6: sonuc:=' alti';
7: sonuc:=' yedi';
8: sonuc:=' sekiz';
9: sonuc:=' dokuz';
end;

hane := (dolar mod 100)div 10;
case hane of
1: sonuc:=' on '+sonuc;
2: sonuc:=' yirmi '+sonuc;
3: sonuc:=' otuz '+sonuc;
4: sonuc:=' kirk '+sonuc;
5: sonuc:=' elli '+sonuc;
6: sonuc:=' altmis '+sonuc;
7: sonuc:=' yetmis '+sonuc;
8: sonuc:=' seksen '+sonuc;
9: sonuc:=' doksan '+sonuc;
end;

hane := (dolar mod 1000) div 100;
case hane of
1: sonuc:=' yuz '+sonuc;
2: sonuc:=' iki yuz '+sonuc;
3: sonuc:=' uc yuz '+sonuc;
4: sonuc:=' dort yuz '+sonuc;
5: sonuc:=' bes yuz '+sonuc;
6: sonuc:=' alti yuz '+sonuc;
7: sonuc:=' yedi yuz '+sonuc;
8: sonuc:=' sekiz yuz '+sonuc;
9: sonuc:=' dokuz yuz '+sonuc;
end;



writeln;
Writeln('YAZI ILE TUTAR: ',sonuc, ' TL ');
readkey;
goto menu;


cikis:
Writeln('Program Sona Erdi.');
writeln;
Writeln('Cikmak icin herhangi bir tusa basiniz...');
readkey;
end.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:10 -->-> Daha önceki mesaj 20:04 --

LALEGL17 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ölcüleri klavyeden girilcek olan dikdörtgen şeklindeki 20 cismin toplam alanını bulan bir programı algoritması ve akış diyagramıyla birlikte yazınız ? yardım pls

uses crt;
var
toplam,a,b,i:integer;
begin clrscr;
for i:=1 to 20 do begin
writeln(i,'. Dikdortgenin ilk uzunlugunu giriniz');readln(a);
writeln(i,'. Dikdortgenin ikinci uzunlugunu giriniz');readln(b);
while a <= 0 do
begin
writeln(a,' 0dan kucuk veya 0 olamaz');readln(a);
end;
while b <= 0 do
begin
writeln(b,' 0dan kucuk veya 0 olamaz');readln(b);
end;
toplam:= toplam + (a*b);
end;
writeln('Alanlar Toplami: ',toplam);
writeln('Cikmak icin bir tusa basin');
readln;
end.