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

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

27.09.2013, 08:28. Просмотров 4263. Ответов 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...

Определить, сколько амеб будет через 3 часа
одноклеточная амеба каждые три часа делиться на 2 летки.определить, сколько...

Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько пол
помогите решить Сначала суток прошло n секунд, определить: сколько полных...

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

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

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
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
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
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
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
88 / 88 / 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

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

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

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


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

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

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