1. Найти площадь равнобокой трапеции с основаниями a и b и углом α при большем основании. 2. Ввести три вещественных числа. Вывести значение того из них, у которого дробная часть наименьшая. 3. Ввести целое положительное чет...

1. Найти площадь равнобокой трапеции с основаниями a и b и углом α при большем основании. 2. Ввести три вещественных числа. Вывести значение того из них, у которого дробная часть наименьшая. 3. Ввести целое положительное четырехзначное число. Вычислить сумму первой и второй цифр и произведение третьей и четвертой. Если сумма больше произведения, то логической переменной ℓ присвоить значение true, иначе – false.
Гость
Ответ(ы) на вопрос:
Гость
program Trapez;      {название программы}      uses Crt;               {подключаемый модуль}  var a, b, alfa: real;   {переменные: стороны и угол при основании трапеции}      h, S: real;           {переменные: высота и площадь} begin                       {начало}  ClrScr;                    {очистка экрана}  repeat                     {цикл ввода}    Write (' alfa (w grad) = ');      {ввод угла}    ReadLn(alfa);    Write (' a = ');    ReadLn(a);  {ввод большей стороны}    Write (' b = ');    ReadLn(b);  {ввод меньшей стороны}  until (a>b) and (alfa<>90) ;      {контроль за вводом: надо а>b и alfa<>90}  alfa:=alfa*pi/180;                    {перевод в радианы}  h:=(a-b)/2*sin(alfa)/cos(alfa);    {вычисление высоты}  S:=(a+b)*h/2;                          {вычисление площади}  WriteLn(' S = ', S:6:2);            {вывод результата}  ReadLn;                                {ожидание нажатия ENTER} end.                                       {конец}
Не нашли ответ?
Ответить на вопрос
Похожие вопросы