Бесконечно повторяющиеся 3 точки

@nr3ality · Регистрация: 04.10.2012

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

Доброго времени суток.
В интернете не как не не смог найти программу.
Вообщем надо написать программу, в которой просто будут бесконечно повторяться 3 точки(...);
Как я понял алгоритм должен быть таков: 1-я точка, 2-я точка, 3-я точка, clrscr, и по новой, до бесконечности.
Мне необходимо для примера, для более занятных задач, додуматься как с помощью [for...to...do] не смог.
Спасибо за помощь.

Добавлено через 12 минут
2-й вопрос можно ли очищать не весь экран, а только нужный элемент?

@КонецСвета · 15.10.2012, 11:30

Pascal

uses crt;
begin
repeat
  clrscr;
  sleep(100);
  for var i:=1 to 3 do
    begin  
    write('.');
    sleep(150);
    end;
  sleep(200);
until keypressed;
end.

до нажатия клавиши, можно и по другому...
а clrscr чистит как раз все окно...

@xkrotovx · 15.10.2012, 11:35

Не знаю это ли ты имел ввиду...

Pascal

var i:integer;
begin
while i=0 do write('...');
end.

а все понял, ответ надо мной правильнее.

@nr3ality 1 / 1 / 3 Регистрация: 04.10.2012 Сообщений: 7
		1
	Бесконечно повторяющиеся 3 точки 15.10.2012, 02:49. Показов 1090. Ответов 2 Метки нет (Все метки) Доброго времени суток. В интернете не как не не смог найти программу. Вообщем надо написать программу, в которой просто будут бесконечно повторяться 3 точки(...); Как я понял алгоритм должен быть таков: 1-я точка, 2-я точка, 3-я точка, clrscr, и по новой, до бесконечности. Мне необходимо для примера, для более занятных задач, додуматься как с помощью [for...to...do] не смог. Спасибо за помощь. Добавлено через 12 минут 2-й вопрос можно ли очищать не весь экран, а только нужный элемент? 0

	15.10.2012, 11:35

Бесконечно повторяющиеся 3 точки

Решение