Кезеңдер бойынша есептер 1. Х және У массивтері берілген. Х массивіндегі элементтерді В массивіне көшіру программасын құру.
2. Program АL;
VAR K,S:Integer; y:Array[1..100] Of Real;
BEGIN For K:=1 To 9 Do Read(y[K]);
S:=0;
For K:=1 To 9 Do If y[K]<0 Then S:=S+1;
Writeln(‘Теріс эл.саны = ‘,S);
Readln END.
Мына есептің шартын жаз.
3.а0хn + а1хn-1 +а2хn-2…+аn-1 х+аn
көпмүшелігінің мәнін Горнер схемасы бойынша есептеу керек.
4. Program ns;
Type mas = Array [1…100]of Integer;
Var x: integer; K:Mas;
Begin For x:=1 to 10 do read(x[k]);
X:=1 Repeat write(x[k]);
While k>10;
Readln end;
Readln end.
Осы прогамманың қатесін тап.
5.Төмендегі программаның денесін тап.
Program Go;
Const n = …; type ms=array[0..n] of real;
Var a:ms; k:integer; x,y:real;
Begin write(,[x мәнін енгіз=?’);
Readln (x); y:=0;
For k:=0 to n do
Begin write (‘a [’,k,’] =?’); readln(a[k]);
Y:=Y*x+a [k] end;
Write (‘y(‘,x:4:2,’)=’,y:5:3)
End
