Используя, функции для символьных переменных составьте программу, выводящую на экран ваше имя на русском или английском языке. (В Паскале)

293

368

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

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

worldteawithlemon

Информатика

4,6(64 оценок)

Виктор Biktor Алексей Aleksey

Makc857

Информатика

4,4(61 оценок)

Function leng(var x,y,x1,y1: real): real; begin leng: =sqrt(sqr(x-x1)+sqr(y-y1)); end; // основная программа var x1,y1,x2,y2,x3,y3,p: real; begin write('координаты вершин x1 y1 x2 y2 x3 y3 через пробел: '); readln(x1,y1,x2,y2,x3,y3); if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then writeln('точки лежат на одной прямой') else begin p: =leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1); writeln('периметр: ',p: 7: 3); end; end.координаты вершин x1 y1 x2 y2 x3 y3 через пробел: 3 4 7 2 6 5 периметр: 10.797координаты вершин x1 y1 x2 y2 x3 y3 через пробел: 1 2 3 4 5 6 точки лежат на одной прямой

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

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

Задай свой вопрос

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

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

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

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

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

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

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