Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
5 / 4 / 3
Регистрация: 02.12.2012
Сообщений: 80
1

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

07.02.2013, 16:09. Просмотров 1370. Ответов 2
Метки нет (Все метки)


Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый шаг "имени" должен быть озвучен, причём высота звука должна зависеть от направления движения. Окончание работы программы - клавиша Ins.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2013, 16:09
Ответы с готовыми решениями:

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

Программа перемещающая по экрану ваше имя клавишами управления движением курсора
Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый...

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

Программа: клавишами управления курсором двигать фигуру по экрану
Задать цвет фона розовый, цвет фигуры - серый, фигура в виде буквы Z. Клавишами управления курсором...

2
Модератор
62866 / 46910 / 32330
Регистрация: 18.05.2008
Сообщений: 113,680
07.02.2013, 18:09 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const s='Андрей';
var c1,c:char;
    n,x,y:integer;
begin
clrscr;
n:=length(s);
x:=(80-n)div 2;
y:=13;
gotoXY(x,y);
write(s);
repeat
if keypressed then
 begin
  c1:=readkey;
  if c1=#0 then c:=readkey;
  case c of
  #75:if x>0 then
       begin
        clrscr;
        x:=x-1;
        gotoXY(x,y);
        write(s);
        sound(200);
        delay(100);
        nosound;
       end;
  #77:if x<80-n then
       begin
        clrscr;
        x:=x+1;
        gotoXY(x,y);
        write(s);
        sound(300);
        delay(100);
        nosound;
       end;
  #72:if y>1 then
       begin
        clrscr;
        y:=y-1;
        gotoXY(x,y);
        write(s);
        sound(400);
        delay(100);
        nosound;
       end;
  #80:if y<25 then
       begin
        clrscr;
        y:=y+1;
        gotoXY(x,y);
        write(s);
        sound(500);
        delay(100);
        nosound;
       end;
  end;
 end;
until c=#82;
end.
1
5 / 4 / 3
Регистрация: 02.12.2012
Сообщений: 80
07.02.2013, 18:25  [ТС] 3
Спасибо огромное))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.02.2013, 18:25

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

Построить восьмиугольник. Клавишами управления курсором предусмотреть возможность перемещения по экрану
Построить восьмиугольник. Клавишами управления курсором предусмотреть возможность перемещения по...

Напишите программу, которая по введённым с клавиатуры данным выводила бы ваше имя на экране монитора
Напишите программу, которая по введённым с клавиатуры данным выводила бы ваше имя на экране...

Напишите программу, которая читает строку, и если это ваше имя то печатает на экране "привет"
Фамильярность. Напишите программу, которая читает строку, и если это ваше имя то печатает на экране...

Круг перемещается по экрану с помощью клавиш управления курсора
Круг передвигается по экрану с помощью ←,· *, ↓, →. При нажатии клавиши «пробел» меняется стиль...

Управление движением персонажа клавишами
Доброго времени суток уважаемые форумчане, что то у меня не выходит малахитовый цветок, бьюсь уже...

Напишите программу, позволяющую управлять движущимся по экрану графическим объектом
помогите решить задачу: Полет. Напишите программу, позволяющую управлять движущимся по экрану...


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

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

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