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

@Andrey17 · Регистрация: 02.12.2012

Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый шаг "имени" должен быть озвучен, причём высота звука должна зависеть от направления движения. Окончание работы программы - клавиша Ins.

@Puporev · 07.02.2013, 18:09

Pascal

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.

@Andrey17 · 07.02.2013, 18:25 **[ТС]**

Спасибо огромное))))

@Andrey17 5 / 4 / 3 Регистрация: 02.12.2012 Сообщений: 80
		1
	Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора 07.02.2013, 16:09. Просмотров 1370. Ответов 2 Метки нет (Все метки) Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый шаг "имени" должен быть озвучен, причём высота звука должна зависеть от направления движения. Окончание работы программы - клавиша Ins. 0

@Andrey17 5 / 4 / 3 Регистрация: 02.12.2012 Сообщений: 80
	07.02.2013, 18:25 [ТС]	3
	Спасибо огромное)))) 0

Опции темы

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

Решение