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

Оператор ветвления
Паскаль if <логическое выражение> then <оператор1> else <оператор2>;
Примеры: if x > 0 then modul := x else modul := -x;

if k > 0 then WriteLn('k - число положительное');

if min > max then begin
t := min;
min := max;
max := t;
end;




Basic if условие then
Серия1
else
серия2
end if
Примеры: If x - y <> 0 Then
z = (x + y) / (x - y)
MsgBox ("z=" + Str(z))
Else
MsgBox ("Знаменатель равен =0")
End If

If x - y <> 0 And x > 0 Then
z = (x + y) / (x - y) + Sqr(x)
MsgBox ("z=" + Str(z))
Else
MsgBox ("Выражение не имеет смысла")
End If

Примеры записи операторов ввода и вывода ЯП Паскаль:
var rA, rB: Real;
iP,iQ:Integer;
bR, bS: Boolean;
chT, chV, chU, chW: Char;
begin
. . .
WriteLn(rA, rB:10:2);
WriteLn(iP, iQ:8);
WriteLn(bR, bS:8);
WriteLn(chT, chV, chU, chW);
end.

read(a,b,c);
write(a,b,c);
Примеры записи операторов ввода и вывода ЯП Basic:
DIM height!, breadth!, length!
CLS
INPUT height!
INPUT breadth!
INPUT length!
PRINT
PRINT "Результат "; height! * breadth! * length!
'Конец программы

DIM height!, breadth!, length!
CLS
INPUT "Введите, пожалуйста, высоту :"; height!
INPUT "Введите, пожалуйста, ширину :"; breadth!
INPUT "Введите, пожалуйста, длину :"; length!
PRINT
PRINT "Результат V="; height! * breadth! * length!
'Конец программы
Примеры записи цикла на ЯП Паскаль:
1) Квадраты чисел от 2-х до 10-и.
for x:=2 to 10 do WriteLn(x*x); цикл с параметром
2)eps:=0.001;
while x > eps do x:=x/2; цикл с предусловием
3) repeat
WriteLn('Введите положительное число');
ReadLn(x);
until x>0; цикл постусловием

Примеры записи цикла с параметром на ЯП Basic:
Вычислите значение Sin, Cosи tgуглов от 0 до 45 градусов с шагом 1 градус.
CONST PI=3.1415
FOR I=1 TO 45
X=PI*I/180
Y1=SIN(X)
Y2=COS(X)
Y3=TAN(X)
PRINT I, “Sin=”;Y1, “Cos=”; Y2, “tg=”; Y3
NEXT I

Вывести на экран часы, которые в цифровой форме показывали бы часы, минуту и секунды.
10 FOR i=0 TO 23
20 FOR j=0 TO 59
30 FOR k=0 TO 59
40 PRINT i; ”:”; j”:” ;k
50 FOR S=1 TO 1450
60 NEXT S
70 CLS
80 NEXT k
90 NEXT j
100 NEXT i