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

Перевести код Pascal на C++ - C++

Восстановить пароль Регистрация
 
ArtGoN
0 / 0 / 0
Регистрация: 17.04.2010
Сообщений: 15
08.07.2010, 10:54     Перевести код Pascal на C++ #1
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
Program PROGRAMMA6;
uses dos, crt, graph; 
 
Const N=110; M=90; s=13; r=6; h=5; 
Var      y, yy, u     : array [1..N,1..M] of integer;
         ii, jj, j, k, Gd, Gm : integer; i : Longint;
 
Label met;
 
BEGIN  
 
  Gd:= Detect;  InitGraph(Gd, Gm, 'c:\bp\bgi');
  
  If GraphResult <> grOk then  Halt(1);
  
setcolor(8); setbkcolor(15);
(*  y[50,50]:=1;              { Одиночная волна } *)
    For j:=1 to 45 do         { Однорукавная волна }
    For i:=1 to 13 do  y[40+i,j]:=i;
(*  For j:=1 to M do          { Двурукавная волна  }
    For i:=1 to 13 do begin    y[40+i,j]:=i;
    If j>40 then y[40+i,j]:=14-i; end;   *)
Repeat 
    If k=round(k/20)*20 then y[30,30]:=1; {Осциллятор 1}
(*  If k=round(k/30)*30 then y[20,50]:=1; {Осциллятор 2} *)
    For i:=2 to N-1 do For j:=2 to M-1 do begin
    If (y[i,j]>0) and (y[i,j]<s) then yy[i,j]:=y[i,j]+1;
    If y[i,j]=s then begin yy[i,j]:=0; u[i,j]:=0; end;
    If y[i,j] <> 0 then goto met;
    For ii:=i-1 to i+1 do For jj:=j-1 to j+1 do begin
    If (y[ii,jj]>0) and (y[ii,jj]<=r) then u[i,j]:=u[i,j]+1;
    If u[i,j]>=h then yy[i,j]:=1;                end;
met:  end;  Delay(2000);               {Задержка}
    cleardevice; 
    For i:=21 to 70 do begin
    yy[i,60]:=0; yy[i,61]:=0;        {Препятствие}
    circle(6*i-10,500-6*60,3); circle(6*i-10,500-6*61,3); end;
    For i:=1 to N do For j:=1 to M do 
      begin y[i,j]:=yy[i,j]; setcolor(12);
      If (y[i,j]>=1) and (y[i,j]<=r) then circle(6*i-10,500-6*j,3);
      setcolor(8);
      If (y[i,j]>6) and (y[i,j]<=s) then circle(6*i-10,500-6*j,2);
      end;
until KeyPressed; 
CloseGraph;
END.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2010, 10:54     Перевести код Pascal на C++
Посмотрите здесь:

C++ Перевести код из Pascal на C++
код pascal перевести в с++ C++
Перевести код из Pascal в C++ C++
Перевести код с Pascal C++
C++ Перевести код из Pascal на С++
C++ Перевести код с Pascal
C++ Перевести код с Pascal
C++ Перевести код с Pascal на C# и C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
nikkka
Мат в 32 хода
 Аватар для nikkka
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
08.07.2010, 11:28     Перевести код Pascal на C++ #2
ArtGoN, ты бы хоть сказал что программа делает, а то тут и так больших специалистов по Паскалю нету...
Yandex
Объявления
08.07.2010, 11:28     Перевести код Pascal на C++
Ответ Создать тему
Опции темы

Текущее время: 14:19. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru