Написать программу на паскаль для нахождения площади треугольника по теореме Герона. Для нахождения полупериметра использовать функцию

285

329

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

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

Kat11166

Информатика

4,5(92 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type matrix=array[,] of integer; procedure matprint(a: matrix; w: integer); begin for var i: =0 to length(a,0)-1 do begin for var j: =0 to length(a,1)-1 do write(a[i,j]: w); writeln end end; procedure matprod(a,b,c: matrix); begin for var i: =0 to length(a,0)-1 do for var j: =0 to length(b,1)-1 do begin var s: =0; for var k: =0 to length(a,1)-1 do s+=a[i,k]*b[k,j]; c[i,j]: =s end end; begin var a,b,c: matrix; var m,n,p: integer; write('число строк матрицы а: '); read(n); write('число столбцов матрицы а и строк матрицы в: '); read(m); write('число столбцов матрицы в: '); read(p); a: =matrixrandom(n,m,-50,50); writeln('матрица а'); matprint(a,4); b: =matrixrandom(m,p,-50,50); writeln('матрица b'); matprint(b,4); setlength(c,n,p); writeln('матрица c'); matprod(a,b,c); matprint(c,7) end. тестовое решение: число строк матрицы а: 4 число столбцов матрицы а и строк матрицы в: 8 число столбцов матрицы в: 7 матрица а 33 -30 20 7 1 5 10 -47 -6 -1 -22 6 -33 41 4 -1 -10 -45 -16 6 -13 9 1 37 5 37 15 -48 42 -19 1 26 матрица b -19 42 -14 -36 38 -18 -41 -24 -20 26 -50 -36 -5 -32 -1 5 -43 15 11 49 0 -44 -35 -27 20 33 -49 14 40 7 -38 -37 48 2 -26 -24 5 -11 12 -43 47 -42 -24 11 8 -13 -9 -13 -12 -41 46 -24 20 3 -25 -25 матрица c 1372 -179 -1176 -295 2387 1475 524 -2463 -580 1701 1697 -3622 575 -525 -1255 1857 -989 3806 353 -1214 957 2160 2631 -460 -4040 341 1340 -3017

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

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

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

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

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

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

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

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

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

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