Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2012, 21:43   #1
Dikoobraz
 
Регистрация: 10.10.2012
Сообщений: 6
По умолчанию Ошибка в типе данный(Pascal, FreePascal)

Только начал учить паскаль, и при попытке компиляции программы выдает ошибку неправильного типа переменной.
Помоги пожалуйста исправить, и если не трудно объясните почему нужно изменить тип переменной.
Код:
program height;

Var a,b,c,p:integer;
z,x,y,s:double;

begin;

a:=10;
b:=20;
c:=25;
p:=(a+b+c)/2;
s:=Sqrt((p*(p+a)*(p+b)*(p+c))/2);
z:=2*s/a;
x:=2*s/b;
y:=2*s/c;
Writeln('Высоты равны ' , z x y , );

end.
Заранее спасибо.
Dikoobraz вне форума Ответить с цитированием
Старый 10.10.2012, 21:49   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

Код:
program height;

Var
    a, b, c : integer;
    p, z, x, y, s : double;

BEGIN
    a := 10;
    b := 20;
    c := 25;
    p := (a + b + c) / 2;
    s := sqrt(p * (p - a) * (p - b) * (p - c));
    z := 2 * s / a;
    x := 2 * s / b;
    y := 2 * s / c;
    writeln('Высоты равны ', z, x, y);
    readln;
END.
p - типа double, т.к. операция "/" применима только к вещественными числам, т.е. присваивание должно производиться к вещественной переменной.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 10.10.2012 в 21:52.
BDA вне форума Ответить с цитированием
Старый 10.10.2012, 21:58   #3
Dikoobraz
 
Регистрация: 10.10.2012
Сообщений: 6
По умолчанию

Спасибо большое. Да и с арифметикой я там немного напутал.
Dikoobraz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка "Данный файл не найден" romanzi Общие вопросы Delphi 4 17.12.2011 18:09
Нахождение общей и средней цены в базе данный, Turbo Pascal Mr_John_Smith Помощь студентам 0 15.06.2011 10:30
Переход с Freepascal(язык pascal) на Delphi Dmtr Общие вопросы Delphi 16 30.03.2010 12:28
Автоматическое изменение переменной в типе TwiX Общие вопросы Delphi 3 19.11.2009 03:27
Вопрос о типе переменной s1d0r Общие вопросы Delphi 4 17.06.2009 17:27