Информатика: сор информатике 6 класс

lidok575

23.08.2022 09:52

Информатика

Есть ответ 👍

сор информатике 6 класс

217

220

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

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

tawawma

Информатика

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

Type point = record x: integer; y: integer; end; line = record p: point; q: point; len: double; end; procedure linelength(var pl: line); // вычисляет и сохраняет значение длины отрезка begin pl.len : = sqrt(sqr(pl.q.x - pl.p.x) + sqr(pl.q.y - pl.p.y)) end; var a, b, c, d: point; ab, ac, ad, bc, bd, cd: line; begin writeln('введите попарно координаты четырех точек'); readln(a.x, a.y, b.x, b.y, c.x, c.y, d.x, d.y); with ab do begin p.x : = a.x; p.y : = a.y; q.x : = b.x; q.y : = b.y; linelength(ab); end; with ac do begin p.x : = a.x; p.y : = a.y; q.x : = c.x; q.y : = c.y; linelength(ac); end; with ad do begin p.x : = a.x; p.y : = a.y; q.x : = d.x; q.y : = d.y; linelength(ad); end; with bc do begin p.x : = b.x; p.y : = b.y; q.x : = c.x; q.y : = c.y; linelength(bc); end; with bd do begin p.x : = b.x; p.y : = b.y; q.x : = d.x; q.y : = d.y; linelength(bd); end; with cd do begin p.x : = c.x; p.y : = c.y; q.x : = d.x; q.y : = d.y; linelength(cd); end; writeln(ab.len, ' ', ac.len, ' ', ad.len, ' ', bc.len, ' ', bd.len, ' ', cd.len); if ab.len = cd.len then begin // ab и cd - претенденты if ac.len = bd.len then // нашли abdc writeln('параллелограмм abdc') else if ad.len = bc.len then // нашли abcd writeln('параллелограмм abcd') end else if ac.len = bd.len then begin // ac и bd - претенденты if ad.len = bc.len then // нашли acbd writeln('параллелограмм acbd') else if ab.len = cd.len then // нашли abcd writeln('параллелограмм acdb') end else if ad.len = bc.len then begin // ad и вс - претенденты if ac.len = bd.len then // нашли adbc writeln('параллелограмм adbc') else if ab.len = cd.len then // нашли adcb writeln('параллелограмм adcb') end else writeln('параллелограмм построить невозможно'); end. контрольный прогон: введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 параллелограмм построить невозможно введите попарно координаты четырех точек 5 1 10 4 8 9 3 6 5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453 параллелограмм abcd введите попарно координаты четырех точек 5 1 8 9 10 4 3 6 8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052 параллелограмм acbd

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

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

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

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

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

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

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

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

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

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