Перевести из паскаля в си, ! uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c: real; end; tch=record {точка с полями, координатами} x,y: real; end; {процедура вычисления точки пересечения 2х прямых} procedure peres2(a,b: prm; var t: tch); begin t.x: =(b.ca.b-a.cb.b)/(a.ab.b-a.bb.a); t.y: =(b.aa.c-a.ab.c)/(a.ab.b-a.bb.a); end; {функция проверки на пересечение} function prov(a,b: prm): boolean; begin prov: =a.ab.b-a.bb.a< > 0; end; {процедура ввода данных} procedure vvod(var a: prm; k: byte); begin repeat writeln('введите коэффициенты прямой ',k); readln(a.a,a.b,a.c); if(a.a=0)and(a.b=0)then writeln('это не прямая, повторите ввод') until(a.a< > 0)or(a.b< > 0); a.c: =-a.c; {перенесем c в левую часть получим ax+by+c=0} end; var a,b,c: prm; m12,m13,m23: tch; s: real; begin clrscr; vvod(a,1); vvod(b,2); vvod(c,3); if not prov(a,b)or not prov(a,c)or not prov(b,c) then begin write('прямые попарно не пересекаются'); readln; exit end; peres2(a,b,m12); peres2(a,c,m13); peres2(b,c,m23); writeln('точка пересечения 1-2: ',m12.x: 5: 2,'; ',m12.y: 5: 2); writeln('точка пересечения 1-3: ',m13.x: 5: 2,'; ',m13.y: 5: 2); writeln('точка пересечения 2-3: ',m23.x: 5: 2,'; ',m23.y: 5: 2); s: =abs(m12.x(m23.y-m13.y)+m23.x(m13.y-m12.y)+m13.x*(m13.y-m23.y))/2; write('площадь треугольника пересечений=',s: 0: 2); readln end.

212

244

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

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

olegovnao27

Информатика

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

#include < stdio.h> #include < math.h> struct prm { float a, b, c; }; struct tch { float x, y; }; void peres2(struct prm a, struct prm b, struct tch *t) { t-> x = (b.c*a.b-a.c*b.b)/(a.a*b.b-a.b*b.a); t-> y = (b.a*a.c-a.a*b.c)/(a.a*b.b-a.b*b.a); } int prov(struct prm a, struct prm b) { return a.a*b.b-a.b*b.a! =0; } void vvod(struct prm *a, int k) { do { printf("введите коэффициенты прямой %i\n", k); scanf("%f%f%f", & a-> a, & a-> b, & a-> c); if ((a-> a == 0) & & (a-> b == 0)) printf("это не прямая, повторите ввод\n"); } while ((a-> a == 0) & & (a-> b == 0)); a-> c = -a-> c; } struct prm a, b, c; struct tch m12, m13, m23; float s; int main() { vvod(& a, 1); vvod(& b, 2); vvod(& c, 3); if (! prov(a, b) || ! prov(a, c) || ! prov(b, c)) { printf("прямые попарно не пересекаются"); return 0; } peres2(a,b,& m12); peres2(a,c,& m13); peres2(b,c,& m23); printf("точка пересечения 1-2: %5.2f; %5.2f\n", m12.x, m12.y); printf("точка пересечения 1-3: %5.2f; %5.2f\n", m13.x, m13.y); printf("точка пересечения 2-3: %5.2f; %5.2f\n", m23.x, m23.y); s = fabs(m12.x*(m23.y-m13.y)+m23.x*(m13.y-m12.y)+m13.x*(m13.y-m23.y))/2; printf("площадь треугольника пересечений=%.2f", s); return 0; }

Группа134ПО

Информатика

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

Двоичная запись этого числа имеет вид 1111 1111 1100 0000: чтобы число оказалось четырёхзначным в шестнадцатеричной системе счисления, его двоичная запись должна состоять из четырех групп по 4 двоичные цифры, чтобы было максимальным – нули должны стоять в конце. 1111 -> f 1111 -> f 1100 -> c 0000 -> 0 искомое число

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

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

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

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

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

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

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

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

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

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