Инф олимпиада doc
жүктеу/скачать 91,93 Kb.
|
1544775476 (1)
| Кезеңдер бойынша есептер
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 жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу:
|