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

С++ для начинающих

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

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

08.07.2010, 10:54. Просмотров 544. Ответов 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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2010, 10:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код Pascal на C++ (C++):

Перевести код из Pascal на С++ - C++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; st: Byte; nagr: Byte; ...

Перевести код с С++ в С и Pascal - C++
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите: #include...

Перевести код с Pascal - C++
l:array of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l:=random(10)-3; ...

Перевести код с Pascal - C++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

Перевести код из Pascal в C++ - C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат. Помогите плиз. ...

Перевести код из Pascal в с++ - C++
Нужно перевести из паскаля в с++ две программы, кот. интегрируют методом симсона и трапеций соответственно. Заранее спасибо, форумчане)) ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
nikkka
Мат в 32 хода
235 / 170 / 8
Регистрация: 10.09.2009
Сообщений: 1,096
08.07.2010, 11:28 #2
ArtGoN, ты бы хоть сказал что программа делает, а то тут и так больших специалистов по Паскалю нету...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2010, 11:28
Привет! Вот еще темы с ответами:

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a&lt;(b+c) then Fun:=true else Fun:=false; end; var ...


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

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

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