Модуль 3, задание 3

6. Как выглядит структура программы на ЯП Pascal?
Program <Имя программы>;
Label <раздел описания меток>;
Const < раздел описания констант>;
Type < раздел описания типов>;
Var < раздел описания переменных>;
Procedure (Function) < раздел описания подпрограмм>;
Begin
<раздел операторов>
End.

7. Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры.
в ЯП Pascal:
<переменная>: = <выражение>(например- S:=V*t),

в ЯП Basic:
<переменная> = <выражение>(например-y=x*3)

8. Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.
If <логическое выражение> then <оператор1> else <оператор2>
Пример
Program Info1; 
Var A,B,C: Real;
Begin 
Writeln('Введите два числа'); 
Readln(A,B); 
If A>B Then C:=A Else C:=B; 
Writeln(C); 
End. 

в ЯП Basic:
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)

Пример 
REM определить большее из двух чисел... 
INPUT "Введите а", а INPUT "Введите b", b 
IF a>b THEN
PRINT "Большее число: ", a
с=2*a
ELSE
PRINT "Большее число: ", b
с=2*b
END IF
PRINT "результат: ", c
END

9. Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic.
ЯП Паскаль
Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);
Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >);

Пример:
Program Info2;
Var
R,S : Real;
Begin
Write('Введите радиус круга '); 
Readln(R); 
S:=4*ARCTAN(1)*SQR(R); 
Writeln('Площадь круга радиусом ',R,' равна ',S)
End.

ЯП Basic
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>

Пример:
INPUT " введите длины сторон прямоугольника "; a , b 
PRINT " a = " ; a ; " b = " ; b 
PRINT " a = " ; a , " b = " ; b 
PRINT "площадь = " ; a * b 
PRINT " "; 
PRINT TAB(27)"периметр прямоугольника = " ; 2 * ( a + b )

10. Приведите примеры записи любого цикла на ЯП Pascal.
Пример кода оператора цикла Паскаля с постусловием 
Readln(n);
i:=0; 
y:=0; 
Repeat 
i:=i+1; 
y:=y+1/i; 
Until i>n;

11. Приведите пример записи цикла с параметром на ЯП 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