Dubovitskayae
?>

Выдает ошибки не понимаю что неправильно в программе Program P1; var a, b, c, s, p:integer; Begin write('введите координату a='); readln(a); write('введите координату b='); readln(b); write('введите координату c='); readln(c); p:=(a+b+c)/2; writeln('периметр треугольника =', p); s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника =', s); end.

Информатика

Ответы

mansur071199486

Так,сначала теория.

В формуле Герона (коя используется в этой программе) используется полупериметр!

Это означает, что надо ввести переменную полупериметра ( pp, к примеру). Тогда программа примет вид:

program P1;

var

a, b, c, p: integer;

pp, s: real;

begin

write('Введите сторону a = ');

readln(a);

write('Введите сторону b = ');

readln(b);

write('Введите сторону c = ');

readln(c);

p := a + b + c;

writeln('Периметр треугольника P = ', p);

pp := p / 2;

s := sqrt(pp * (pp - a) * (pp - b) * (pp - c));

writeln('Площадь треугольника S = ', s);

end.

Также замечу, что полупериметр и площадь относятся не к целочисленному типу данных.

И да, обращайте внимание на оформление.

Табуляции в программе, "сторона" вместо "координата", пробелы до и после равно, чтобы всё не выглядело слипшимся.

olgaprevisokova302
Одномерный массив можно представить как линейную структуру, в которой элементы следуют друг за другом. Однако бывают более сложные структуры данных. Например, двумерные массивы, которые можно описать как таблицу, в ячейках которой располагаются значения. Для обращения к данным массива указывается номера их строк и столбцов. Часто табличные массивы называют матрицами. Обычно двумерные массивы на языке программирования Pascal описываются так: array [1..m, 1..n] of базовый_тип Однако можно их описывать и по-другому: array [1..m] of array [1..n] of базовый_тип
edvlwork15
1) Birthday1.asf - 24.12.15 Birthday2.asf - 15.07.16 Clip_1.mpeg - 24.07.14 Clip_2.mov - 24.10.16 Clip_3.mov - 01.07.14 Family.avi - 12.08.13 Friends1.mov - 25.07.14 Friends2.mov - 04.01.14 Video1.avi - 19.07.14 Video2.avi - 21.11.13 Video3.wmv - 24.06.14 Video4.wmv - 10.07.15 2) Birthday2.asf - 15.07.16 Clip_1.mpeg - 24.07.14 Clip_3.mov - 01.07.14 Family.avi - 12.08.13 Friends2.mov - 04.01.14 Video2.avi - 21.11.13 Video4.wmv - 10.07.15 3) Family.avi - 12.08.13 Video2.avi - 21.11.13 Friends2.mov - 04.01.14 Clip_3.mov - 01.07.14 Clip_1.mpeg - 24.07.14 Video4.wmv - 10.07.15 Birthday2.asf - 15.07.16 Итог : Video2.avi - 21.11.13 Clip_3.mov - 01.07.14 Clip_1.mpeg - 24.07.14 Video4.wmv - 10.07.15 Birthday2.asf - 15.07.16 ответ: 5

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выдает ошибки не понимаю что неправильно в программе Program P1; var a, b, c, s, p:integer; Begin write('введите координату a='); readln(a); write('введите координату b='); readln(b); write('введите координату c='); readln(c); p:=(a+b+c)/2; writeln('периметр треугольника =', p); s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника =', s); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Telenkovav
boyarinovigor
Елена
nzagrebin363
Ingakazakova
Vladimirovna1370
kbndbyb6
plv-57
Igor1406
natalyaionova
ilyagenius
BelozerovaGeller648
vasiliyglukhov
AkimovaI1608
slastena69678