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

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

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

Помогите перевести программу из PASCAL в C++ - C++

20.10.2011, 16:32. Просмотров 398. Ответов 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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
unit BildGraf;
 
interface
const max=2000;
      PathGraphDriver='BGI';
type ArrXY=array[1..Max,1..2] of real;
var koor:ArrXY;
 
procedure bildgr(NumberPoints:word);
procedure My_CloseGraph;
implementation
uses graph,dos,crt;
var dgran,dx,dy:word;
    fmax,fmin,pmax,pmin,df,dp:real; { for graphik }
    GrInastall:boolean;
    NewStyle,OldStyle   : LineSettingsType;
procedure Abort(Msg : string);
begin
  RestoreCrtMode;
  Writeln(' '+Msg+': '+ GraphErrorMsg(GraphResult)+' ');
  halt;
end;
 
Function RealToStr(i: Real): string;
{ Convert any Integer type to a string }
var
  s: string[11];
begin
  Str(i:8:3, s);
  while s[1]=' ' do delete(s,1,1);
  RealToStr := s
end;
Procedure OutTextXY(x,y:integer;msg:string);
var OldPattern : FillPatternType;
  begin
  GetFillPattern(OldPattern);
  SetFillStyle(0,GetColor);
  Bar(x-1,y-1,x+TextWidth(Msg),y+TextHeight(Msg));
  SetFillPattern(OldPattern,GetColor);
  Graph.OutTextXY(x,y,msg);
  end;
procedure bildgr(NumberPoints:word);
const NumbPointX = 5;
      NumbPointY = 5;
var  xn,yn,xt,yt,xnn,ynn     { for graphik }
     :integer;
     dxp,dyp,dxr,dyr:real;
     grdriver,grmode:Integer;
  Procedure GetExtremum;
var i:word;
    begin
    fmax:=-1000.0;
    fmin:=-fmax;
    pmax:=fmax;
    pmin:=fmin;
    for i:=1 to NumberPoints do
      begin
      if koor[i,2]>fmax then fmax:=koor[i,2];
      if koor[i,2]<fmin then fmin:=koor[i,2];
      if koor[i,1]>pmax then pmax:=koor[i,1];
      if koor[i,1]<pmin then pmin:=koor[i,1]
      end;
    df:=(fmax-fmin);
    dp:=(pmax-pmin);
    end;
  Procedure InstallGraph;
    begin
    grdriver:=0;initgraph(grdriver,grmode,PathGraphDriver);
    setcolor(getmaxcolor);   GetLineSettings(OldStyle);  dgran:=3;
    dx:=getmaxx-1-2*dgran;   dy:=getmaxy-3-TextHeight('-1.235')-2*dgran;
    GrInastall:=true;
    end;
  Procedure DrawGraphic;
  var i:word;
    begin
    xn:=dgran+round((koor[1,1]-pmin)/dp*dx)+1;xnn:=xn;
    yn:=dgran+round((fmax-koor[1,2])/df*dy)+1;ynn:=yn;
    for i:=2 to NumberPoints do
      begin
      xt:=dgran+round((koor[i,1]-pmin)/dp*dx)+1;
      yt:=dgran+round((fmax-koor[i,2])/df*dy)+1;
      line(xn,yn,xt,yt);
      xn:=xt;yn:=yt
      end;
    yt:=GetmaxY-TextHeight('1')-3;yn:=yt;
    end;
  Procedure OutXCoord;
  var i:word;
    begin
    rectangle(0,0,getmaxx,Yn);
    dxp:=(GetMaxX-2*dgran)/(NumbPointX-1);
    dxr:=dp/(NumbPointX-1);
    for i:=1 to NumbPointX do
      begin
      xt:=dgran+round((i-1)*dxp);
      with OldStyle do SetLineStyle(LineStyle, Pattern,Thickness);
      Line(Xt,Yt-3,Xt,Yt+5);
      SetLineStyle(2, 0, 1);
      Line(xt,dgran,xt,yn-dgran);
      if i=NumbPointX then xt:=xt-TextWidth(RealToStr(pmin+(i-1)*dxr));
      OutTextXY(Xt+3,Yt+2,RealToStr(pmin+(i-1)*dxr));
      end;
    end;
  Procedure OutYCoord;
  var i:word;
    begin
    xt:=dgran;
    dxp:=(Yt-2*dgran)/(NumbPointY-1);
    dxr:=df/(NumbPointY-1);
    for i:=1 to NumbPointY do
      begin
      yt:=yn-(dgran+round((i-1)*dxp));
      with OldStyle do SetLineStyle(LineStyle, Pattern,Thickness);
      Line(0,Yt,8,Yt);
      SetLineStyle(2, 0, 1);
      Line(10,yt,GetMaxX-dgran,Yt);
      if i=NumbPointY then yt:=yt+(TextHeight('-1.235') div 2);
      OutTextXY(10,Yt-(TextHeight('-1.235') div 2),RealToStr(fmin+(i-1)*dxr));
      end;
    end;
 
begin
if not GrInastall then InstallGraph;
  {}
  ClearDevice;
  GetExtremum;
DrawGraphic;
OutXCoord;
OutYCoord;
end;
procedure My_CloseGraph;
  begin
  readln;
  CloseGraph;
  GrInastall:=false;
  end;
begin
GrInastall:=false;
end.
прошу помочь
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2011, 16:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите перевести программу из PASCAL в C++ (C++):

Помогите перевести код с PASCAL на C++ - C++
Вот код Pascal, как его перевести в C++ ?:cry: program integral; var n,i : integer; a,b,shag,sum,itog : real; function...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of char; i: integer; begin ...

Перевести программу с Pascal на С++ - C++
uses crt; var f:text; {переменная для текстового файла} s:string; i:byte; begin clrscr; ...

Из Pascal в C++ программу перевести - C++
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить...

Перевести программу с Pascal на С++ - C++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без последней цыфры} s:integer; {сумма кубов цифр} ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite chislo: '); readln(s); repeat a:=s; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2011, 16:32
Привет! Вот еще темы с ответами:

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...


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

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

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