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

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Работа в среде Турбо Паскаль. Чтение и составление программ линейных вычислительных процессов. Доклад-сообщение содержит 4 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

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

Слайд 2

$Пример 3.1 Найти синус и косинус угла, заданного в радианах. Program TRIG_1; {заголовок программы} var x,y,z:real; begin writeln('vvedite ugol X v...$

Описание слайда:

Пример 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

$Пример 3.2 Найти синус и косинус угла, заданного в градусах. Program TRIG_2; {заголовок программы} const Pi=3.14; {объявление констант} var...$

Описание слайда:

Пример 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.

Слайд 4

$Пример 3.3 Определить длину окружности (L) и площадь круга (S) радиуса R. L:=2*Pi*R, S:=Pi*sqr(R). Program KRUG_1; {заголовок программы} const...$

Описание слайда:

Пример 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}