Меню сайта

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

Мини-чат

Наш опрос
Уважаемый посетитель сайта, к какой категории вы себя относите?
Всего ответов: 5512

Статистика

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


Главная

Регистрация

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


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

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



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

Протокол
12.02.2012, 17:27

Условие:

Тройка чисел (T1,M1,C1) задает стартовое время, а тройка (T2,M2,C2) - финишное время участника лыжной гонки 30 км (часы, минуты, секунды). Проверить корректность данных и найти результат участника.

 Технические условия:

Стандартные.

 Примеры входных и выходных файлов:

Отсутствуют.

Решение:

var

  a,b,x,y,t1,m1,c1,t2,m2,c2 : integer;

begin

  write('Старт...'); { ввод данных } 

  readln(t1,m1,c1);

  write('Финиш...');

  readln(t2,m2,c2);

  if (t1<0) or (t2<0) or (m1<0) or (m2<0) or {проверяем корректность: }

  (c1<0) or (c2<0) or (t1>23) or (t2>23) or {часы от 0 до 23,мин,сек- }

  (m1>59) or (m2>59) or (c1>59) or (c2>59) { от 0 до 59 }

  then writeln('Некорректные данные')

  else begin

    x:=(c2-c1) div 60;

    y:=(c2-c1) mod 60; {секунды}

    a:=((m2-m1) mod 60) + x; {минуты}

    x:=(m2-m1) div 60;

    b:=((t2-t1) mod 60) + x; {часы}

    if y<0

    then begin

      y:=y+60;

      a:=a-1;

    end;

    if a<0

    then begin

      a:=a+60;

      b:=b-1;

    end;

    if b<0

    then b:=b+24;

    writeln('Результат ',b,' ч. ',a,' мин. ',y,' сек.');

  end;

end.

Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 800 | Загрузок: 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 © 2020
/td>