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

Пример 3.1 Найти синус и косинус угла, заданного в радианах. 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.

Пример 3.2 Найти синус и косинус угла, заданного в градусах. 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.

Пример 3.3 Определить длину окружности (L) и площадь круга (S) радиуса 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}