0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89
1

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

24.12.2009, 18:57. Показов 553. Ответов 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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2009, 18:57
Ответы с готовыми решениями:

Может кто-нибудь слышал про эту прогу?
Программа по криптографии и/или стеганографии. CryptLink или CryptoLink. Может, кто знает? Киньте...

Может кто перевести эту прогу,для codeblocks
#include "stdafix.h" #include <iostream> using namespace std; int _tmain(int argc, _TCHAR*...

Кто-нибудь пытался установить эту прогу (wsp) на 4 прайм маткада. Поделитесь опытом
Добрый день, хотел бы узнать, кто нибудь пытался установить сею прогу(wsp) на 4 прайм маткада?Если...

Указатели и адреса: может кто-нибудь нормально по-человечески эту тему объяснить?
Добрый вечер. Читаю вот книгу по Липманну и ничего не понимаю из этих слов, может кто нормально...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2009, 18:57

Кто-нибудь может перевести Паскаль в C#?
Отзовитесь! Кто сможет перевести

может кто-нибудь перевести Pascal на C++?
const A1=5/9; A2=8/9; t=-0.77459 type func=function(x,c,d:real):real var a,b,eps:real c:array of...

Кто может перевести прогу из диалога в вполне работающее приложение?
Код Диалога #include "dialog.h" #include "ui_dialog.h" #include <QTextCodec> #include...


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

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

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