Перевести программу на си, фортран, бейсик, алгол

Среда программирования: Pascal

Название работы: Перевести программу на си, фортран, бейсик, алгол

Вид работы: Программа

Описание: Интересует возможность написания программы во время зачета.
Будет проходить зачет, задача в котором перевести программу с одного языка на другой. Язык с которого переводить и на какой изначально неизвестен. Из пройденных это: паскаль, си, фортран, бейсик, алгол. На выполнение задания дается полтора часа, т.е необходимо чтобы программист перевел программу и отправил ее мне обратно менее чем за полтора часа.

Вариант 03.
procedure invert58(n,eps) dataresult: (a) result: (det);
value n,eps; real eps,det; integer n; array a; begin real y,w; integer i,j,k,r,p; array b,c[l:n]; integer array z [l:n]; det: = 1;
for j:= 1 step 1 until n do z [j]: = j; for i:=l step 1 until n do begin k: = i; y: = a[i,i]; r: = i—1; p: = i+ 1; for j: = p step 1 until n do begin w: = a [i,j];
if abs(w)>abs(y) then begin k:=j; y: = w end
end;
det: = y X det;
if k=7^i then det: =—det;
if abs(y) Ceps then go to signal 58;
y:=i/y;
for j:=l step 1 until n do
begin cfj]: = aO,k]; a[i,k]:=a[j,i]; a[j,i]:=—c[j]Xy; b[j]:=a[i,j]: = a{i,j]Xy end;
j: = z; z{i]: = z[k]; z£kj: = j; a[i,i]: = y;
for k:== 1 step 1 until r, p step 1 until n do
I: ^ 1 steP 1 until r»P steP 1 until n do a[k,j]: = a[k,j]—b[j]Xc(k]
end I;
for r:=l step 1 until n do begin k: =z[r];
for j: = r while k=^j do begin
for i:= 1 step 1 until n do
begin w:= a [j,i]; a [j,i]: = a [k,i];
a[k,i]: = w end i; i: = z[k]; zfkj: = z[j J; k:=2[j]:=i end j end r end invert58;

Год: 2020

<<< Назад к списку

Данный заказ (программа) выполнялся нашим сайтом в 2020-м году, в рамках этого заказа была разработана программа в среде программирования Pascal. Если у Вас похожее задание на программу, которую нужно написать на Pascal, либо на другом языке программирования, пожалуйста заполните форму, приведённую ниже, после чего Ваше задание в первую очередь рассмотрит наш программист, выполнявший в 2020-м году этот заказ, если он откажется, то Ваше задание оценят другие наши программисты в течение 48-и часов, если оценка нужна срочно, просим Вас оставить пометку об этом - напишите в тексте задания фразу "СРОЧНЫЙ ЗАКАЗ".

Купить эту работу

Заказать новую работу

Viber: +79374242235 Telegram: kursovikcom ВКонтакте: kursovikcom WhatsApp +79374242235 E-mail: info@kursovik.com Skype: kursovik.com