Регистрация
matumaxim
17.03.2021 10:09
Информатика
Есть ответ 👍

Исправить ошибку. 30 : "написать модуль для вычисления площади треугольника по формуле герона(она ниже представлена). основная пм: program geron; uses crt,formula; var s,p: real; a,b,c: real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); resh(s,p,a,b,c); write('s=',s: 12: 2); readkey end. модуль: unit formula; interface procedure resh(a,b,c: real; var p,s: real); implementation procedure resh(a,b,c: real; var p,s: real); begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); end; end. суть в том что написанно все правельно но при вводе чисел ничего нет ⇔ (s=0) программа не работает, исправить ошибку.

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

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

irajhgmvm
irajhgmvm
4,5(65 оценок)
P: =(a+b+c)/2; это модуль resh(s,p,a,b,c); это пм
Gykplhgv
Gykplhgv
4,7(7 оценок)
Var a,b,c,d: real; beginread(a, b, c); d: =a*b/3.14 + 3*c; writeln (d) end.вот вставляй значения и решай если надо

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