Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.12.2010, 08:18   #1 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Электронные часы

С наступающим! Помогите, пожалуйста - нужно написать программу "электронные часы". Программа должна работать до тех пор, пока не нажмёте клавишу (любую).
jax вне форума   Ответить с цитированием

Старый 30.12.2010, 08:18
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ваш топик очень похож по содержанию на эти

Электронные часы "Электроника" 7-06м
Электронные часы-будильник.
Электронные часы VST 719-3
Электронные часы

Старый 30.12.2010, 09:54   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от jax Посмотреть сообщение
С наступающим! Помогите, пожалуйста - нужно написать программу "электронные часы". Программа должна работать до тех пор, пока не нажмёте клавишу (любую).
И Вас с наступающим!
Вы знаете, к величайшему сожалению наши экстрасенсы-ясновидцы уже разъехались на новогодние/рождественские каникулы, а из оставшихся никто не сможет угадать, на каком языке программирования нужно выполнить задание, к какому сроку, какие часы - цифровые или с циферблатом и стрелками и т.п. Так что, не имея подобной информации, мы, увы, бессильны.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 30.12.2010, 10:49   #3 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Smile

огромное спасиво за пояснение,учту на будущие,нужно написать программу в PascaleABC,желательно до нового года, электронные часы,без стрелок
jax вне форума   Ответить с цитированием
Старый 30.12.2010, 11:41   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от jax Посмотреть сообщение
огромное спасиво за пояснение,учту на будущие,нужно написать программу в PascaleABC,желательно до нового года, электронные часы,без стрелок
Ну ежели без особых прибамбасов, то - пожалуйста:
Код:
Uses Crt,Dos;
VAR
 hour,min,sec_old,sec_new:Word;
 sec100,msec,usec:Word;
BEGIN
 ClrScr;
 GetTime(hour,min,sec_new,sec100);
 Repeat
  Repeat
   sec_old:=sec_new;
   GetTime(hour,min,sec_new,sec100);
  Until sec_old<>sec_new;
  GoToXY(1,1);
  If (min<10) and (sec_new<10) then
   Write(hour:2,':0',min,':0',sec_new)
  else
  If sec_new<10 then
   Write(hour:2,':',min,':0',sec_new)
  else
  If min<10 then
   Write(hour:2,':0',min,':',sec_new)
  else
   Write(hour:2,':',min,':',sec_new);
 Until KeyPressed;
 ReadKey;
END.
ВНИМАНИЕ! ВАЖНО!
В программе применена процедура GetTime (модуль DOS). Но! Дело в том, что, в зависимости от реализации Паскаль-транслятора, она может иметь три набора параметров:
1. GetTime(hour, min, sec:Word); (считываются часы, минуты и секунды).
2. GetTime(hour, min, sec, sec100:Word); (считываются часы, минуты, секунды и сотые доли секунд; в моём Паскале - именно такая).
1. GetTime(hour, min, sec, msec, usec:Word); (считываются часы, минуты, секунды, миллисекунды, микросекунды).
Какой именно вариант предусмотрен в PascalABC я не знаю, это нужно установить Вам. На всякий случай все параметры описаны в перечне параметров (раздел VAR), Вам лишь нужно (при необходимости) в двух местах подправить перечень параметров процедуры GetTime. В любом случае интервалы времени, меньшие секунды, на экран не выводятся.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 30.12.2010, 14:56   #5 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Thumbs up

Огромное спасибо,я и не думал что так можно,мне говорили что это делать нужно через For.Ещё раз с наступающем вас.Желаю успехов в новом году.
jax вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 05.01.2011, 13:12   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Обсуждение проблем, связанных с решением задачи в разных версиях Паскаля, перенесено в тему Паскаль: сравнение версий, глюки и т.п.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 08.01.2011, 22:57   #7 (permalink)
radiotexnik
Бэтмен-любитель
 
Аватар для radiotexnik
 
Регистрация: 22.09.2010
Сообщений: 227
Записей в дневнике: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 149
По умолчанию

uses crt;
var min,sec:integer;
begin
clrscr;
for min :=1 to 3 do
begin
for sec:=1 to 60 do
begin
delay(1000);
gotoXY(1,1) ;
write (min,':',sec,'') ;
if keypressed then halt
end;
end;
end.
radiotexnik вне форума   Ответить с цитированием
Старый 10.01.2011, 18:53   #8 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

A этот код работает в pascalABC??
jax вне форума   Ответить с цитированием
Старый 10.01.2011, 20:50   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от jax Посмотреть сообщение
A этот код работает в pascalABC??
А куда он денется? Только это не часы, а секундомер.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:28.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.