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

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

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

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

01.07.2014, 21:47. Просмотров 319. Ответов 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
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
uses crt,graphABC;
function y(x:real):real;
begin
if x<0 then y:=1+sqrt(abs(cos(x*x+1)))
else if x<=1 then y:=-2*x-sqr(sin(x))
else y:=exp(-sqr(cos(x)))
end;
var a,b,x,h,max,min,mx,my,dx:real;
    x0,y0,n,i:integer;
    s:string;
begin
a:=-1;
b:=1.5;
h:=0.1;
x:=a;
while x<=b+h/2 do
 begin
  writeln('x=',x:5:1,'  y=',y(x):7:3);
  if x=1.2 then
   begin
    write('Press Enter');
    readln
   end;
  x:=x+h
 end;
write('Нажмите Enter для просмотра графика');
readln;
hidecursor;
clrscr;
x0:=round(-windowwidth*a/(b-a));
y0:=windowheight div 2;
mx:=(windowwidth-60)/(b-a);{масштаб по Х}
x:=a;
max:=y(x);
min:=max;
while x<b do
 begin
  x:=x+0.01;
  if y(x)>max then max:=y(x);
  if y(x)<min then min:=y(x);
 end;
if max>abs(min) then my:=(y0+20)/max {масштаб по Y}
else my:=(y0+20)/abs(min);
n:=16;
if max>n then n:=trunc(max)+1;
if abs(min)>n then n:=trunc(abs(min))+1;
line(0,y0,windowwidth,y0);{оси}
line(x0,0,x0,windowheight);
for i:=1 to n do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx/10),y0-3,x0+round(i*mx/10),y0+3); {засечки на оси Х}
    line(x0-round(i*mx/10),y0-3,x0-round(i*mx/10),y0+3);
    line(x0+3,y0-round(i*my/2),x0-3,y0-round(i*my/2)); {засечки на оси Y}
    line(x0+3,y0+round(i*my/2),x0-3,y0+round(i*my/2));
    {подпись оси Х}
    if i mod 2=0 then
     begin
      str(i/10:0:1,s);
      textout(x0+round(i*mx/10)-15,y0+10,s);
      textout(x0-round(i*mx/10)-15,y0+10,'-'+s);
     end;
   {подписи по оси Y}
    str(i/2:0:1,s);
    textout(x0-25,y0-round(i*my/2)-10,s);
    textout(x0-30,y0+round(i*my/2)-10,'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-15,y0-25,'X');
textout(x0+5,8, 'Y');
{график}
x:=a;
dx:=0.001;
while x<=b do
 begin
  x:=x+dx;
  setpixel(x0+round(x*mx),y0-round(y(x)*my),clBlue);
 end;
setfontsize(12);
setfontcolor(clBlue);
textout(x0+30,10,'       x<0  y=1+sqrt(|cos(x^2+1)|)');
textout(x0+30,30,'   0<=x<=1  y=-2*x-sqr(sin(x))');
textout(x0+30,50,'       x>1  y=e^(-cos^2(x))');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2014, 21:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода с Pascal (C++):

Перевод кода с Pascal на С++ - C++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while m&gt;0 do begin s:=s+m mod...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x&lt;&gt;0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...

Перевод кода с Pascal в C++ - C++
ребятки, помогите с переводом с паскаля на C++ данный код var n,s,t,n1,kk,e1,x,i,ss,h:integer; ///возводит x в степнь e1 по...

Перевод кода из Pascal в С++ - C++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function st2(k:integer): integer; var j, rez:...

Перевод кода из Pascal/VB в C++ - C++
Помогите пожалуйста перевести код в С++. Сдавать уже скоро, и я никак не приложу ума как это все сотворить в С++ uses crt; ...

Перевод кода с Pascal - C++
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of integer; used: array of Boolean; ...

1
nmcf
5324 / 4644 / 1553
Регистрация: 14.04.2014
Сообщений: 18,479
03.07.2014, 07:25 #2
Из-за graphABC программу надо переделывать, простым консольным приложением не заменишь.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2014, 07:25
Привет! Вот еще темы с ответами:

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

Перевод кода с с Pascal на С++ - C++
Совсем не знаю язык Pascal, а нужно перевести кусочек кода с этого языка на С++. Помогите, пожалуйста! Задан текст. По правилам...

Перевод кода из pascal в c++ - C++
Помогите пожалуйста перевести на c++ Program bukv; Uses crt; Const g: array of char=('а','е','и','о','у','ы','э','ю','я'); Var i,j:...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...


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

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

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