Таймер

[Shift_sk]

У меня есть небольшой вопрос!Нужен таймер на выполнение программы.Чтобы допустим если программа не выполняеться за 1 секунду она вылетала.Или чтобы выводило на экран сколько выполнялась эта программа!Очень надо, если кто-то знает напишите!

[Stilet]

А что программа то делает?

[Shift_sk]

А программа делает треугольник паскаля!

var a:array[1..100,1..100] of int64;
    i,j,n,k,r,l,t:integer;     
    f,f2:text;
begin
assign(f2,'in.txt');
assign(f,'out.txt');
reset(f2);
rewrite(f);
read(f2,n);
k:=n*2-1;
a[1,n]:=1;
r:=n-1;
l:=n+1;
while r>0 do begin
              for i:=2 to n do begin
                                t:=r;
                                for j:=r to l do begin
                                                  if a[i,l]=0 then begin
                                                                    a[i,l]:=1;
                                                                    a[i,r]:=1;
                                                                   end;
                                                  if r+2<l then begin
                                                                 a[i,r+2]:=a[i-1,r+1]+a[i-1,r+3]; r:=r+2;
                                                                end;

                                                  end;
                                r:=t;
                                r:=r-1;
                                l:=l+1;
                                end;
              end;
 for i:=1 to n do begin
                   for j:=1 to k do
                    if a[i,j]=0 then write(f,' ')
                     else
                      write(f,a[i,j],' ');
                    writeln(f);
                   end;
 close(f);
 close(f2);
end.

[Stilet]

Хм...
Перед циклом получай время с помошью GetTime - она даст секунду
И ее же используй для получения следующей секунды в цикле for j:=r to l do begin
Сравнивай секунды, если они разнятся более чем на 1 сек, выходи из программы.
Смысл понятен?

[Shift_sk]

Да я эту фишку знаю!
дело в том что в ABC нет uses dos)
в turbo есть а там нет!а привык равотать в ABC !!!

[Stilet]

А функция Time в нем есть? Если да используй ее.

[Vaigard]

Через одну секунду треугольник Паскаля будет выходить далеко за пределы экрана, или будет некорректно отображаться, поэтому тут я не вижу смысла в подсчете времени.

[Shift_sk]

да дело даже не в треугольнике.На оллимпиадах всегда дают задачи...и обязательно условие что время выполнение программы не превышало 1-2 секунды.Для этого и нужен таймер)

[Serge_Bliznykov]

и обязательно условие что время выполнение программы не превышало 1-2 секунды.Для этого и нужен таймер)

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

p.s. впрочем, не исключено, что тестирующая программа умеет снимать слишком долгие (или зависшие в бесконечном цикле) программы. Но в любом случае, это делается ВНЕШНИМ по отношению к Вашему решению кодом.

p.p.s. да, к тому же, кто Вам сказал, что тестирующая программа написана на Pascal ABC ?!

[Shift_sk]

Не у кого тестора нет для паскаля?