модуль 3 Задание 3

1)в состав любого языка программирования входят компоненты:Используемые символы (алфавит),Типы данных, Структуры данных, Семантика.
2)зарезервированными в ЯП называются-используемые символы
В языке Паскаль, например:MOD STRING FOR THEN NOT TO BEGIN CASE CONST IF OR UNTIL
IN VAR DIV INDEX PROCEDURE DO PROGRAM WHILE DOWNTO ELSE END REPEAT
В языке Basic, например:DIM THEN NEXT REM ELSE WHILE TO R END GOTO MOD INPUT ON NOT PRINT FOR AND IF
3) Имена (идентификаторы) называют элементы языка - константы, метки, типы, переменные, процедуры, функции, модули, объекты.
идентификаторы используемые в ЯП Pascal:Имя - это последовательность латинских букв и цифр, начинающаяся с буквы(Anna,Lena,Kot).
В именах может использоваться символ _ подчеркивание( _name, name_, name_item).
Не разрешается использовать в качестве имен служебные слова и имена, которыми названы стандартные константы, типы, процедуры, функции и файлы(Var,Begin,of-нельзя).
Идентификаторы Basic могут содержать латинские буквы, цифры и некоторые символы и должны начинаться с буквы(Kniga,Kot,Anna).
В конце идентификатора может быть суффикс – символ «$» или «%»(а$,F1$,MID$).
Не разрешается использовать в качестве имен служебные слова(FOR,LOOP,END).
4)тип данных в языке программирования определяет :
a) возможные значения переменных, констант, функций, выражений, принадлежащих к данному типу;
b)внутреннюю форму представления данных в ЭВМ;
c)операции и функции, которые могут выполняться над величинами, принадлежащими к данному типу
5) пример записи массивов в ЯП Pascal.
Program Test;

uses CRT;

const N = 10;

var
A : array [1..N] of integer;
i : integer;
begin
ClrScr;
randomize;

for i := 1 to N do
begin
A[i] := random (256);
writeLn ('A[', i, '] = ', A[i])
end
end.
пример записи массивов в ЯП Basic.
Private Type Student ' вместо Private могло быть и Public
 FIO As String
 Age As Byte
 HasGramot As Boolean
End Type
6) структура программы на ЯП Pascal:
Program <Имя программы>;

Label <раздел описания меток>;

Const < раздел описания констант>;

Type < раздел описания типов>;

Var < раздел описания переменных>;

Procedure (Function) < раздел описания подпрограмм>;

Begin

<раздел операторов>

End.
7)операторы присваивания в ЯП Pascal:В языке Паскаль:
<переменная>: = <выражение>(например- S:=V*t),

операторы присваивания в ЯП Basic:
<переменная> = <выражение>(например-y=x*3)
8)операторы ветвления в ЯП Pascal
В ЯП Паскаль
If <логическое выражение> then <оператор1> else <оператор2>
пример
program my_work2; {yravnenie}

uses crt;

Var

F,A,B,C,D,X,X0,X1:real;

Begin

clrscr;

textcolor(4);

writeln('vedite A,B,C');

writeln('A,B,C nekotora chisla');

writeln('D=Diskriminant');

writeln('F=koren D');

readln(A,B,C);

D:=B*B-4*A*C;

if D<0 then writeln('resheni net') else Begin; F:=sqrt(D); X:=(-b-sqrt(D))/(2*a); X0:=(-b+sqrt(D))/(2*a); end; writeln('D=',D:1:4); writeln('F=',F:1:4); writeln('X=',X:1:4); writeln('X0=',X0:1:4); readln; 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(<список вывода >)
Пример записи операторов вывода:
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.
примеры записи операторов ввода и вывода ЯП Basic.В ЯП 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