Как сделать программку через паскаль авс чтобы высчитывала объём и площадь пиромиды
245
456
Ответы на вопрос:
Код не мой, не знаю, на счет правильности, var s: real; x: array [1..5] of real; y: array [1..5] of real; z: array [1..5] of real; i,n,m: integer; {процедура вычисления площади треугольника} procedure plosh(x_1,y_1,z_1,x_2,y_2,z_2,x_3,y_3,z_3: real); var a,b,c,p,t: real; begin a: =sqrt(sqr(y_2-y_3)+sqr(x_2-x_3)+sqr(z_2-z_3)); b: =sqrt(sqr(y_1-y_3)+sqr(x_1-x_3)+sqr(z_1-z_3)); c: =sqrt(sqr(y_1-y_2)+sqr(x_1-x_2)+sqr(z_1-z_2)); p: =(a+b+c)/2; t: =p*sqrt((p-a)*(p-b)*(p-c)); end; {заносим в массив координаты вершин} for i: =1 to 5 do begin if i: =1 or 5 then begin write('x',i,' -> '); readln(x[i]); write('y',i,' -> '); readln(y[i]); write('z',i,' -> '); readln(z[i]); end; else begin write('x',i,' -> '); readln(x[i]); write('y',i,' -> '); readln(y[i]); z[i]: =z[1] writeln; end; end; end; {начинаем перебор всех вариантов сочетания вершин, треугольник} for i: =1 to 5 do for n: =1 to 5 do for m: =1 to 5 do begin if ((i< > n) and ((n< > m) and (i< > then begin plosh(x[i],y[i],z[i],x[n],y[n],z[n],x[m],y[m],z[m]); end; end;
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
anastasiyapauk05.02.2021 04:34
-
fwooper08.02.2020 00:27
-
SophiaSaliuk24.06.2020 19:51
-
Giy16.11.2022 16:59
-
muraitovaayana218.03.2022 04:39
-
RocketBubbleGum00713.12.2020 10:01
-
kotletka22318.05.2020 18:48
-
Dasha123123200712314.12.2020 14:44
-
hatira80123.10.2022 11:29
-
Марьяша07722.05.2020 09:12
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.