Есть ответ 👍

Function s(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; var a,b,c,k,v,t,o,g,e,q,r,w: real; begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 '); //если радиус,то нажмите 1. если площадь, то нажмите 2 readln(g); if g=2 then begin writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)? '); readln(e); if e=1 then begin write('сторона а='); readln(a); write('сторона b ='); readln(b); write('сторона с ='); readln(c); q: =s(a,b,c); r: =(a+b+c)/2*q; writeln('радиус вписанной окружности =' , r ); end else if e=2 then begin write('сторона а='); readln(a); write('сторона b ='); readln(b); write('сторона c ='); readln(c); q: =s(a,b,c); w: =a*b*c/4*q; writeln('радиус описанной окружности =', w ); end else if g=1 then begin writeln('что вам известно? если а и h, то нажмите 1. если а , b,с то нажмите 2 ' ); //а-сторона; h-высота,проведенная на сторону; b-cторона; с -сторона; readln(k); if k=1 then begin write('высота ='); readln(v); write('cторона='); readln(t); o: =1/2*v*t; writeln('площадь=',o) ; end else if k=2 then begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if (a else writeln('треугольник не существует'); end; end; end; end. что здесь неправильно ? почему он может найти радиус . но на площади треугольника останавливается? если можно то прошу сразу исправить буду

216
266
Посмотреть ответы 2

Ответы на вопрос:

Rock2015
4,6(2 оценок)

Function sq(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function tr(a,b,c: real): boolean; begin result: =(a+b> c)and(a+c> b)and(b+c> a) end; var a,b,c,k1,k2,h,t,s,r1,r2: real; begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 '); readln(k1); if k1=1 then    begin    writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)? ');   readln(k2);   write('сторона а = ');   readln(a);   write('сторона b = ');   readln(b);   write('сторона с = ');   readln(c);   if tr(a,b,c) then   begin   s: =sq(a,b,c);   if k2=1 then    begin   r1: =(a+b+c)/(2*s);   writeln('радиус вписанной окружности = ' , r1);   end;   if k2=2 then    begin   r2: =a*b*c/(4*s);   writeln('радиус описанной окружности = ', r2);   end;   end else writeln('треугольник не существует');   end else   if k1=2 then   begin   writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' );   readln(k2);   if k2=1 then   begin   write('высота = ');   readln(h);   write('cторона = ');   readln(t);   s: =1/2*h*t;   writeln('площадь = ',s);   end;   if k2=2 then   begin   write('a = ');   readln(a);   write('b = ');   readln(b);   write('c = ');   readln(c);   if tr(a,b,c) then     begin     s: =sq(a,b,c);     writeln('площадь = ',s) ;     end else writeln('треугольник не существует');   end;   end; end. пример:   найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2  2 что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2 1 высота = 3 cторона = 4 площадь = 6
kirillan2
4,8(31 оценок)

При использовании алфавита мощностью 64 для записи одного символа требуется log(2)64 = 6 бит (это и есть  информационный вес символа этого алфавита). 1097 кбайт = 1097*1024 байт = 1097*1024*8 бит. количество символов в сообщении = 1097*1024*8 / 6  ≈  1497770

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS