Шаг 1. Начало задачи
Шаг 2. Ввод: X
Шаг 3. Решение: Y=5*x*х+9*x+12
Шаг 4. Вывод: Y
Шаг 5. Конец.
2.2. Графический вид алгоритма
2.3. Программа на языке Паскаль:
Program Zadacha_1;
Var
Y,x:integer;
Begin
Write(‘x=’); Readln(x);
Y:=5*x*x+9*x+12;
Writeln(‘Y=’,Y);
End.
Найдите длину круга l, если радиус окружности R (l=2πR)
Program Zadacha_2;
Const
π=3.14;
Var
R:integer;
L:Real;
Begin
Write(‘R =’); Readln(R);
L:= 2*π*R;
Writeln(‘L =’, L);
End.
Задание 1. Вычислите:
1-вариант | 2-вариант | 3-вариант |
а) a:=78 mod 5 б) b:=97 div 9 в) kl:=(50 div 4) mod 5 г) fl:=82 mod (30 div 7) д) y1:=int(5.7) е) y2:=trunc(5.7) ж) y3:=frac(5.7) з) y4:=round(5.7) и) y5:=pred(Z) к) y6:=succ(R) л) y7:=ord(D) м) y8:=chr(86) | а) a:=99 mod 8 б) b:=68 div 5 в) kl:=(71 div 6) mod 2 г) fl:=95 mod (35 div 8) д) y1:=int(6.2) е) y2:=trunc(6.2) ж) y3:=frac(6.2) з) y4:=round(6.2) и) y5:=pred(K) к) y6:=succ(O) л) y7:=ord(P) м) y8:=chr(80) | а) a:=65 mod 8 б) b:=77 div 5 в) kl:=(83 div 6) mod 3 г) fl:=92 mod (29 div 7) д) y1:=int(4.5) е) y2:=trunc(4.5) ж) y3:=frac(4.5) з) y4:=round(4.5) и) y5:=pred(B) к) y6:=succ(G) л) y7:=ord(Q) м) y8:=chr(87) |