Время вывода сообщения!

[bookkc]

Короче такая проблема, нужно что бы в моей програме выводило сообщение через 30сек-1мин. и выводило до тех пор пока его неприкроют.

Пример:

У меня прога, неважно какая, но после того как я ввожу свои данные

Write('vvedite1 4islo');
read(a);

начинается выводить текст

write('hello');

и сообщение хелло выводится каждые 30 секунд. 30 сек. прошло написало хелло, ещё 30 сек прошо, написало хелло. И так безконечно!!!


Помогите плиз.... желательно розпишите подробней, а то я только начинаю програмировать. Вся надежда на вас!

СПАСИБО! кто поможет в долгу неостанусь....

[bookkc]

up!!! Нужно СРОЧНО! Люди помогите плиз!!!!

[kakawkin]

ну найди как на паскале указать паузу, потом:

for i:=1 to 99 do
 begin
  write('9 BuPyC');
  -здесь пауза в задданом тебе времени-
 end;

[illia2009]

незнаю конечно, зачем админимтраторы это кинули наперёд списка, т.к. писалось сообщение 16.05.2009, но как бы так небыло вот код:
задержка на 10 сек.

uses crt, dos;

var
   h0,m0,s0,ms010: Word;
   h1,m1,s1,ms110: Word;


procedure Wait(const sec: Word);
const
     sec0: LongInt= 1;
     sec1: LongInt= 1;
begin
 GetTime(h0,m0,s0,ms010);
 sec0:= h0*3600+m0*60+s0;
 while (sec0+sec>sec1) and (not KeyPressed) do
 begin
  GetTime(h1,m1,s1,ms110);
  sec1:= h1*3600+m1*60+s1;
 end;
end;


begin
 ClrScr;
 while TRUE do
 begin
  writeln('Yello!!');
  Wait(10);
  if KeyPressed then Break;(*you may comment this string to long long work*)
 end;
 ClrScr;
end.

[bookkc]

Сори, что я не отписывался, просто сейчас понадобился код

Вот, короче проблема у меня в коде который выше...

убрал строчку

if KeyPressed then Break;(*you may comment this string to long long work*)

И после нажатия Enter выскакивает слово Yello!!! много раз. Как сделать что бы при нажатии Enter ничего не происходило ?

или подкиньте другой, боле легкий код

[puporev]

if KeyPressed then exit;