Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Определить, принадлежит ли заданная точка с координатами (X0,Y0) области D https://www.cyberforum.ru/ pascal/ thread963407.html Пусть D – заштрихованная фигура, как показано на рисунке. Определить, принадлежит ли заданная точка с координатами (X0,Y0) области D. Ответ выдать в виде «Принадлежит» или «Не принадлежит».	5. По введенному числу от 1 до 11 (номеру класса) Pascal 5. По введенному числу от 1 до 11 (номеру класса) Выводить сообщение «Привет k-классник!». Например, если k=1 «Привет, первоклассник!»
Pascal вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread963241.html как решить задачу в Pascal	Pascal вычислить значение выражения на pascal https://www.cyberforum.ru/ pascal/ thread963231.html вычислить значение выражения R=AX-CX^3+BX^2-D где a=8.3,b=9,7,c=3,d=4,значение x вводится с клавиатуры. Значение постоянных величин описать в разделе const.
Скидки при покупке товаров Pascal Нужно составить блок-схему и написать программу: Фирма предлагает предпраздничные скидки покупателям при покупке товаров в фирменном магазине в зависимости от общей стоимостиприобретенной покупки: - при общей стоимости меньшей 100 грн., скидка не предоставляется; - при общей стоимости от 100 до 300 грн., скидка составляет 2%стоимости; - при общей стоимости от 300 до 500 грн., скидка...	Pascal Найдите количество гласных букв в символьном файле Найдите количество гласных букв в символьном файле. https://www.cyberforum.ru/ pascal/ thread963090.html
Pascal Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные. https://www.cyberforum.ru/ pascal/ thread963086.html	составить программу на паскале и в кумире Pascal 1составить программу,которая в заданном слове заменяет все буквы, кроме первой и последней, на заданную букву. слово данное и полученное печатать 2с помощью датчика случайных чисел получить N четырехзначных чисел. вывести на печать лишь те из них в которых совпадают первая и последняя цифры
Pascal Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai https://www.cyberforum.ru/ pascal/ thread962991.html Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai.	Pascal Написать программу со списками и текстовыми файлами Задача (алфавитно-частотный словарь). В файле записан текст. Нужно записать в другой файл в столбик все слова, встречающиеся в тексте, в алфавитном порядке, и количество повторений для каждого слова. Добавлено через 3 часа 26 минут Задача (алфавитно-частотный словарь). В файле записан текст. Нужно записать в другой файл в столбик все слова, встречающиеся в тексте, в алфавитном порядке, и... https://www.cyberforum.ru/ pascal/ thread962964.html
Pascal К какому виду алгоритмов можно отнести алгоритм, представленный на блок-схеме? К какому виду алгоритмов можно отнести алгоритм, представленный на блок-схеме?	Pascal К какому виду циклических конструкций можно отнести фрагмент алгоритма, представленный на схеме? https://www.cyberforum.ru/ pascal/ thread962947.html К какому виду циклических конструкций можно отнести фрагмент алгоритма, представленный на схеме?

NurlashKO

168 / 90 / 80

Регистрация: 07.10.2012

Сообщений: 145

28.09.2013, 16:00

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

28.09.2013, 16:00. Показов 9107. Ответов 7

Метки (Все метки)

Ответ

Pascal

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.

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

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.09.2013, 16:00

Готовые ответы и решения:

Задано время в часа и минутах. Определить через сколько минут часовая и минутная стрелки будут образовывать угол в 90 гр
Помогите пожалуйста!!! Препод ввел 9 часов 31 минута и программа сломалась, вывела 29 минут и угол...

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

Определить время до момента, когда часовая и минутная стрелки на циферблате будут перпендикулярны друг другу
Не могу написать программу на языке Си. Помогите пожалуйста. Заранее Спасибо! Целые числа m и n...

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

	28.09.2013, 16:00

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.09.2013, 16:00

Помогаю со студенческими работами здесь

Определить наименьшее время (число полных минут), которые должны пройти до того момента, когда часовая и минутная стрелки на циферблате совпадут
Нужно ввести целые числа m и n (часы и минуты), 0 <= m <= 11, 0 <= n <= 59, которые определяют...

Число минут когда часовая и минутная стрелки совпадут
Помогите найти ошибку/причину в коде (условия задачи ниже), не проходят 2 теста (скрин во вложении)...

Найти, через какое время минутная и часовая стрелка будут взаимно располагаться под углом A
Имеется такая задачка : "Есть часы, положение часовой и минутной стрелки у которых совпадают. (...

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

Наверх