В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
dariabelka
dariabelka
01.03.2023 20:41 •  Информатика

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

Показать ответ
Ответ:
dionakavinep08o5z
dionakavinep08o5z
02.10.2020 11:03
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.                                       {конец}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота