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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ sting это класс. а int, double и char? http://www.cyberforum.ru/cpp-beginners/thread152434.html
sting это класс. а int, double и char?
C++ В строке скопировать каждый второй символ в конец строки есть задача: в строке s скопировать каждый 2й символ в конец строки. я не могу понять в чем ошибка, либо просто не понял условие clrscr(); char *str, *str2; cout<<"Enter string: "; cin>>str; for(int i=0;strlen(str);i++) if(str==str) { http://www.cyberforum.ru/cpp-beginners/thread152359.html
Литература C++ C++
C++ Borland C++ Builder Visual C++ Исходники C++, Visual C++ Исходники C++ Builder
C++ Почему вылетает эксепшн?
Товарищи, подскажите, почему вылетает эксепшн? char *p = "qwerty"; p = 'a'; Потому что p указывает на константное выражение "qwerty"? Пытался избавиться от константности приведением типов при помощи const_cast<char*>... Не помогает:)
C++ Полиморфизм и иерархия классов. http://www.cyberforum.ru/cpp-beginners/thread152340.html
Очень надеюсь на Вашу помощь. На экране имеются круг и точка, которые двигаются при нажатии клавиш-стрелок (для круга) или wasd(для точки). Может двигаться либо точка, либо круг. При нажатие определенной клавише точка или круг меняют свой цвет. Нужна помощь в создании классов. #include <iostream.h> #include<graphics.h> #include<conio.h> enum Boolean{false, true}; class...
Visual C++ Новые элементы меню не появляются (MFC) Я создаю MFC application потом class view/add/resource/menu. Создаю элементы меню ,и запускаю прогу,но новые элементы не появляются. Почему,и как их добавить ?? :wall: подробнее

Показать сообщение отдельно
ArtGoN
0 / 0 / 0
Регистрация: 17.04.2010
Сообщений: 15
08.07.2010, 10:54     Перевести код Pascal на C++
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:05. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru