Работа в среде Турбо Паскаль. Чтение и составление программ линейных вычислительных процессов

программ линейных вычислительных процессов.

радианах.
Program TRIG_1; {заголовок

программы}
var
x,y,z:real;
begin
writeln('vvedite ugol X v radianah');
read(x);
y:=sin(x);
z:=cos(x);
writeln('sinus ugla raven',y:6:2);
writeln('kosinus ugla raven',z:6:2)
end.

градусах.
Program TRIG_2;

{заголовок программы}
const Pi=3.14; {объявление констант}
var x,x1,y,z:real; {объявление переменных}
begin {тело программы}
writeln('vvedite ugol X v gradusah');
read(x);
x1:=Pi*x/180;
y:=sin(x1);
z:=cos(x1);
writeln('sinus ugla raven',y:6:2);
writeln('kosinus ugla raven',z:6:2)
end.

радиуса R.

L:=2*Pi*R, S:=Pi*sqr(R).
Program KRUG_1; {заголовок программы}
const {razdel objavlenija konstant}
Pi=3.14;
var {razdel objavlenija peremennih}
R,L,S:real;
begin {telo programmi}
writeln('vvedite radius R v metrah');
read(R);
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln('dlina okrugnosti v metrah L=',L:8:2);
writeln('ploschad kruga v metrah kvadratnih S=',S:8:2)
end. {rezultat smotrite ALT+F5}