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

[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 0:57

[kiat]

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