Форум программистов, компьютерный форум, киберфорум
Наши страницы

Кто нибудь может перевести эту прогу из Pascala на Борланд С - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Для начинающих http://www.cyberforum.ru/cpp/thread79242.html
1)Перевести в веденойстроке все буквы из нижнего регистра в верхний. 2)написать функцию, которая удаляет из строки заданные символы. Добавлено через 18 секунд заранее спасибо Добавлено через...
C++ Не могу понять ошибку функции TextOut мне нужно вывести строку в окно формы. и пишу такой код TextOut(pDC, x, i, S, strlen(S)); где S - char S; ошибку выдает след: error C2664: 'TextOut': cannot convert parameter 4 from 'char ' to... http://www.cyberforum.ru/cpp/thread78974.html
C++ Условный оператор if, туплю в коде.
Определите синтаксис условного оператора if языка С, в котором условия задаются с помощью отношений,а в качестве операторов, выполняемых в зависимости от значений условий, можно истольковать только...
C++ Кросплатформенное оконное на плюсплюсе
Как на плюсплюсе писать кросплатформенный оконный софт? Где нибудь есть тексты для новичка в кросплатформе по этой теме? Чистый си и визуальные среды просьба не предлагать.
C++ Чем отличается 'программирование' от ООП? http://www.cyberforum.ru/cpp/thread78125.html
Большинство литературы про С++ можно поделить на 2 категории - "программирование" и "Объектно ориентированное программирование" (естественно есть и другие, но мне интересны тольке эти). Собственно...
C++ СИ++ Бел. Гос. Универ. Инф. и Рад-ники Помогите очень нужно, у меня ступор, я не знаю че делать задачи для вас легкие. Кто откликнется тому +1 спасенная жизнь. И хотелось бы до 23.12.09. Или дайте конспекты максимально подробные(для... подробнее

Показать сообщение отдельно
kotofey
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89

Кто нибудь может перевести эту прогу из Pascala на Борланд С - C++

24.12.2009, 18:57. Просмотров 412. Ответов 0
Метки (Все метки)

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
Uses crt,graph;
 Var drdr,mode,d,x,y,s:integer;
  ch:string;
  vector:char;
  color:byte;
Procedure ugol(x,y:integer);
 begin
  moveto(x,y);
  Lineto(x+s,y);
  Lineto(x+s+(s div 2),y+(s div 2));
  Lineto (x+s,y+s);
  Lineto(x,y+s);
  Lineto(x-(s div 2),y+(s div 2));
  Lineto(x,y);
 end;
 
Procedure Move(var x,y:integer; d:integer; vector:char; color:byte);
begin
       d:=5; {Кол-во точек для перемещения} 
       case vector of
       'u': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y-d;
       ugol(x,y);
       end;
       'r': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x+d;
       ugol(x,y);
       end;
       'l':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x-d;
       ugol(x,y);
       end;
       'd':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y+d;
       ugol(x,y);
       end;
       end;
end;
 
Begin
randomize;
       drdr:=detect;
       initgraph(drdr,mode,'d:\bp\bgi');
       color:=random(16);
       setcolor(color);
       setbkcolor(black); x:=getmaxX div 3;  y:=getmaxY div 3;
       s:=100;
       ugol(x,y);
       repeat
       ch:=readkey;
       if ch=#0 then
       case readkey of
       #72:begin
       vector:='u';
       move(x,y,d,vector,color);
       end;
       #77:begin
       vector:='r';
       move(x,y,d,vector,color);
       end;
       #75:begin
       vector:='l';
       move(x,y,d,vector,color);
       end;
       #80:begin
       vector:='d';
       move(x,y,d,vector,color);
       end; end;
       until ch=#27;
       Closegraph;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru