Практическая работа « Основы работы в Pascal»

Практическая работа

« Основы работы в Pascal»

Упражнение 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. Запустите программу на выполнение и проверьте её работу

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

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

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

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

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

Задания:

Решите в программе Pascal задачи:

1. Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.

2. Найдите произведение цифр заданного четырехзначного числа.

3. Даны два числа. Найдите среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.

4. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

5. Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.