Модуль 3. Задание 3

- Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры.
7.  Оператор присваивания в ЯП Pascal:
  <переменная>:=<выражение>
Примеры:
X: =(Y+Z)/(2+Z*10-1/3);
LogPer: = (A>B) and (C<=D).
Оператор присваивания в ЯП Basic:
<переменная>=<выражение>
Примеры: 
L=8

Р==Р+1

- Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.

8. Оператор ветвления в ЯП Pascal: 

  If <логическое выражение>  then <оператор 1>else <оператор 2>;

Пример: 

Program max3_1;

Var X, Y, Z, MAX: real;

Begin

write(‘Введите X, Y, Z ’); readln(X, Y, Z);

if X > =Y

then if X > = Z then MAX : =X else MAX : =Z

else if Y > = Z then MAX : =Y else MAX : =Z writeln(‘Максимальное значение’, MAX)

end.

Оператор ветвления в ЯП Basic:

IF условие ТНЕN блок_операторов_1 ELSE блок_операторов_2 END IF

Примеры:

INPUT X, M
IF M<0 THEN
                S=X*X
                PRINT"ПЛОШАДЬ КВАДРАТА";S
              ELSE
                S=PI*X*X
                PRINT "ПЛОЩАДЬ КРУГА";S
END FI
END

- Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic.

9.  Оператор ввода и вывода в ЯП Pascal: 

READLN('У машины 4 колеса') с клавиатуры вводим: у машины 4 колеса

WRITELN('У машины 4 колеса'); на экране появится: у машины 4 колеса

Оператор ввода и вывода в ЯП Basic:
INPUT " введите длины сторон прямоугольника "; a , b 
PRINT " a = " ; a ; " b = " ; b 
PRINT " a = " ; a , " b = " ; b 
PRINT "площадь = " ; a * b 
PRINT " "; 
PRINT TAB(27)"периметр прямоугольника = " ; 2 * ( a + b )
- Приведите примеры записи любого цикла на ЯП Pascal.
10. Примеры записи циклов на ЯП Pascal. 
I. С использованием цикла "Пока".
Program Ex1;
Var 
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
While A<=100 Do
Begin
S:=S+A*A;
A:=A+1
End;
Writeln(S)
End.
II. С использованием цикла "До".
Program Ex2;
Var 
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
Repeat
S:=S+A*A;
A:=A+1
Until A>100;
Writeln(S)
End.
III. С использованием цикла "С параметром".
Program Ex3;
Var 
A : Integer;
S : Longint;
Begin
S:=0;
For A:=1 To 100 Do S:=S+A*A;
Writeln(S)
End.

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

11.Цикл с параметром на ЯП Basic.

Программа для вычисления квадратов четных чисел от 2 до 10 

FOR J=2 ТО 10 SТЕР 2
    PRINT J, J*J
NEXT J
END