Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на градусы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kiat
Есть такая задача:
написать программу,которая вычисляет разность величин двух углов(выраженных в градусах,минутах и секундах).
Попробовал ее решить,но не работаетsad.gif
Вот мой код,в чем ошибка не поймуsad.gif Помогите!!!!
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.


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

andriano
Начнем с того, что ты используешь тип integer, который ограничен величиной 32767, что в твоих условиях соответствует чуть более чем 9 градусам.
kiat
А как заставить тогда правильно работать программу?
мисс_граффити
может быть, воспользоваться алгоритмом вычитания в столбик?
если sec1-sec2<0, выполняем заимствование из минут..
потом так же с минутами.
---
или просто вместо integer использовать тип, в который влезают большие числа ))
andriano
Цитата(kiat @ 24.04.2008 0:34) *

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

Самое простое - сменить тип данных.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.