перевод из pascal в C++

@Aby bandit · Регистрация: 19.12.2021

Author24 — интернет-сервис помощи студентам

Pascal

type mat=array [1..20,1..20] of real;
     vec=array  [1..20] of real;
var      a:mat;
     x:vec;
     i,l,m,n:integr;
     e:real;
     procedure matr(n:integer ; var a:mat; var x:vec);
     var i,j:integer;
     begin
     for i:=1 to n do begin x[i]:=0.0;
     for j:=1 to n+1 do begin
     write ('a',i:2,j:2,'&'); readln(a[i,j])
     end
     end
     end;
     procedure seid (var n,m,l:integer; var a:mat; var x:vec; e:real;
     var i,j,k,k1,n1:integer;
     s:real;
     begin
     for k:=1 tp m do begin L:=k;
     for i:=1 tp n do begin s:=a[i,n+1];
     for j:=1 to n do s:s-a[i,j]*x[j];
     s:=s/a[i,i]; x[i]:=x[i]+s;
     if abs(s)>e then l:=0
     end;
     if L<>0 then exit
     end
     end;
     begin
     repeat write ('n,m,e?'); readln(n,m,e);
     matr(n,a,x); seid(n,m,L,a,x,e);
     if L<>0 then begin
     for i:=1 to n do writeln ('x', i:2,'=',x[i]);
     end else writeln('интерациия все')
     until false 
     end.

-------------------------------
Очень нужна помощь перевести эту прогу из паскаля в С++
Так же прикрепил файлы с оригиналом самой проги, сам мог допустить ошибку в паскале(прога начинается с 2.2p)

Комментарий модератора

П.5.18.Правил
Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
Редактор формул внизу страницы

~~Verevkin~~ · 19.12.2021, 19:38

Я уже начал переводить для тебя прогу,

--------
Пойду пивка лучше попью...

@Aby bandit · 19.12.2021, 21:03 **[ТС]**

Pascal

type mat=array [1..20,1..20] of real;
     vec=array  [1..20] of real;
var      a:mat;
     x:vec;
     i,l,m,n:integr;
     e:real;
     procedure matr(n:integer ; var a:mat; var x:vec);
     var i,j:integer;
     begin
     for i:=1 to n do begin x[i]:=0.0;
     for j:=1 to n+1 do begin
     write ('a',i:2,j:2,'&'); readln(a[i,j])
     end
     end
     end;
     procedure seid (var n,m,l:integer; var a:mat; var x:vec; e:real;
     var i,j,k,k1,n1:integer;
     s:real;
     begin
     for k:=1 tp m do begin L:=k;
     for i:=1 tp n do begin s:=a[i,n+1];
     for j:=1 to n do s:s-a[i,j]*x[j];
     s:=s/a[i,i]; x[i]:=x[i]+s;
     if abs(s)>e then l:=0
     end;
     if L<>0 then exit
     end
     end;
     begin
     repeat write ('n,m,e?'); readln(n,m,e);
     matr(n,a,x); seid(n,m,L,a,x,e);
     if L<>0 then begin
     for i:=1 to n do writeln ('x', i:2,'=',x[i]);
     end else writeln('интерациия все')
     until false 
     end.

------------------
нужен перевод этой программы из паскаля с++(тема программы Итерационные методы решения СЛАУ)
Прошу, помогите

~~Verevkin~~ · 19.12.2021, 21:09

Я же сказал - это так не работает.
ТЗ давай.

@Aby bandit · 19.12.2021, 21:18 **[ТС]**

Сообщение от Verevkin

Я же сказал - это так не работает.
ТЗ давай.

Так я тебе говорю, у нас курсовая работа, конкретно у меня вариант на тему итерационные метода решения СЛАУ, нам скинули фаил, где есть теория и в конце написаны тексты программ на разных языках паскаль, бейсик и еще какой-то, но в самой курсовой работе на нужна программа на с++ и препод сказал, что нужно просто перевести с любого языка в с++. Я в этом плохо разбираюсь и про какое тз ты говоришь я понять не могу к сожалению. Просто пойми реально очень нужна помощь с этим, из-за волнения и закидываю по новой эту прогу. Войди пожалуйста в положение. Прошу, помоги

~~Verevkin~~ · 19.12.2021, 21:26

Сообщение от Aby bandit

Так я тебе говорю, у нас курсовая работа, конкретно у меня вариант на тему итерационные метода решения СЛАУ, нам скинули фаил, где есть теория и в конце написаны тексты программ на разных языках паскаль, бейсик и еще какой-то, но в самой курсовой работе на нужна программа на с++ и препод сказал, что нужно просто перевести с любого языка в с++. Я в этом плохо разбираюсь и про какое тз ты говоришь я понять не могу к сожалению.

Кликните здесь для просмотра всего текста

ТЗ - это техническое задание. С его формулировки начинается планирование алгоритма программы.
Вангую, что звучит оно так: "Написание программы на языке С++ для решения СЛАУ методом Зейделя.". Набери это в гугле и отстань уже от нас.

~~Verevkin~~ Заблокирован
	19.12.2021, 19:38	2
	Я уже начал переводить для тебя прогу, -------- Пойду пивка лучше попью... 0

~~Verevkin~~ Заблокирован
	19.12.2021, 21:09	4
	Я же сказал - это так не работает. ТЗ давай. 0

@Aby bandit 0 / 0 / 0 Регистрация: 19.12.2021 Сообщений: 8
	19.12.2021, 21:18 [ТС]	5
	Сообщение от Verevkin Я же сказал - это так не работает. ТЗ давай. Так я тебе говорю, у нас курсовая работа, конкретно у меня вариант на тему итерационные метода решения СЛАУ, нам скинули фаил, где есть теория и в конце написаны тексты программ на разных языках паскаль, бейсик и еще какой-то, но в самой курсовой работе на нужна программа на с++ и препод сказал, что нужно просто перевести с любого языка в с++. Я в этом плохо разбираюсь и про какое тз ты говоришь я понять не могу к сожалению. Просто пойми реально очень нужна помощь с этим, из-за волнения и закидываю по новой эту прогу. Войди пожалуйста в положение. Прошу, помоги 0

~~Verevkin~~ Заблокирован
	19.12.2021, 21:26	6
	Сообщение от Aby bandit Так я тебе говорю, у нас курсовая работа, конкретно у меня вариант на тему итерационные метода решения СЛАУ, нам скинули фаил, где есть теория и в конце написаны тексты программ на разных языках паскаль, бейсик и еще какой-то, но в самой курсовой работе на нужна программа на с++ и препод сказал, что нужно просто перевести с любого языка в с++. Я в этом плохо разбираюсь и про какое тз ты говоришь я понять не могу к сожалению. Кликните здесь для просмотра всего текста ТЗ - это техническое задание. С его формулировки начинается планирование алгоритма программы. Вангую, что звучит оно так: "Написание программы на языке С++ для решения СЛАУ методом Зейделя.". Набери это в гугле и отстань уже от нас. 0

Опции темы