Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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.                                       {конец}