Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/23: Рейтинг темы: голосов - 23, средняя оценка - 4.87
Rick222
1 / 1 / 0
Регистрация: 10.09.2013
Сообщений: 77
1

Задано время в часа и минутах. Через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов?

27.09.2013, 08:28. Просмотров 4370. Ответов 7
Метки нет (Все метки)

6. Задано время в часа и минутах. Определить через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2013, 08:28
Ответы с готовыми решениями:

когда часовая и минутная стрелки на циферблате расположатся перпендикулярно друг к другу
Даны целые числа m и n (0<m<=12) (0<=n<60) указывающие момент времени:"m часов и n минут"....

Часовая стрелка через равные промежутки времени должна принимать одно из 12 положений.Перемещение стрелки сопровождается звуковым сигналом
Часовая стрелка через равные промежутки времени должна принимать одно из 12 положений.Перемещение...

Узнать за какое минимальное время (в минутах) будут надуты все шарики при оптимальной работе всех участников.
Школьный бал Во время проведения школьного бала планируется запустить m одинаковых воздушных...

Нарисовать механические часы, в котором будут двигаться часовая, минутная и секундная стрелка
Нарисовать механические часы, в котором будут двигаться часовая, минутная и секундная стрелка.

С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с начала суток?
С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с...

7
AnDrOs96
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
27.09.2013, 23:30 2
Ну надо для каждого часа выяснить кода будет 90 градусов и сделать услловие в программе!

Добавлено через 2 минуты
Цитата Сообщение от Rick222 Посмотреть сообщение
6. Задано время в часа и минутах. Определить через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов
Сколько случаев за 12 часов будет когда стрелки станут под угол 90 град?12?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program E1;
var a,b,c:byte;
begin
write('vvedute 4as');
readln(a);
write('vvedute munytu');
readln(b);
If 
a:=(b-15)/5 then begin 
write('90 gradysov');
end
else
c:=(b-15) mod 5;
write(c);
end.
Добавлено через 6 минут
Прога не работает(сейчас подумаю над алгоритмом

Добавлено через 8 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program E1;
var a,b,c,d:byte;
begin
writeln('vvedute 4as');
readln(a);
d:=5*a;
writeln('vvedute munytu');
readln(b);
If 
b-d=15 or d-b=15 then begin 
writeln('90 gradysov');
end
else
if b>d then begin c:=b-15-d ;
end
else c:=d-b-15;
  
write(c);
end.
Добавлено через 2 минуты
если честно убрать ошибку не могу,нагромоздил много((сейчас подумаю

Добавлено через 13 минут
короче вот прога готовая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program E1;
var a,b,d:integer;
begin
writeln('vvedute 4as');
readln(a);
until
d:=5*a;
writeln('vvedute munytu');
readln(b);
abs(b-d-15);
write('Do 90 gradesov ', abs(b-d-15), ' munyt');
end.
Потести,работает только по 12-часовому циферблату))
Если работает от + не откажусь,если не пиши,исправим
0
Puporev
Модератор
55792 / 42778 / 29578
Регистрация: 18.05.2008
Сообщений: 101,370
28.09.2013, 09:13 3
Цитата Сообщение от AnDrOs96 Посмотреть сообщение
короче вот прога готовая
Мало того что алгоритм неверный, так еще и синтаксические ошибки
0
AnDrOs96
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
28.09.2013, 11:40 4
Цитата Сообщение от Puporev Посмотреть сообщение
Мало того что алгоритм неверный, так еще и синтаксические ошибки
А почему алгоритм неверный?я проверял,вроде все пашет!Если можешь,то поясни!!!
0
Puporev
Модератор
55792 / 42778 / 29578
Регистрация: 18.05.2008
Сообщений: 101,370
28.09.2013, 11:42 5
Потому что если исправить ошибки и ввести часы=0 и минуты=0, получается ответ 15, а правильно 17.Часовая стрелка же тоже движется.
0
AnDrOs96
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
28.09.2013, 11:45 6
Цитата Сообщение от Puporev Посмотреть сообщение
Потому что если исправить ошибки и ввести часы=0 и минуты=0, получается ответ 15, а правильно 17.Часовая стрелка же тоже движется.
Я тоже об этом думал,значит нужно для каждого часа вводить случай,и если не совпадает,то искать ближайшее подходящее время к нему и отнимать)немного замудрил,но суть понял!
0
NurlashKO
89 / 89 / 80
Регистрация: 07.10.2012
Сообщений: 145
28.09.2013, 16:00 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses math;
var
    h, m, t, al, be, angl, buf :longint;
begin
    readln(h, m);
    t := (h * 60 + m) mod 720;
 
    while (true) do begin
    
        al := (t mod 60) * 6;
        be := (t div 60) * 30 + (t mod 60) div 5 * 6;
        if (al > be) then begin
            buf := al;
            al := be;
            be := buf;
        end;
 
        angl := min(360 - be + al, be - al);
        if (angl = 90) then begin
            writeln(t - ((h * 60 + m) mod 720));
            break;
        end;
        t := (t + 1) mod 720;
    
    end;
end.
0
AnDrOs96
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
28.09.2013, 16:47 8
Ого,мне до такого еще далеко(а алгоритм сам придумал?или нашел?
0
28.09.2013, 16:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2013, 16:47

С начала суток часовая стрелка повернулась на у градусов. Сколько часов/минут прошло с начала суток?
С начала суток часовая стрелка повернулась на у градусов. Определить число полных часов и минут ...

Через сколько секунд часовая и минутная стрелки совместятся
Время, которое показывают часы задано в часах, минутах и секундах. Определите, через сколько...

Определить наименьшее время, когда часовая и минутная стрелки будут перпендикулярны друг другу
Добрый вечер! Подскажите, пожалуйста, алгоритм вот такой прожки: Ввести целые числа m (0 ≤ m...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru