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

из паскаля в С++ - C++

Восстановить пароль Регистрация
 
goddess007
0 / 0 / 0
Регистрация: 09.09.2010
Сообщений: 18
05.01.2011, 18:26     из паскаля в С++ #1
кто сможет пожалуста переведите этот код в С++:
Program PR53;
Uses Graph;
const n=20;
Var k,d,m,x1,x2,y1,y2:integer;
s1,s2,s3,s4,x0,y0,a:real;
x,y:array[1..n] of integer;
Begin
d:=detect;
for k:=1 to n do read(x[k],y[k]));
for k:=1 to n do
Writeln('x['k:2,']='x[k],' y['k:2,']=',y[k]);
readln;
s1:=0; s2:=0; s3:=0; s4:=0;
For k:=1 to n do
Begin
s1:=s1+x[k]; s2:= s2+y[k];
s3:=s3+sqr(x[k]); s4:=s4+x[k]*y[k];
end;
x0:=s1/n; y0:=s2/n;
a:=(s4-n*x0*y0)/(s3-n*sqr(x0));
writeln ('Аппроксимирующая функция имеет вид');
writeln (' ','y-',y0:9:4,'=',a:6:4,'x-',x0:6:4);
readln;
x1:=0; y1:=Round(y0+a*(x1-x0));
x2:=400; y2:=Round(y0+a*(x2-x0));
readln;
InitGraph(d,m,' '); Moveto(0,0);
Line(0,0,600,0); Line(0,0,0,500);
For k:=1 to n do PutPixel (x[k],y[k],14);
Line(x1,y1,x2,y2);
Readln;
CloseGraph;
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2011, 18:26     из паскаля в С++
Посмотрите здесь:

с паскаля на Си++ C++
из паскаля в С++ C++
Из паскаля в С++ C++
С паскаля на с++ C++
С паскаля в С++ C++
C++ С Паскаля на С++
С Паскаля на С++ C++
C++ с паскаля в с++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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