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

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

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

Перевод из Pascal в C++ - C++

15.11.2013, 12:33. Просмотров 363. Ответов 4
Метки нет (Все метки)

Помогите перевести в С++.
Вот код :

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
program Adam;
uses crt;
var
 func,x,y,yp:array[1..100] of real;
 proiz:array[1..4] of real;
 h,a,b,maxfp,maxp:real;
 i,n:integer;
{---------------------------------------------------------------------}
function f(x,y:real):real; {functia proizvodnoi}
begin
 y:=x+sin(x);        {-zadacha Koshi}
 f:=y;
end;
{---------------------------------------------------------------------}
function FP(x:real):real;
begin
    FP:=(x*x)/2-cos(x)   {reshenie zadachi Koshi}
end;
{---------------------------------------------------------------------}
procedure Adams;
begin
 writeln('metod Adamsa for reshenia zadachi Koshi');
 writeln('nachalnie proizvodnie');
for i:=1 to 4 do
 writeln('x[',i,']=',x[i]:2:3,'      f(x[',i,'],y[',i,'])=',f(x[i],y[i]):2:3);
 writeln('nachalnoe znachenie Y=',y[4]:2:3);
 for i:=4 to n do
  begin
   y[i+1]:=y[i]+h/24*(55*f(x[i],y[i])-59*f(x[i-1],y[i-1])+37*f(x[i-2],y[i-2])-9*f(x[i-3],y[i-3]));
   x[i+1]:=x[i]+h;
   writeln('x[',i+1,']=',x[i+1]:2:3,'    y[',i+1,']=',y[i+1]:2:3);
  end;
end;
{---------------------------------------------------------------------}
begin
 clrscr;
 writeln('vvedite znachenie granic otrezka a-nachalo,b-konec');
 readln(a,b);
 writeln('kol-vo razbienia otrezka (a,b] :n');
 readln(n);
 h:=(b-a)/n;
 writeln('znachenie shaga',h:2:3);
 writeln('vvedem znachenie nachalnix proizvodnix');
 x[1]:=a;
for i:=1 to 4 do  {}
 begin            {}
  f(x[i],y[i]);   {}
  x[i+1]:=x[i]+h; {opredelaem nachalnie znachenia}
 end;             {}
 y[4]:=x[4]*x[4]/2-cos(x[4]); {}
 Adams;
 for i:=4 to n do
    yp[i]:=FP(x[i]);
  MaxP:=abs(y[4]-yp[4]);
 for i:=5 to n do
  if MaxP<abs(y[i]-yp[i]) then
      MaxP:=abs(y[i]-yp[i]);
 writeln('practicheskaia pogreshnost',MaxP:2:6);
{ writeln(y[i]);
 writeln(yp[i]);}
 MaxP:=abs(y[4]-yp[4])/(h*h*h*h);
 for i:=5 to n do
  if MaxP<abs(y[i]-yp[i])/(h*h*h*h) then
      MaxP:=abs(y[i]-yp[i])/(h*h*h*h);
  writeln('teoreticheskaia pogreshnost',MaxP:2:6);
 readkey;
end.
Спасибо)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2013, 12:33
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Pascal в C++ (C++):

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...

Перевод из Pascal в C++ - C++
В файле W задан массив из девяти элементов. В новом файле WW сформировать массив, в котором каждому элементу будет присвоено значение...

перевод с Pascal на C++ - C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод с Pascal на C++ - C++
Помогите пожалуйста перевести код с Pascal на C++, паскаль совсем не знаю. Задание :Дана строка символов, в конце которой стоит точка....

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Мотороллер
428 / 240 / 37
Регистрация: 05.08.2013
Сообщений: 1,647
Завершенные тесты: 1
15.11.2013, 12:40 #2
с выводом мне влом писать
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
#include <cmath>
using namespace std;
 
double func[100], x[100], y[100], yp[100], proiz[4], h, a, b, maxfp, maxp;
int i, n;
 
double f(double x, double y)
{
    return x+sin(x);
}
 
double FP(double x)
{
    return pow(x, 2)/2-cos(x);
}
0
Сергей111111212
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 6
15.11.2013, 12:42  [ТС] #3
Вот с выводом у меня проблема )
0
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
15.11.2013, 13:03 #4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void Adams()
{
 cout << "metod Adamsa for reshenia zadachi Koshi" << endl;
 cout << "nachalnie proizvodnie" << endl;
for( int i=1; i<=4; i++ )
 {
 cout.width( 3 );
 cout << "x[" << i << "]=" << x[i] << "      f(x[" << i << " ],y[ " << i << "])=" << f(x[i],y[i]) << endl;
 }
 cout.width( 3 );
 cout << "nachalnoe znachenie Y=" << y[4] << endl;
 for( int i=4; i<=n; i++ )
  {
   y[i+1]=y[i]+h/24*(55*f(x[i],y[i])-59*f(x[i-1],y[i-1])+37*f(x[i-2],y[i-2])-9*f(x[i-3],y[i-3]));
   x[i+1]=x[i]+h;
   cout.width( 3 );
   cout << "x[" << i+1 << "]=" << x[i+1] << "    y[" << i+1 << "]=" << y[i+1] << endl;
  }
}
Но имейте в виду, что нумерация массивов в C++ начинается с нуля.
0
Сергей111111212
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 6
15.11.2013, 13:13  [ТС] #5
Спасибо )
Хотелось бы что бы до конца код переделать))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2013, 13:13
Привет! Вот еще темы с ответами:

Перевод из Pascal в С++ - C++
Помогите пожалуйста перевести программу из Паскали в С++ var k,n: integer; d: char; procedure AddDigit(s: string); var ...

перевод из PASCAL в C++ - C++
Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти ничего не могу понять . объясните пжл как...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
15.11.2013, 13:13
Ответ Создать тему
Опции темы

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