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 karekklerinin toplamını hesaplayan program. veriler 2 farklı renkte yazılacakve 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;vars, i:Integer;t:Longint;c:Real;begin clrscr;t:=0; c:=0;for i:=1 to 500 dobegin;If i mod 2 = 1 then t:=t+SQR end;textcolor ;writeln('1den 500e kadar olan tek sayilarin toplami..=', t);writeln;readln;end;for s:=500 t0 1000 dobegin;If s mod 2 = 0 then c:=c+SQRT ;end;end;textcolor ;write('500den 1000e kadar olan çift sayilarin karekklerinin toplami...=', c:10:3);writeln;readln;end. NEDEN?

: 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 karekklerinin toplamını hesaplayan program. veriler 2 farklı renkte yazılacakve 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;vars, i:Integer;t:Longint;c:Real;begin clrscr;t:=0; c:=0;for i:=1 to 500 dobegin;If i mod 2 = 1 then t:=t+SQR end;textcolor ;writeln('1den 500e kadar olan tek sayilarin toplami..=', t);writeln;readln;end;for s:=500 t0 1000 dobegin;If s mod 2 = 0 then c:=c+SQRT ;end;end; textcolor ;write('500den 1000e kadar olan çift sayilarin karekklerinin toplami...=', c:10:3);writeln;readln;end. http:// bilgisayarkullanicisi. blogspot.com/ http://bilgisayarkullanicisi.blogspot.com/

orayı end şeklinde yaz nokta felan koyma sırıtma la.

aradaki end leri kaldırdım çalıştı?hoca bize ble ğretmemişti acaba sınavda da le yazsam puan verir mi? NEDEN?

Program test;uses crt;vars, i:Integer;t:Longint;c:Real;begin clrscr;t:=0; c:=0;for i:=1 to 500 dobegin;If i mod 2 = 1 then t:=t+SQR end;textcolor ;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 dobegin;If s mod 2 = 0 then c:=c+SQRT ;end;end;textcolor ;write('500den 1000e kadar olan çift sayilarin karekklerinin toplami...=', c:10:3);writeln;readln;end. NEDEN?

tosunum son satırıend;end. bu şekilde düzelt sırıtma la.