Çevrimdışı

Soru 1 : Dolar yada euro cinsinden bir para değeri ve günlük kur girildiğinde bunun YTL karşılığını rakam ve yazı ile yazacak bir programı algoritması ile birlikte yazınız. (Miktar YTL ve Yeni kuruş olarak yazdırılacaktır)

Soru 2 : Bir öğrencinin 2 vize ve 1 final notu girildiğinde notlarını harf cinsinden hesaplayan programı yazınız.



Soru 2 : için

Dolar yada euro cinsinden ->
uses crt;
var
para_miktari,dolar_kur,sonuc:real;
Begin
clrscr;
write('DOLAR KURUNU GiRiNiZ = ');readln(dolar_kur);
write('DOLAR MiKTARINI GiRiNiZ= ');readln(para_miktari);
sonuc:=para_miktari/dolar_kur;
Writeln('elinizdeki dolar miktarinin ytl olarak karsiligi= ',sonuc);
Readln;
End.

Gibi birşey çıktı ama tam nasıl oldu ne oldu bi yardımcı olurmusunuz ?