VPF::Проги с модулями в Pascal ABC - Форум программистов

Yacheloveg

Дата 19.5.2009, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.5.2009

Репутация: нет
Всего: нет

Задача: "Написать модуль для вычисления площади треугольника по формуле Герона(она ниже в проге).
Листинг программы:

Код


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.

Модуль formula:

Код


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.

Результат выполнения: Некая ошибка : неверная вещественная операция (formula.pas).
Вопрос: Что ж такое? Где? Это изза того что корень из минуса не буруется а я там S сделал integerom? Посоветуйте в таком случае с типами плз. Благодарю за внимание.

Это сообщение отредактировал(а) Yacheloveg - 19.5.2009, 17:04

ФедосеевПавел

Дата 19.5.2009, 18:44 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Смотри, это вызов из программы

Код


resh(S,p,a,b,c);

А это описание заголовка из модуля

Код


procedure resh(a,b,c:real;var p,S:real);

Найди и исправь различия и будет тебе счастье.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »