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


Упражнение 1.
     Создать программу, вычисляющую длину гипотенузы c и величины двух углов alf и bet прямоугольного треугольника, если заданы длины двух его катетов 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. Для просмотра результатов выполненной программы необходимо нажать:

<balt-f5< b="">

4. Сохраните программу на своем диске: 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. Сохраните программу на своем диске: A:\P1PR2

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

1. Заданы радиус основания и высота цилиндра. Вычислить площадь основания и объем. Площадь основания вычисляется по формуле, объем цилиндра равен V=S*h. Сохраните как P1PR3.
2. Вычислите среднее арифметическое (a+b)/2. Сохраните программу как P1PR4.
3. Составить программу вычисления площади и периметра прямоугольника по двум введенным сторонам. Предусмотреть вывод на экран сообщения о результате. Сохраните как P1PR5.
4. За решение четырех задач студент получил оценки (от 1 до 5). Составьте программу, которая определит среднее значение оценок, полученных студентом за задачи. Сохраните программу как P1PR6.

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

5. Четыре человека пообедали в ресторане. Официант подал каждому счет. Они решают оставить официанту чаевые в размере 15% от счета. Составить программу, которая выведет на экран сумму чаевых, которую получил официант. Сохраните программу как P1PR7.
6. Составить программу, которая определяет, сколько времени в минутах затратит школьник на дорогу из школы до стадиона, если известна длина этого расстояния S км и средняя скорость движения школьника v км/ч? Сохраните программу как P1PR8.
7. Три четверти пассажиров самолета имеют билеты второго класса стоимостью X рублей каждый. Остальные пассажира имеют билеты первого класса, которые стоят в два раза дороже билетов второго класса. Напишите программу, которая выведет сумму денег, получаемую авиакомпанией от продажи билетов на этот рейс, если салон самолета рассчитан на V пассажиров. Сохраните программу как P1PR9.

 

Контрольные вопросы:
1. Как запустить среду программирования TURBO PASCAL?
2. В чем заключается назначение следующих опций пункта меню File: Save As, Save, Open, Exit?
3. Как просмотреть результаты выполнения программы в окне пользователя?
4. Как откомпилировать файл программы?