Есть ответ 👍

Паскаль, по координатам трех вершин некоторого треугольника найдите его периметр,если такой треугольник существует

245
372
Посмотреть ответы 2

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


Program n1; var kord: array[1..6] of real; st: array [1..3] of real; i: integer; begin i: =1; while i< =6 do begin write('введите координаты точки через пробел: '); readln(kord[i],kord[i+1]); i: =i+2; end; st[1]: =sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2])); st[2]: =sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2])); st[3]: =sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4])); if (st[1]< (st[2]+st[3])) and (st[2]< (st[1]+st[3])) and (st[3]< (st[1]+st[2]))  then write('p=',st[1]+st[2]+st[3]) else write('треугольник не существует'); end.
Ste5an
4,4(67 оценок)

Program task5;     var v: string;   ch,p: integer;   begin    writeln('введите число');   readln (ch);     case ch of      1: v: = ('один');       2: v: = ('два');       3: v: = ('три');     4: v: = ('четыре');     5: v: = ('пять');     6: v: = ('шесть');     7: v: = ('семь');         8: v: = ('восемь');     9: v: = ('девять');     10: v: = ('десять');       11: v: = ('одиннадцать');     12: v: = ('двенадцать');     13: v: = ('тринадцать');       14: v: = ('четырнадцать');     15: v: = ('пятнадцать');       16: v: = ('шестнадцать');     17: v: = ('семнадцать');     18: v: = ('восемнадцать');     19: v: = ('девятнадцать');     20: v: = ('двадцать' );     21,22,23,24,25,26,27,28,29: begin p: =(ch mod 10); v: = ('двадцать' ); end;     30: v: = ('тридцать ');     31,32,33,34,35,36,37,38,39: begin p: =(ch mod 10); v: = ('тридцать' ); end;     40: v: = ('сорок');     41,42,43,44,45,46,47,48,49: begin p: =(ch mod 10); v: = ('сорок' ); end;     50: v: = ('пятьдесят ');     51,52,53,54,55,56,57,58,59: begin p: =(ch mod 10); v: = ('пятьдесят' ); end;     60: v: = ('шестьдесят ');       61,62,63,64,65,66,67,68,69: begin p: =(ch mod 10); v: = ('шестьдесят' ); end;     70: v: = ('семьдесят ');     71,72,73,74,75,76,77,78,79: begin p: =(ch mod 10); v: = ('семьдесят '); end;     80: v: = ('восемьдесят ');       81,82,83,84,85,86,87,88,89: begin p: =(ch mod 10); v: = ('восемьдесят' ); end;     90: v: = ('девяносто ');     91,92,93,94,95,96,97,98,99: begin p: =(ch mod 10); v: = ('девяносто ' ); end;     100: v: =('сто');     end;     writeln(v,p);   end. так оно по крайней мере запускается. но нет обработки переменной p, по ней надо делать отдельный case of.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS