Будет ли работать данный код в Turbo Pascal?

@Sasha38 · Регистрация: 01.12.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня есть вопрос. Будет ли работать этот код на Turbo Pascal?

Pascal

uses CRT,Timers,Events;
var i:integer;
procedure Second;
begin
 clrscr;
 inc(i);
 write(i);
end;
 
var t: integer;
begin
hidecursor;
  i:=0;
  t:=CreateTimer(1000,Second);
end.

Заранее спасибо за ответ.

@Human_foot · 18.07.2018, 18:20

Нет

@Puporev · 18.07.2018, 18:54

В Турбо Паскале можно так.

Pascal

uses CRT;
var i:integer;
procedure Second;
begin
repeat
 delay(1000);
 clrscr;
 inc(i);
 gotoXY(1,1);
 write(i);
 gotoXY(80,25);
until keypressed;
end;
begin
i:=0;
Second;
end.

Если подключит модуль DOS и пару процедур то можно и курсор вообще убрать.

@Sasha38 · 18.07.2018, 20:12 **[ТС]**

Human_foot, спасибо за ответ.

Добавлено через 1 минуту
Puporev, delay делает задержку всей программы, этот вариант меня не устраивает, но всё равно спасибо.

@Puporev · 18.07.2018, 20:15

Да кто знает что Вас устраивает. Из вопроса и примера кода этого не видно.

@Human_foot 156 / 108 / 36 Регистрация: 27.06.2018 Сообщений: 253
	18.07.2018, 18:20	2
	Сообщение было отмечено Sasha38 как решение Решение Нет 1

@Sasha38 0 / 33 / 5 Регистрация: 01.12.2017 Сообщений: 707
	18.07.2018, 20:12 [ТС]	4
	Human_foot, спасибо за ответ. Добавлено через 1 минуту Puporev, delay делает задержку всей программы, этот вариант меня не устраивает, но всё равно спасибо. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.07.2018, 20:15	5
	Да кто знает что Вас устраивает. Из вопроса и примера кода этого не видно. 0

Будет ли работать данный код в Turbo Pascal?

Решение