Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 28.09.2017
Сообщений: 27
1

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

12.04.2018, 12:24. Просмотров 1595. Ответов 2
Метки нет (Все метки)


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

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

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

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

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

2
Модератор
62920 / 46944 / 32351
Регистрация: 18.05.2008
Сообщений: 113,756
12.04.2018, 13:42 2
Лучший ответ Сообщение было отмечено anastasiasapego как решение

Решение

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
62
63
64
65
66
67
68
69
70
71
72
73
74
uses crt;
const s='Онуфрий';
var c:char;
    i,k,x,y:byte;
    s1:string;
begin
clrscr;
s1:='';
for i:=1 to length(s) do
s1:=s1+' ';
k:=length(s) div 2;
gotoXY(20,1);
write('Управление - стрелки, выход Insert');
x:=40-k;
y:=13;
gotoXY(x,y);
write(s);
repeat
c:=readkey;
if c=#0 then c:=readkey;
case c of
#75:if x>1 then
     begin
      gotoXY(x,y);
      write(s1);
      x:=x-1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(400);
      delay(100);
      nosound;
     end;
#77:if x<80-length(s) then
     begin
      gotoXY(x,y);
      write(s1);
      x:=x+1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(600);
      delay(100);
      nosound;
     end;
#72:if y>2 then
     begin
      gotoXY(x,y);
      write(s1);
      y:=y-1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(500);
      delay(100);
      nosound;
     end;
#80:if y<25 then
     begin
      gotoXY(x,y);
      write(s1);
      y:=y+1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(600);
      delay(100);
      nosound;
     end;
#82:exit;
end;
until c=#82;
readln
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5697 / 3412 / 2430
Регистрация: 22.11.2013
Сообщений: 9,569
Записей в блоге: 1
14.04.2018, 21:12 3
Я б несколько подсократил:
добавить:
Pascal
1
2
3
4
5
6
7
8
9
procedure DoMove(dx, dy: Integer);
begin
  Sound(500+dx*100+dy*50);
  GotoXY(x,y); Write(s1);
  Inc(x,dx); Inc(y,dy);
  GotoXY(x,y); Write(s);
  GotoXY(x,y);
  Delay(100); NoSound;
end;
строки 21-71 заменить на:
Pascal
1
2
3
4
5
6
  case c of
  #75: if x>1            then DoMove(-1, 0);
  #77: if x<80-Length(s) then DoMove( 1, 0);
  #72: if y>2            then DoMove( 0,-1);
  #80: if y<24           then DoMove( 0, 1);
  end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2018, 21:12

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

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

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

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

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


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

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

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