Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
2 / 2 / 1
Регистрация: 10.03.2013
Сообщений: 39

Перевести программу с Паскаля на Си++

27.11.2014, 11:37. Показов 1944. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив
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
const
  a=3;
  b=4;
var
x,y,u:array[0..5] of real;
h,v:real;
n,i:integer;
begin
clrscr;
for n:=1 to 5 do
    begin
    h:=(b-a)/n;
    x[0]:=a;
    for i:=1 to n do
       x[i]:=x[i-1]+h;
    for i:=0 to n do
       y[i]:=(power(x[i],2)+3)/(x[i]-2);
 
       case n of
       1: u[n]:= h/2*(y[0]+y[1]);
       2: u[n]:= h/3*(y[0]+4*y[1]+y[2]);
       3: u[n]:= 3*h/8*(y[0]+3*y[1]+3*y[2]+y[3]);
       4: u[n]:= 2*h/45*(7*y[0]+32*y[1]+12*y[2]+32*y[3]+7*y[4]);
       5: u[n]:= 5*h/288*(19*y[0]+75*y[1]+50*y[2]+50*y[3]+75*y[4]+19*y[5]);
       end;
  end;
v:=70.0/3.0+ln(2048);
 
writeln('Точное решение: ',v:2:7);
for n:=1 to 5 do
writeln('n=',n,', y=',u[n]:2:7,' Погрешность:', abs(v-u[n]):2:7 );
end.
Добавлено через 1 час 5 минут
Я попыталась написать сама, но где-то здесь есть ошибка, помогите, пожалуйста, исправить, думаю в циклах что-то не так
C++ (Qt)
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
#include "stdafx.h"
#include <math.h>
#include <iostream>
#include <cstdlib>
using namespace std;
 
const int a=3;
const int b=4;
 
 
int main()
{
    setlocale(LC_ALL,"Russian");
    int n,i;
    double h,v;
    float x[5];
    float y[5];
    float u[5];
 
    for (n=1; n<=5; n++)
    {
        h=(b-a)/n;
        x[0]=a;
    
    for (i=1; i<=n; i++)
    
        x[i]=x[i-1]+h;
    
    for (i=0; i<=n; i++)
    
        y[i]=(pow(x[i],2)+3)/(x[i]-2);
    
 
        switch(n)
        {
    case 1:
        u[n]= h/2*(y[0]+y[1]);
    case 2:
        u[n]= h/3*(y[0]+4*y[1]+y[2]);
    case 3:
        u[n]= 3*h/8*(y[0]+3*y[1]+3*y[2]+y[3]);
    case 4:
        u[n]= 2*h/45*(7*y[0]+32*y[1]+12*y[2]+32*y[3]+7*y[4]);
    case 5:
        u[n]= 5*h/288*(19*y[0]+75*y[1]+50*y[2]+50*y[3]+75*y[4]+19*y[5]);
        }}
        
    v=70.0/3.0+log(2048);
    cout<<"Точное решение: "<<v<<endl;
 
for (n=1; n<=5; n++)
{
    cout<<"n= "<<n<<endl;
    cout<<"y= "<<u[n]<<endl;
    cout<<" Погрешность: "<< abs(v-u[n])<<endl;}
 
system("pause");
   return 0;
}
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.11.2014, 11:37
Ответы с готовыми решениями:

Перевести программу из Паскаля в C#
var s,dn:real; d:integer; begin s:=0; dn:=10; d:=0; repeat s:=s+dn; dn:=dn+dn*0.1; inc(d); until s&gt;100; writeln('Na ',d,'...

Перевести программу с паскаля на си
var a,b,c:integer; begin if (a=b) and (b=c) then writeln('равносторонний') else if (a=b) or (b=с) or (c=a) then...

Перевести программу с Паскаля на C++
var n,k: integer; begin write ('n='); readln (n); k:=0; while n&gt;0 do begin k:=k+1; n:=n div 10; end;

3
76 / 76 / 32
Регистрация: 14.04.2014
Сообщений: 408
27.11.2014, 12:10
Лучший ответ Сообщение было отмечено alisska как решение

Решение

во-первых, синтаксис:
C++
1
2
3
4
5
6
7
switch(n)
        {
    case 1:
        u[n]= h/2*(y[0]+y[1]);
        brake;
    case 2:
           ....
во-вторых, неявные преобразования:
C++
1
 h=(double)(b-a)/n;
кстати, сделайте переменные и массивы одного типа, либо float, либо double

это константа
C++
1
v=70.0/3.0+log(2048);
, зачем её каждый раз вычислять?

ну и на последок:
C++
1
float x[5];
создает массив из 5ти элеметов, с номерами 0,1,2,3,4, если хотите обратиться к x[5] создавайте float x[6]
1
2 / 2 / 1
Регистрация: 10.03.2013
Сообщений: 39
27.11.2014, 13:15  [ТС]
Спасибо большое за исправления! А вот в этом месте:
C++ (Qt)
1
2
3
4
 for (n=1; n<=5; n++)
    {
        h=(b-a)/n;
        x[0]=a;
я правильно пишу , что n<=5 ? теперь наверное нужно писать <=6, т.к. я объявила double x[6]
0
76 / 76 / 32
Регистрация: 14.04.2014
Сообщений: 408
29.11.2014, 12:57
Цитата Сообщение от alisska Посмотреть сообщение
я правильно пишу , что n<=5 ? теперь наверное нужно писать <=6, т.к. я объявила double x[6]
цикл выполняется, пока условие не станет ложным. (тоесть n=6 обрабатываться не будет!). НО
Цитата Сообщение от Fallenworld Посмотреть сообщение
Код C++
1
float x[5];
создает массив из 5ти элеметов, с номерами 0,1,2,3,4, если хотите обратиться к x[5] создавайте float x[6]
тоесть x[6] как раз правильно
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.11.2014, 12:57
Помогаю со студенческими работами здесь

Перевести программу с Паскаля на C++
Никак не получается транспортировать программу в C++ var a,b,c,x,F:real; begin writeln('введите a,b,c,x:'); readln(a,b,c,x); ...

Перевести программу с паскаля на си
uses crt; var x,y,z:real; begin read(x,y,z); if x+y+z&gt;x*y*z then writeln(x+y+z) else writeln(x*y*z); end.

Перевести программу с Паскаля на Си++
const a = 0.5; b = 2.9; X = 0.3; var U, F : real; begin U := (sqr(a)*X +exp(-X)*cos(b*X)) / (b*X -...

Перевести программу с Паскаля на Си++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Перевести программу из паскаля
Uses crt; Var b,g: Array of Integer; d,m,s1,s2,i: Integer; sr1,sr2: Real; BEGIN Clrscr; Writeln('Количество мальчиков: ');...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru