Bir pascal sorusu yardım..
 

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 ?

Cevap: Bir pascal sorusu yardım..
 

1.soru ve 2.soru için biraz araştırırsanız birçok sitede benzeri örnek bulabilirsiniz.

Bulduğunuz örneği betimleyecek olursak;

uses crt;
var
para_miktari,dolar_kur,sonuc:real; (burada, aşağıda kullanılacak değişkenler tanımlanmış)
Begin(Başla)
clrscr;(Her işlemde ekranı temizleme)
write('DOLAR KURUNU GiRiNiZ = ');readln(dolar_kur); (dolar_kur değişkeni adıyla atanacak dolar kurunu girmenizi ister)
write('DOLAR MiKTARINI GiRiNiZ= ');readln(para_miktari); (para_miktari değişkeni adıyla atanacak dolar miktarını girmenizi ister)
sonuc:=para_miktari/dolar_kur; (girdiğiniz para miktarını dolar kuruna bölerek sonuç değişkenine atar)
Writeln('elinizdeki dolar miktarinin ytl olarak karsiligi= ',sonuc); (sonuc değişkenine atanan hesaplamayı ekrana yazar)
Readln;
End.

Umarım yardımcı olabilmişimdir.

Cevap: Bir pascal sorusu yardım..
 

ö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

Cevap: Bir pascal sorusu yardım..
 

Güzel kardeşim, otur bir şeyler karala ve ben şu kadar yaptım ama şöyle bir problem oluşuyor. Yardımcı olurmusuuz desen seve seve pseudo kod yazıp, yardımcı olunurda. Ödev sana verilmiş bir şeyler öğren diye, sen ise emek vermeden hadi yapın diye soruyu buraya soruyorsun.

Şu hazır kafa zihniyetini bir zahmet bırakın yahu.

Cevap: Bir pascal sorusu yardım..
 

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 --

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.