Задания уровня 1

Дата добавления: 2015-07-23; просмотров: 1671; Нарушение авторских прав

Упражнение 1. Создать программу, вычисляющую длину гипотенузы c и величины двух углов α и β прямоугольного треугольника, если заданы длины двух его катетов a и b. Значения катетов вести с клавиатуры.

1. Наберите текст программы:

Program Pr_1; {Заголовок программы Pr_1}

var{Раздел описаний}

a, b, c, alf, bet : real; {Переменные a, b, c, alf, bet - вещественные}

Begin{Тело программы}

Write('a='); {Вывод запроса на экран}

Read (a);{Ввод значения a с клавиатуры}

Write('b='); {Вывод запроса на экран}

Read (b);{Ввод значения b с клавиатуры}

c:=sqrt(a*a+b*b); {Вычисление гипотенузы c}

alf:=arctan(a/b); {Вычисление угла alf }

bet:=arctan(b/a); {Вычисление угла bet }

Writeln('c=', c:6:2); {Вывод ответа}

Writeln('Радианы'); {Вывод ответа: углы в радианах}

Writeln('alf=', alf:6:2, 'bet=', bet:6:2);

End. {Конец программы}

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P1PR1

Упражнение 2. Закрепление навыков набора и редактирования текста.

1. Отредактируйте текст программы, добавив вывод значений углов в градусах:

Writeln('Градусы'); {Вывод ответа: углы в градусах}

Writeln('alf=', alf*180/ pi :3:0, 'bet=', bet*180/ pi :3:0);

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P1PR2

3. Выполнить самостоятельно:

<== предыдущая лекция	\|	следующая лекция ==>
Технология работы	\|	Задания уровня 3