Pascal Problemi (Yardım Lazım)
-
arkadaşlar pascal programımız şu;
1 den 500 e kadar olan tek sayıların karelerinin toplamını ve 500 den 1000 e kadar olan çift sayıların kareköklerinin toplamını hesaplayan program.
veriler 2 farklı renkte yazılacak
ve benim yazdığm program şu fakat "." expected hatası verio bir inceleyip düşüncenizi yazarak yardımcı olursanız çok mutlu olurum:
Program test;
uses crt;
var
s,i:Integer;
t:Longint;
c:Real;
begin clrscr;
t:=0; c:=0;
for i:=1 to 500 do
begin;
If i mod 2 = 1 then t:=t+SQR(i) end;
textcolor(green);
writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;
readln;
end;
for s:=500 t0 1000 do
begin;
If s mod 2 = 0 then c:=c+SQRT(s);
end;
end;
textcolor(purple);
write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);
writeln;
readln;
end.
-
tosunum son satırı
end;
end.
bu şekilde düzelt
-
Program test;
uses crt;
var
s,i:Integer;
t:Longint;
c:Real;
begin clrscr;
t:=0; c:=0;
for i:=1 to 500 do
begin;
If i mod 2 = 1 then t:=t+SQR(i) end;
textcolor(green);
writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;
readln;
end; BURADA "." expected hatası verio usta ne yaptıysam ne denediysem düzelmedi.bir de şaşırtırıcı olan şey bunu dier end'te vermio bunda verio.
for s:=500 to 1000 do
begin;
If s mod 2 = 0 then c:=c+SQRT(s);
end;
end;
textcolor(purple);
write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);
writeln;
readln;
end.
-
orayı end şeklinde yaz nokta felan koyma
-
aradaki end leri kaldırdım çalıştı???
hoca bize böle öğretmemişti acaba sınavda da öle yazsam puan verir mi?
-
Geenmeboo bunu yazdı:
-----------------------------arkadaşlar pascal programımız şu;
1 den 500 e kadar olan tek sayıların karelerinin toplamını ve 500 den 1000 e kadar olan çift sayıların kareköklerinin toplamını hesaplayan program.
veriler 2 farklı renkte yazılacak
ve benim yazdığm program şu fakat "." expected hatası verio bir inceleyip düşüncenizi yazarak yardımcı olursanız çok mutlu olurum:
Program test;
uses crt;
var
s,i:Integer;
t:Longint;
c:Real;
begin clrscr;
t:=0; c:=0;
for i:=1 to 500 do
begin;
If i mod 2 = 1 then t:=t+SQR(i) end;
textcolor(green);
writeln('1den 500e kadar olan tek sayilarin toplami..=',t);writeln;
readln;
end;
for s:=500 t0 1000 do
begin;
If s mod 2 = 0 then c:=c+SQRT(s);
end;
end; (bu end' i sil fazladan yazmışsın )
textcolor(purple);
write('500den 1000e kadar olan çift sayilarin kareköklerinin toplami...=',c:10:3);
writeln;
readln;
end.
-----------------------------