Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Igroman98
1 / 1 / 1
Регистрация: 16.08.2013
Сообщений: 66
#1

Движения текста по экрану

16.08.2013, 21:30. Просмотров 975. Ответов 2
Метки нет (Все метки)

Здравствуйте! Прошу помощи! Помогите создать программу через Turbo pascal. Например: Слово "Привет" чтоб двигалось снизу в верх. Помогите пожалуйста, своих мозгов не хватает
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.08.2013, 21:30
Ответы с готовыми решениями:

Написать программу движения фигуры по экрану, не выходя за его пределы
Создать объект - закрашенный параллелепипед. Написать программу движения фигуры...

Нарисовать автомобиль. Реализовать алгоритм, движения автомобиля по экрану(с вращением колес)
Помогите пожалуйста.

Напишите программу, движения точки по экрану в заданном направлении с заданным шагом.
Помогите пожалуйста!!! Напишите программу, движения точки по экрану в...

Движение текста по экрану
программа, управляющую движением текущего времени по экрану с помощью клавиш...

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

2
Kodzaev
3003 / 1892 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
16.08.2013, 22:18 #2
Лучший ответ Сообщение было отмечено Igroman98 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
  crt;
 
var
  y: byte;
 
begin
  y := 25;
  repeat
    Dec(y);
    GotoXY(1, y);
    Write('Privet');
    Delay(1000);
    Clrscr;
  until (y = 1) or (KeyPressed);
end.
0
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 567
17.08.2013, 06:16 #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
uses
  crt;
 
var
  x,y:integer;
  fl:boolean;
 
begin
  x:=1;y:=1;
  repeat
    if y=1 then
      fl:=true;
    if y=25 then
      fl:=false;
    GotoXY(x,y);
    writeln('Privet!');
    delay(100);
    clrscr;
    if fl then
      inc(y)
    else
      dec(y);
  until KeyPressed;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.08.2013, 06:16

Движение текста по экрану с помощью клавиш управления курсором
осуществить движение текста по экрану с помощью клавиш управления курсором....

Прога движения фигуры по экрану.
Люди, подскажите пожалуйста код программы движения фигуры по экрану......

Написать программу движения 3-х разных геометрических фигур по экрану
Написать программу движения 3-х разных геометрических фигур по экрану...


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

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

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