Практическая работа «Знакомство с ABC Pascal»

Практическая работа: «Знакомство с ABC Pascal»

Упражнение 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.                                                    {Конец программы}

Задания для самостоятельной работы

1.     Вычислите среднее арифметическое (a+b)/2.

2.     Составить программу вычисления площади и периметра прямоугольника по двум введенным сторонам. Предусмотреть вывод на экран сообщения о результате.

3.     Вычислить сумму цифр трехзначного числа.

4.     Вычислить произведение цифр трехзначного числа.