Модуль 3

Задание 3


7. Операторы присваивания в ЯП Pascal.
<переменная>:=<выражение>
Пример:
Begin                        
number1 := 3;       
number2 := 4;      
rezult := number1 + number2;
Write (number1, '+', number2,'=',rezult);                   
End.                        
Опрератор присваивания в ЯП Basic.
<переменная>:=<выражение>
Пример:
Dim a, b As String
a = "String variable assignment"
b = "Con" & "cat" & "enation"
8.Операторы ветвления в ЯП Pascal
if <логическое выражение>  then <оператор 1>  else <оператор 2>;
Пример:
if X>=Y
then if X>=Z then MAX:=X else MAX:=Z
else if X>=Z then MAX:=Y else MAX:=Z
Операторы ветвления в ЯП Basic
if  условие Then
Серия 1
Else
Серия 2
End if
Пример:
if M<0 Then
S=X*X
Print "Площадь квадрата";S
Else
S=PI*X*X
Print "Площадь круга";S
End if
9.Операторы ввода-вывода.Примеры:
ЯП Pascal
writeln(‘Введите числовое значение месяца’);
    readln(n);
    case n of
1, 2, 12: writeln(‘зима’);
3..5: writeln(‘весна’);
6..8: writeln(‘лето’)
else writeln(‘осень’);
end.
ЯП Basic
CLS
'Определите площадь треугольника по формуле Герона.
INPUT "Введите величину стороны a: a=", a
INPUT "Введите величину стороны b: b=", b
INPUT "Введите величину стороны c: c=", c
p = (a + b + c) / 2
S = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "Ответ: площадь треугольника равна: S="; S
10.Запись цикла в ЯП Pascal
program ymnoj_8;
var i: byte;   {i- параметр цикла}
        r: integer;        
begin
writeln (‘Таблица умножения для 8’);
for i:=4 to 15 do begin                                       
r:=8*I;                                    
write(r:5);                            
                          end;
end.
11. Запись цикла с параметром в ЯП Basic
for <переменная>  E1 to E2 step E3 do S
SCREEN 9FOR Х=0 ТО 640 STEP 10
CIRCLE (X, 175), Х/4, 15 NEXT X