Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Оцените мой сайт
Всего ответов: 2664

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сайт в каталогах


Сайт    Банк Интернет-портфолио учителейКаталог сайтов Каталог сайтов 'Российское образование в сети' Справочник сайтов учителей и для учителя Учительский портал Сеть творческих учителей Личный сайт Фоновой Натальи Леонидовны учителя математики и информатики

Погода в Вязниках


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Вторник, 18.06.2019, 11:44
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Стрелки часов
14.02.2012, 08:47

Условие:
Циферблат механических часов имеет 12 часовых делений и 60 минутных. Вычислить угол между часовой и минутной стрелками часов, показывающих заданное время. Стрелки всегда показывают точно на деления циферблата, часовая стрелка передвигается на следующее деление через каждые 12 минут.

Сокращенное условие:
Вычислить угол между часовой и минутной стрелками часов, показывающих заданное время.

Технические условия:
Файл "input.txt" содержит время суток в виде hh:mm, где hh - часы, mm - минуты. Он не содерджит пробелов и пустых строк, часты и минуты задаются двумя десятичными знаками. Вывести в файл "output.txt" величину наименьшего угла между стрелками часов в градусах.

Примеры входных и выходных файлов:
Input.txt
10:05
Output.txt
90

Решение:
var
f1,f2:text;
s:string;
h,m,code,c:integer;
hs,ms:string;
begin
assign(f1,'input.txt');
reset(f1);
read(f1,s);
close(f1);
hs:=s; delete(hs,3,3); val(hs,h,code);
ms:=s; delete(ms,1,3); val(ms,m,code);
h:=h*5+(m div 12);
if h-m>30 then c:=6*abs(60-h+m) else c:=6*abs(h-m);
if c>180 then c:=360-c;
assign(f2,'output.txt');
rewrite(f2);
write(f2,c);
close(f2);
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 1344 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2019
/td>