Задание 3 для модуля 3 (часть 2)

7. Операторы присваивания.
В языке Паскаль:
<переменная>: = <выражение>
пример:
X:=(Y+Z)/(2+Z*10-1/3)

В языке Basic:
<переменная> = <выражение>
пример:
L=8
P=P+1

8. Оператор ветвления.
В ЯП Паскаль
If <логическое выражение> then <оператор1> else <оператор2>;

Пример: Из трех данных вещественных чисел X, Y, Z выбрать наибольшее.
Решение: Используем алгоритм с выложенными полными ветвлениями.
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 Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)

Пример: Составить программу для вычисления площади круга или площади квадрата в зависимости от введенного признака.
Программа:
INPUT X, M
IF M<0 THEN
S=X*X
PRINT"ПЛОШАДЬ КВАДРАТА";S
ELSE
S=PI*X*X
PRINT "ПЛОЩАДЬ КРУГА";S
END FI
END

9. Операторы ввода-вывода.
Паскаль:
Program Car;
Var V, V1, T, S, S1, S2: Real;
Begin
Write(‘введите скорости автомобилей, расстояние между ними и время движения:’);
ReadLn(V, V1, S, T);
S1: = S + (V + V1) * T;
S2: = abs((V + V1)*T – S);
WriteLn(‘Расстояние будет равно’, S1:7:4, ‘км или’, S2:7:4,’км’);
End.

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

10. Пример цикла на Паскаль:
Program Natur;
var a, Summa, N: integer;
begin
write(‘N=’); readln(N);
{Цикл с предусловием}
a: = 1; Summa: = 0;
while a < = N do
begin
Summa: = Summa + a;
a: = a + 1
end;

11. Пример цикла с параметром на Basic:
Составить программу для вычисления квадратов четных чисел от 2 до 10.
Программа
FOR J=2 ТО 10 SТЕР 2
PRINT J, J*J
NEXT J
END