Read , Readln,Write, Writeln операторлары

>end.
Экранда төмендегідей нәтиже көрінеді:
R мәнін енгізіңдер:
0. 2
нәтиже:
шеңбер ұзындығы L 1. 257
4. Бекіту тапсырмалары.
1 тапсырма. Мәндерін табыңыз. Экранға қандай мәлімет шығады?
WRITE(32) – шығады
WRITE(32) – шығады
WRITE(122, 122) – шығады
WRITE(Менің Отаным - Қазақстан) - шығады:
WRITE(6div25mod2) –
WRITE(7/3:3:1) –
2 тапсырма. Тіктөртбұрыштың периметрін табу программасын құрыңдар.
3 тапсырма. Программа құрыңыз. ДК орындаңыз.
Алг есептеу (бер нақ х,нәт нақ у)
Басы
Енгізу х

шығару у
Соңы
4 тапсырма.
Сематикалық карта.
5 тапсырма. Программа құрыңыз.
6 тапсырма. Қатесін тап.
Радиусы R-ге тең шеңбер берілген. Шеңбердің ұзындығын есептеу программасын құр.
Program шеңбер;
Const PI3. 14159;
Var L: Real ;
R Integer;
Begin
Writeln(R-ді енгіз)
Readln (R);
L2PiR
Writeln(L,L:4:2);
End.
7 тапсырма. Есепте.

5. Үйге тапсырма.
1. Y(AXB)-С өрнегінің
алгоритмін, блок-схемасын,программасын
құрып келу.
2. yx21 функциясын есептейтін программа жазыңыз.
7 15
7,15
X7
7 11
XY 22
11-cоңы
бітті
Program k;
Var x,y:integer; z: real;
Begin
z:(sin(x)-y)/(abs(y)cos(y));
Writeln(z,z);

End.
Program p1;
Var A,B,X:Real;
Begin
Readln(A,B);
X:Sqr(A)Sqr(b);
Writeln(Қосынды,X:2:4);
End.
Program R;
Var a,b,h, s::integer;
Begin
readln(a,b,h);
s:(ab)h/2;
Writeln (s,s);
End;
Program f;
Var v, t, s::integer;
Begin
readln(v, t);
s:vt;
Writeln (s,s);
End;
Дұрыс жауабы:
Program шеңбер;
Const PI3. 14159;
Var L: Real ;