Задача на градусы Опции

[kiat]

Есть такая задача:
написать программу,которая вычисляет разность величин двух углов(выраженных в градусах,минутах и секундах).
Попробовал ее решить,но не работает
Вот мой код,в чем ошибка не пойму Помогите!!!!

Program p1;
Uses crt;
var gr1,gr2,gr,min1,min2,min,sec1,sec2,sec,razn1,grad,razn2,razn:integer;
begin
clrscr;
write('Vvedite pervii ugol: ');
readln(gr1,min1,sec1);
write('Vvedite vtoroi ugol: ');
readln(gr2,min2,sec2);
sec1:=gr1*3600+min1*60+sec1;
sec2:=gr2*3600+min*60+sec2;
razn:=sec1-sec2;
gr:=razn div 3600;
min:=(razn mod 3600) div 60;
sec:=razn*(gr*3600+min*60);
Writeln('Raznosti: ',gr,' gradusov',min,'minut',sec,'secund');
end.

М

пользуемся тэгами... отредактировано. мисс_граффити

Сообщение отредактировано: мисс_граффити - 24.04.2008 4:57

[andriano]

Начнем с того, что ты используешь тип integer, который ограничен величиной 32767, что в твоих условиях соответствует чуть более чем 9 градусам.

[kiat]

А как заставить тогда правильно работать программу?

[мисс_граффити]

может быть, воспользоваться алгоритмом вычитания в столбик?
если sec1-sec2<0, выполняем заимствование из минут..
потом так же с минутами.
---
или просто вместо integer использовать тип, в который влезают большие числа ))

Сообщение отредактировано: мисс_граффити - 24.04.2008 5:01

[andriano]

А как заставить тогда правильно работать программу?

Самое простое - сменить тип данных.