Форум программистов, компьютерный форум CyberForum.ru

C++

Войти
Регистрация
Восстановить пароль
 
kotofey
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89
#1

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

24.12.2009, 18:57. Просмотров 401. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2009, 18:57     Кто нибудь может перевести эту прогу из Pascala на Борланд С
Посмотрите здесь:

Может кто перевести эту прогу,для codeblocks - C++
#include "stdafix.h" #include <iostream> using namespace std; int _tmain(int argc, _TCHAR* argv) { float s,t; long...

Получить последовательность (Напишите прогу, кто может?) - C++
пожалуйста напишите прогу, кто может, пожалуйста. Условие:Даны натуральное число n, действительные числа Х1,...,Хn(n>=2). Получить...

кто может переделать прогу с под С++ билдера на ВинАпи? - C++ Builder
кто может переделать прогу с под С++ билдера на ВинАпи? если кто-то сможет тогда дам саму прогу ... спасибо

Кто-нибудь может закоментировать код слэшами,пожалуйста? - C++
#include "wot.h" #include <stdio.h> #include <windows.h> #include <iostream> #include <stdlib.h> #include <conio.h> #include...

Кто-нибудь может переделать задачу со структур на классы? - C++
Огромное спасибо, кто откликнется. #include <stdio.h> #include <string.h> main() { struct ZNAK {

Кто-нибудь может начертить блок-схему по коду!!! - C++ Builder
Кто-нибудь может начертить блок-схему по коду!!! #include <stdio.h> #include <math.h> int main (void) { long n; double dbln; ...

Стек и очередь, может кто-нибудь знает как делается? - C++ Builder
Написать программу сложения элементов стека и очереди, заполненных одновременно одними и теми же числами. Например, пользователь вводит...

Может кто-нибудь из СПб хочет быть репетитором по Boost? - Boost C++
Я студент. Цель: для работы со звуком.

Преобразование времени (double. Может всё-таки кто-нибудь знает) - C++
Как double сделать так, чтобы он работал по такому принципу. К примеру идет число 0,01...0,59 и после 0,59 переходило не в 0,60 , а в...

кто может перевести на С++ с Паскаля - C++
uses crt; const raz=;{/разделители слов, можно добавить} var s,sl:string; i,k:byte; begin clrscr; writeln('Строка:'); ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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