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

- Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры.
Оператор присваивания
В языке Паскаль: <переменная>: = <выражение> Пример: X := Y + Z
В языке Basic: <переменная> = <выражение>      Пример: Result = a * b
- Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.
Оператор ветвления
В ЯП Паскаль: If <логическое выражение> then <оператор1> else <оператор2>;
Пример: If Condition Then Statements Else ElseStatements
В ЯП Basic: If Условие Then

Серия 1 Else

Серия 2 End If (Visual Basic)
Пример: If Condition Then  Statements
            End If
- Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic.
Паскаль:  Read(rV, rS, iW, iJ);  WriteLn(rA, rB:10:2);
Бейсик:    INPUT “Ввод координат точки М(X1,Y1)”, X1,Y1                                                                 
               PRINT “C=”; C; “При А=”; A; “и В=”; B      
- Приведите пример записи любого цикла на ЯП Pascal.  

Var

S,B : String;

I : Byte;

Begin

Writeln('Введите строку');

Readln(S);

B:=''; {Переменной B присваиваем значение "пустая строка"}

For I:=1 to Length(S) do

B:=S[I]+B; {Конкатенация. Символы строки S пристыковываются к}

{переменной B слева. Самым левым окажется последний.}

If B=S Then Writeln('Перевертыш') Else Writeln('Не перевертыш')

End.

- Приведите пример записи цикла с параметром на ЯП Basic.

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