yardım - Van.GEN.TR Forum

**nergis_ayse** · 14/05/07, 15:58

1 den 50 ye kadar olan sayıların karelerini bulan program yazmam lazım lütfen yardım edin.

**muhemar** · 14/05/07, 16:40

pascal ile yazılacak değil mi ?

**alosar** · 14/05/07, 16:42

valla excel olsa kolay ben pascal bilmiyorum

**nergis_ayse** · 14/05/07, 16:53

excel olmayacak pascal olması gerekiyor.Yardımlarınızı bekliyorum.

**muhemar** · 14/05/07, 16:55

tamam hazırlanıyor. biraz bekle. ok ??

**muhemar** · 14/05/07, 17:21

uses crt;
var
i:longint;
j,a:byte;
begin
clrscr;
i:=0;
for j:=1 to 50 do
i:=i+j*j;
writeln( i);
readln;
end.

buyur umarım işini görür..

**gokhanaygun** · 14/05/07, 17:31

kısa bi fazlalık var..orda

uses crt;
var
i:longint;
j:byte;
begin
clrscr;
i:=0;
for j:=1 to 50 do
i:=i+j*j;
writeln( i);
readln;
end.

j,a:byte; orda a değişkeni tanımlamaya gerek yok .sanırım gözden kaçmış.
kolay gelsin

**muhemar** · 14/05/07, 17:39

teşekkürler gökhan...

**nergis_ayse** · 15/05/07, 09:00

çok teşekkür ederim çok sağolun

**muhemar** · 15/05/07, 10:23

rica ederiz ne demek...