Помогите решить задачу.
| |
QWER56 | Дата: Воскресенье, 19 Сентября 2010, 08:39 | Сообщение # 1 |
старожил
Сейчас нет на сайте
| Нужно написать программу, которая высчитывает площадь треугольника по длинам трёх сторон, по формуле Герона. Вот, что у меня получилось: Code program ger; uses crt; var a, b, c:integer; function geron(a,b,c:integer):double; var p:double; begin p:=(a+b+c)/2; geron:=p*(p-a)*(p-b)*(p-c); end; begin write('vvedite a-> '); readln(a); write('vvedite b-> '); readln(b); write('vvedite c-> '); readln(c); writeln(geron(a,b,c)); readkey; end. Но программа выдаёт такой ответ: Как это исправить? А то в Паскале я не очень разбираюсь. Для тех кто не знает, то ФОРУМУЛА ГЕРОНА.
ConsMark - поисковик по интернет магазинам.
Сообщение отредактировал QWER56 - Воскресенье, 19 Сентября 2010, 08:42 |
|
| |
mitch | Дата: Воскресенье, 19 Сентября 2010, 09:35 | Сообщение # 2 |
постоянный участник
Сейчас нет на сайте
| QWER56, а квадратный корень у тебя где? должно же быть вроде так: geron := sqrt ( p * ( p - a ) * ( p - b ) * ( p - c ) ) и зачем там функция geron? можно же просто завести переменные a, b, c, p, geron
Сообщение отредактировал mitch - Воскресенье, 19 Сентября 2010, 09:36 |
|
| |
QWER56 | Дата: Воскресенье, 19 Сентября 2010, 12:58 | Сообщение # 3 |
старожил
Сейчас нет на сайте
| mitch, щас попробую. Добавлено (19.09.2010, 12:58) --------------------------------------------- Только всё равно та же проблема.
ConsMark - поисковик по интернет магазинам.
|
|
| |
bum | Дата: Воскресенье, 19 Сентября 2010, 13:12 | Сообщение # 4 |
почетный гость
Сейчас нет на сайте
| Как уже было сказано выше - пропущен квадратный корень в формуле герона. Но я так понимаю, вас больше интересует как увидеть результат в более привычном виде? Можно использовать некоторые возможности паскаля в плане форматированного вывода: Code writeln(geron(a,b,c):10:3); Здесь первое число после двоеточия - количество символьных розрядов которые вы хотите выделить под вывод данных (данные будут выведены с выравниванием по правому краю), а второе число указывает на желаемое количество десятичных разрядов. Вот я чуть подправил код: http://ideone.com/Mxs15
Сообщение отредактировал bum - Воскресенье, 19 Сентября 2010, 13:19 |
|
| |
lvovand | Дата: Воскресенье, 19 Сентября 2010, 13:17 | Сообщение # 5 |
старожил
Сейчас нет на сайте
| правильно сказали, во-первых корень взять, sqrt ( p * ( p - a ) * ( p - b ) * ( p - c ) ) во-вторых вывод результата чмитаемым сделай через форматированный вывод формат Write(n:s:d); n - это переменная вещественного типа; s - количество позиций для вывода значения переменной n; d - количество знаков после запятой
Разработка и продвижение сайтов. Дизайн
|
|
| |
TrueIfrit | Дата: Суббота, 25 Сентября 2010, 19:58 | Сообщение # 6 |
Свободный геймдизайнер
Сейчас нет на сайте
| Code program ger; uses crt; label metka; var a, b, c: longint; function geron(a,b,c:integer): extended; var p: extended; begin p:=(a+b+c)/2; geron:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin metka : clrscr; write('Please, enter the A -> '); readln(a); write('Please, enter the B -> '); readln(b); write('Please, enter the C -> '); readln(c); if ((a + b) >= c) and ((a + c) >= b) and ((b + c) >= a) then writeln(geron(a,b,c):10:3) else goto metka; readkey; end. При вводе значений 3, 3 и 3 все работало. При вводе 1, 3 и 5 была ошибка: Quote Program [путь к программе] exited with exitcode = 207 Это связано с тем что треугольник 1, 3 и 5 невозможен, задача решена, спасибо, Йож
Сообщение отредактировал TrueIfrit - Суббота, 25 Сентября 2010, 21:02 |
|
| |
ezhickovich | Дата: Суббота, 25 Сентября 2010, 20:46 | Сообщение # 7 |
[Великий и могучий хозяинъ]
Сейчас нет на сайте
| Code #include <stdio.h> #include <math.h>
float fuckthisbrain (int a, int b, int c) { float p = (a + b +c)/2; return sqrt (p*(p - a)*(p - b)*(p - c)); }
int main () { int a, b, c; scanf ("%d%d%d", &a, &b, &c); printf ("%f", fuckthisbrain (a, b, c)); return 0; } ![](http://s004.radikal.ru/i208/1009/78/b96219159a0b.png) Добавлено (25.09.2010, 20:46) ---------------------------------------------
Quote (TrueIfrit) При вводе 1, 3 и 5 была ошибка Quote [20:41:20] <ezhickovich> хмм... [20:41:48] <ezhickovich> 1 + 3 + 5 = 9 [20:42:01] <ezhickovich> 9/2 = 4.5 [20:42:17] <ezhickovich> 4.5 - 1 = 3.5 [20:42:30] <ezhickovich> 4.5 - 3 = 1.5 [20:42:48] <TrueIfrit> странно [20:42:50] <TrueIfrit> все это [20:42:51] <ezhickovich> 4.5 - 5 = -1.5 [20:43:01] <TrueIfrit> хмм... [20:43:02] <ezhickovich> -1.5!!!!!!!!!!!! [20:43:21] <TrueIfrit> но почему он не хочет показывать отрицательные значения? [20:43:23] <ezhickovich> при умножении на минус получается минус... [20:43:43] <ezhickovich> а из минуса нельзя вычичлить корень... [20:43:52] <ezhickovich> FAIL [20:43:58] <ezhickovich> во как... [20:44:48] <ezhickovich> треугольник 1 3 5 просто невозможен... [20:45:15] <ezhickovich> вот поэтому и FAIL
Я: О великий повелитель этой ничтожной вселенной - сокращённо ЁЖ!
|
|
| |
simtiko | Дата: Суббота, 25 Сентября 2010, 20:47 | Сообщение # 8 |
почти ветеран
Сейчас нет на сайте
| Code
program ger; uses crt; var a, b, c,p,geron:real;
begin write('vvedite a-> '); readln(a); write('vvedite b-> '); readln(b); write('vvedite c-> '); readln(c); p:=(a+b+c)/2; geron := sqrt ( p * ( p - a ) * ( p - b ) * ( p - c ) ); writeln(geron); readkey; end.
|
|
| |
TrueIfrit | Дата: Суббота, 25 Сентября 2010, 20:49 | Сообщение # 9 |
Свободный геймдизайнер
Сейчас нет на сайте
| Изменил свой вариант решения - [клик!] - делал в Free Pascal IDE, все работает ezhickovich, еще раз аригато
|
|
| |
lvovand | Дата: Суббота, 25 Сентября 2010, 20:49 | Сообщение # 10 |
старожил
Сейчас нет на сайте
| сумма длин двух сторон треугольника всегда больше длины третьей стороны, таким образом треугольника со сторонами 1, 3 и 5 просто не может существовать, можно перед расчетом площади организовать эту проверку
Разработка и продвижение сайтов. Дизайн
|
|
| |
TrueIfrit | Дата: Суббота, 25 Сентября 2010, 21:02 | Сообщение # 11 |
Свободный геймдизайнер
Сейчас нет на сайте
| Добавил в свой код проверку, спс lvovand
|
|
| |
ezhickovich | Дата: Суббота, 25 Сентября 2010, 21:03 | Сообщение # 12 |
[Великий и могучий хозяинъ]
Сейчас нет на сайте
| Code #include <stdio.h> #include <math.h>
float fuckthisbrain (int a, int b, int c) { float p = (a + b +c)/2; return sqrt (p*(p - a)*(p - b)*(p - c)); }
int main () { int a, b, c; do { scanf ("%d%d%d", &a, &b, &c); } while (!((a + b >= c) && (b + c >= a) && (a + c >= b))); printf ("%f", fuckthisbrain (a, b, c)); return 0; } Исправил... ( с учётом проверок )
Я: О великий повелитель этой ничтожной вселенной - сокращённо ЁЖ!
|
|
| |
|