Анимация в модуле crt. Движение буквы

@skylite208 · Регистрация: 25.04.2012

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

Мне нужно в паскаль написать программу что у меня на экране выходило буква А и проходила шагов5-10
вот там в программе что-то gotoXT(4,2); ? Помогите пожалуйста , Заранее спасибо

@Puporev · 14.05.2012, 20:08

Pascal

uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 10 do
 begin
  gotoXY(i,1);
  write('A');
  gotoXY(80,25);
  delay(500);
  gotoXY(i,1);
  write(' ');
 end;
gotoXY(i,1);
write('A');
gotoXY(80,25);
readln
end.

@Puporev · 14.05.2012, 20:56

skylite208, C головой дружим?
https://www.cyberforum.ru/pascal/thread574442.html

@skylite208 · 17.05.2012, 17:24 **[ТС]**

Помогите пожалуйста , очень нужно ))
Вот у меня такая программа , и мне нужно вот в этой пргорааме что-то исправить чтоб у меня был не 1 шаг а где-10 шагов 10 или хотя бы 5?? Что тут неправильного??

Pascal

uses crt;
Begin 
  clrscr;
gotoXY(4,2);
write('A');
delay(50000);
gotoXY(4,2);
write(' A');
delay(50000);
gotoXY(5,2);
write(' A');
End.

Вот что тут не так??

@КонецСвета · 18.05.2012, 01:40

Pascal

uses crt;
var i: byte;
Begin
  clrscr;
for i:=4 to 24 do
    begin
    gotoXY(i,2);
    write('A');
    delay(1000);
    gotoXY(i,2);
    write(' ');
    end;
End.

@skylite208 · 03.06.2012, 10:50 **[ТС]**

Ребят у меня не получается одна программа помогите , нужно написать программу чтобы на черный экран выводилось А и она ходила вправо 10 шагов потом остановилось и опять прошлось
Заранее огромное спаисбо

@Puporev · 03.06.2012, 18:50

Точно какой-то неадекват....

@skylite208 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 11
		1
	Анимация в модуле crt. Движение буквы 14.05.2012, 19:39. Показов 2824. Ответов 6 Метки нет (Все метки) Мне нужно в паскаль написать программу что у меня на экране выходило буква А и проходила шагов5-10 вот там в программе что-то gotoXT(4,2); ? Помогите пожалуйста , Заранее спасибо 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.05.2012, 20:56	3
	skylite208, C головой дружим? https://www.cyberforum.ru/pascal/thread574442.html 1

@skylite208 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 11
	03.06.2012, 10:50 [ТС]	6
	Ребят у меня не получается одна программа помогите , нужно написать программу чтобы на черный экран выводилось А и она ходила вправо 10 шагов потом остановилось и опять прошлось Заранее огромное спаисбо 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.06.2012, 18:50	7
	Точно какой-то неадекват.... 1