. Компьютермен жұмыс

1-ден n – ге дейінгі сандардың квадраттарының қосындысын табатын программа құру керек.
Program kvadrat;
Var s, i , n: integer;
Begin
WriteLn (‘ n = ’) ;
Readln (n);
I:=1;
S:=0;
While i<=n do
Begin S:=S + sqr (i);
I:= i+1;
WriteLn (‘ S=’ , S);
End;
End.

Деңгейлік тапсырма
А. Осы программаны компьютерде теріп орындаңдар. (5ұп)
В. Осы программаны тақ сандардың қосындысын табатындай етіп өзгертіп, компьютерде орындаңдар. (10ұп)
С. Осы программаны тақ сандардың квадратының қосындысын табатындай етіп өзгертіп, қателерін тексеріп, түрлі мән беріп бірнеше рет орындаңдар, файлды өз фамилияларың мен есеп нөмірін файл аты етіп сақтаңдар. (15 ұп)

Мағынаны тану. Топтық жұмыс
ЖИГСО әдісі
Үш топқа бір есеп беріледі.
1 топ- берілген есептің блок-схемасын сызады, ережелерін айтып өтеді.
2 топ- программасын құрады.
3 топ – компьютерде орындайды
салысытырып, тексереді.

Енді мына есепке программа жазып көрелік.
Е С Е П: Бүтін М санына дейінгі жұп сандардың қосындысын табатын программа жазыңыз.
Мат.мод.
1. Не белгілі? М – бүтін, қайталау параметрі а- бүтін,
2. Не табу керек? Жұп сан қосындысы s – бүтін,
3. Қалай есептейміз;
М –мәнін енгіземіз, а:=2 қосынды s:=0
болады
а< m болса а=m болғанша қайталанады,
s:=s+а: а:=а+2;
қайталаймыз.

Программа мәтіні:
program м1;
var s,а,m:integer;
begin
s:=0; а:=2;
write('bytin san engiz ');
read(m);
while а<=m do
begin
s:=s+а; а:=а+1;
end;
write('summa s=',s);
end. .