IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




1Beğeni(ler)
  • 1 Post By Tugcem

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Kasım 2012, 01:39   #1
Çevrimdışı
Bir pascal sorusu yardım..


-- Sponsor Baglantı --


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 ?
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 ?
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 20 Aralık 2012, 17:20   #2
Çevrimdışı
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.

  Alıntı ile Cevapla

Alt 05 Aralık 2014, 15:23   #3
Çevrimdışı
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

  Alıntı ile Cevapla

Alt 06 Aralık 2014, 21:46   #4
Çevrimdışı
Cevap: Bir pascal sorusu yardım..




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


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.

  Alıntı ile Cevapla

Alt 22 Aralık 2015, 21:10   #5
Çevrimdışı
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 --

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.

  Alıntı ile Cevapla

Cevapla

Etiketler
bir, pascal, sorusu, yardım

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Pascal Üçgeni KarakıZ Ödev ve Tezler 0 11 Aralık 2011 17:26
Bihter ve Behlül sınav sorusu oldu (KPSS Sorusu) Lucifer Haber Arşivi 2 16 Mart 2010 00:49