Zadanie suma kwadratów/ sprawdzenie

0

mógłby ktoś sprawdzić czy to zadanie bedzie dobrze ?

Zbuduj program w języku Pascal, który dla zadanych liczb naturalnych n i m (n<m) oblicza sumę kwadratów wszystkich liczb naturalnych od n i m . Wykorzystać instrukcję for...do .

var
suma,n,m,i:integer;

begin
suma:=0;
readln(n,m);
for i := n to m do

begin
suma := suma + (i *i);
end;
write('Suma kwadratow liczb z przedziału od ',n,' do ',m,' = ',suma);
end.

0

Zamiast

begin
  suma := suma + (i*i);
end;

możesz

Inc(suma, Round(sqr(i)));

Ale poza tym dobrze, przydałoby się zrobić to idioto-odporne czyli sprawdzanie czy użytkownik wpisał liczbę i ta liczba nie jest przypadkiem zmiennoprzecinkowa albo n mniejsze od m.

0

może delikatnie zwrócić uwagę autorowi, że ma braki w matematyce?

0

imho program spełnia wszystkie założenia, jest prosty i przejrzysty. jedyne do czego można się przyczepić, to formatowanie:

program SumaKwadratów; // to dla oceniającego
var
  suma, n, m, i : integer;

begin
  suma := 0;
  Readln(n, m);

  for i := n to m do
  begin
    suma := suma + i * i;
  end;

  Write('Suma kwadratow liczb z przedziału od ', n, ' do ', m, ' = ', suma);
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1