Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi xxxoverxxx -- 22 Ekim 2005, 20:59:52 > |
Hızlı 
Bildirim
Bu Forumda kimse pascaldan anlamıyo mu!!!
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
var
a,b:integer;
begin
for a:=1 to 500 do
begin
for b:=1 to 500 do
begin
if a^2=b^3 then write(a,'nın karesi', b,'nın küpüne eşittir');
end;
end;
end. -
Sonunda bir cevap yazan oldu çok teşekkür ediyorum FreeStyla ama program "invaild qualifier" hatası veriyo bunun sebebi nedir acaba
< Bu mesaj bu kişi tarafından değiştirildi xxxoverxxx -- 22 Ekim 2005, 21:01:59 > -
USES CRT; // clrscr fonksiyonunu kullanabilmek icin kutuphane ekledik
VAR
a,b:integer; //degiskenleri atadik, 2 degisken ikisi de integer
begin //ana program baslangici
ClrScr; //ekrani sil
for a:=1 to 500 do //a 1 den baslasin 500 e kadar alttakini yap
for b:=a to 500 do //b, a`dan baslasin 500 e kadar alttakini yap
if a*a*a=b*b then writeln(b,'^2=', a,'^3');
// a`nin kubu b`nin karesine esitse yaz
Readln; //enter a basmamizi bekler, ekrani gorebilmek icin
end. //program sonu
burada b, a dan başlasın dedik çünki b nin a dan küçük olduğu ihtimaller a*a*a=b*b yi 1,500 aralığında zaten sağlamaz. Böylece kodumuz hız kazandı. bu da programlamacı-coder farkı olarak aklında bulunsun
-
aslında istenen sonuç 1 ,2 ve 3 ün 6. kuvvetleri değil mi?
ben mi yanlış düşündüm
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
