Модуль 3 задание 3 часть 2

7)В языке Паскаль:
<переменная>: = <выражение>
Например: x:=A+654
 В языке Basic:
<переменная> = <выражение>
Например: x=A+129

8) В ЯП Паскаль

If <логическое выражение> then <оператор1> else <оператор2>;
Например: Program r;
var x, y, z : real;
begin readln(x, y);
if x>y
then z:=x
else z:=y;
writeln(Сz
end.

В ЯП Basic
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)
Например:Dim x, y, z As Double
x = Val(InputBox("Введите x="))
y = Val(InputBox("Введите y="))
If x - y <> 0 Then
z = (x + y) / (x - y)
MsgBox ("z=" + Str(z))
Else
MsgBox ("Знаменатель равен =0")
End If
End Sub

9) В ЯП Паскаль

Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);
Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >);
Например: readln(b);
writeln (b);
В ЯП Basic
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>
Например: INPUT
PRINT 

10) Цикл с параметром

For i:= N1 To N2 Do <оператор>;
либо
For i:= N1 DownTo N2 Do <оператор>;
Например:
Program Ex3;
Var
A : Integer;
S : Longint;
Begin
S:=0;
For A:=1 To 100 Do S:=S+A*A;
Writeln(S)
End.

11)Цикл “для” (цикл с параметром):

FOR параметр = начальное_значение TO конечное_значение [STEP шаг]
тело_цикла
NEXT параметр
Например:
Sub сумма4()
Dim x, s As Integer
s = 0
For x = 0 To 100
s = s + x
Next x
MsgBox ("s=" + Str(s))
End Sub