Автор Тема: Паскаль(задача). Составить программу определения показания часов  (Прочитано 4105 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Fairmont

  • Постоялец
  • ***
  • Сообщений: 221
    • Просмотр профиля
В некоторый момент врмени часы показывают h часов, m минут, s секунд. Со-ставить программу определения показания часов через:-   s секунд;      m минут; h часов;
Начальное время сделал как константа, сделал в начале с секундами вроде все работает начал проверят и нашел ошибку
Цитировать
program day;
const
h=8;
m=32;
s=32;
sr=3600;

symbols='÷àñîâ';
symbols1='ìèíóòû';
    symbols2='ñåêóíäû';
    var
    a,b,c1,c2,c3,c4,h1,m1,s1:integer;
    begin
    writeln ('Íà÷àëüíîå âðåìÿ',h:5,symbols, m:5,symbols1, s:5,symbols2);
    writeln ('n ÷èñëî ñåêóíä');
    readln(a);
    c1:=a div sr;
    c2:=a mod sr;
    c3:=c2 div 60;
    c4:=c2 mod 60;
    h1:=h+c1;
    m1:=m+c3;
    s1:=s+c4;
    if
    s1=60 then begin s1:=00; m1:=m+1; end;
    if
    s1>60 then begin s1:=s1-60; m1:=m+1; end;
    writeln(h1:5,m1:5,s1:5);
    end.
просто когда водишь 88 секунд он считает, что одна целая не учитывая начальные 32 секунды[/list]
« Последнее редактирование: 28 Февраля 2011, 09:55:23 от Asix »

 

Олимпиадная задача "Дипломы"

Автор DrXakep

Ответов: 0
Просмотров: 4495
Последний ответ 30 Декабря 2012, 14:09:40
от DrXakep
Срочно надо написать курсовую по информатике. Задача на языке VBA.

Автор lana

Ответов: 1
Просмотров: 3457
Последний ответ 12 Сентября 2010, 19:29:18
от InfStudent
Задача на строки в Паскале. Упорядочить и найти средний вес

Автор Ana

Ответов: 13
Просмотров: 5494
Последний ответ 23 Февраля 2010, 22:33:15
от Asix
Задача в бейсике, решить систему Гаусса-Зейделя

Автор Лопанова

Ответов: 1
Просмотров: 2424
Последний ответ 05 Октября 2011, 16:08:50
от tig81
Задача в Mathlab, определение количества шестизначных билетов

Автор wsxi11

Ответов: 3
Просмотров: 2513
Последний ответ 20 Декабря 2011, 11:17:45
от wital1984