Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Homandos
1

Движение символа через цикл

20.11.2011, 17:56. Просмотров 1425. Ответов 2
Метки нет (Все метки)

Помогите написать программу движения смайлика по экрану осуществляемого с помощью цикла.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2011, 17:56
Ответы с готовыми решениями:

Движение символа по кругу
Ввести любой символ в середине экрана. Нажатием клавиши Enter сделать движение этого символа по...

Составить программу реализующую движение символа по вертикали
1.Написать программу горизонтального движения символа влево/вправо по строке 12, пока не будет...

Не пойму как через цикл выводится движение и отображение прямоугольника
Всем привет! Изучаю последнюю главу многопоточности (Хорстман). В примере приводится небольшая...

Движение символа
Здравствуйте, может у кого то есть программа на .asm чтобы какой то символ хаотически двигался, и...

2
Заблокирован
20.11.2011, 18:43 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
x:=10; y:=20;
while x<630 do begin
outtextxy(x,y, ':)');
x:=x+2;
delay(3000);
end;
0
Модератор
61218 / 45886 / 31672
Регистрация: 18.05.2008
Сообщений: 110,499
20.11.2011, 19:33 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses graph,crt;
procedure Smail(x,y,r,c1,c2,c3:integer);
begin
setfillstyle(1,c1);
fillellipse(x,y,r,r);
setcolor(c1);
circle(x,y,r);
setcolor(c2);
setfillstyle(1,c2);
fillellipse(x-3,y-3,2,2);
fillellipse(x+3,y-3,2,2);
setcolor(c3);
Arc(x,y+5,0,180,3);
end;
var i,x,y,r:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=20;
y:=getmaxY div 2;
Smail(x,y,8,14,9,8);
repeat
i:=1;
while(i<=60) and not keypressed do
 begin
  delay(100);
  Smail(x,y,8,0,0,0);
  x:=x+10;
  Smail(x,y,8,14,9,8);
  i:=i+1;
 end;
i:=1;
while(i<=60) and not keypressed do
 begin
  delay(100);
  Smail(x,y,8,0,0,0);
  x:=x-10;
  Smail(x,y,8,14,9,8);
  i:=i+1;
 end;
until keypressed;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2011, 19:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Движение символа по экрану. Модуль Crt
Здравствуйте, мне нужна ваша помощь. Вот задача: Движение символа по экрану под управлением...

Как реализовать движение символа по экрану? ncurses.h
Здравствуйте, друзья! Нужна помощь с ncurses. Подскажите пожалуйста, как реализовать движение...

Нажатием клавиши Enter осуществить движение введенного символа по кругу
Создать программу: Ввести произвольный символ в центре экрана. Нажатием клавиши Enter осуществить...

Цикл до символа
Здравствуйте, разбираюсь в С++ Хочу сделать консольный калькулятор(простой который будет выполнять...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.