Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 37
1

Изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево"

13.10.2011, 14:21. Показов 3485. Ответов 1
Метки нет (Все метки)

Необходимо изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево".
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2011, 14:21
Ответы с готовыми решениями:

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

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S".
Плиз помогите написать прогу: Даны текстовый файл "F" и строка "S". Получить все строки файла "F",...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

Удвоить в строке буквы "ю", "ъ", "ф", "э", а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а...

1
Модератор
63379 / 47072 / 32446
Регистрация: 18.05.2008
Сообщений: 114,099
13.10.2011, 16:02 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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
uses GraphABC,crt;
procedure Strelka(x,y,n:integer);
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setfontcolor(clRed);
textout(windowwidth div 2-140,10,'Управление стрелками Выход-Esc');
setpencolor(clBlue);
setpenwidth(3);
case n of
1:begin
  x2:=x+50;y2:=y;
  x3:=x2-10;y3:=y-5;
  x4:=x2-10;y4:=y+5;
  end;
2:begin
  x2:=x;y2:=y+50;
  x3:=x-5;y3:=y2-10;
  x4:=x+5;y4:=y2-10;
  end;
3:begin
  x2:=x-50;y2:=y;
  x3:=x2+10;y3:=y-5;
  x4:=x2+10;y4:=y+5;
  end;
4:begin
  x2:=x;y2:=y-50;
  x3:=x-5;y3:=y2+10;
  x4:=x+5;y4:=y2+10;
  end;
end;
line(x,y,x2,y2);
line(x2,y2,x3,y3);
line(x2,y2,x4,y4);
end;
var x,y,n: integer;
    c:char;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
hidecursor;
n:=1;
Strelka(x,y,n);
LockDrawing;
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #77:begin
      ClearWindow;
      n:=3;
      Strelka(x,y,n);
      Redraw;
      Sleep(10);
      x:=x-5;
      end;
  #75:begin
     ClearWindow;
      n:=1;
      Strelka(x,y,n);
      Redraw;
      Sleep(10);
      x:=x+5;
      end;
   #72:begin
      ClearWindow;
      n:=4;
      Strelka(x,y,n);
      Redraw;
      Sleep(10);
      y:=y-5;
      end;
    #80:begin
        ClearWindow;
        n:=2;
        Strelka(x,y,n);
        Redraw;
        Sleep(10);
        y:=y+5;
        end;
    #27:exit;
   end;
  end;
until c=#27;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.10.2011, 16:02

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

Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка"
4 .Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка".

Определить сколько "5", "4", "3", "2" было выставлено в каждом классе
известны оценки за контрольную по физике каждого ученика двух классов. Определить сколько "5", "4",...

Заменить букву "А" на "КО" и подсчитать общее количество букв "Ф" и "В"
Заменить букву "А" на "КО" и подсчитать общее кол-во букв "Ф" и "В" . и Последнее...

Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет"
1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе...


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

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

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