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

Перевод из pascal в С++ - C++

Восстановить пароль Регистрация
 
BlackEzh
0 / 0 / 0
Регистрация: 09.12.2010
Сообщений: 15
20.12.2011, 21:29     Перевод из pascal в С++ #1
Program lab;
var i,j,im,jm:integer; A:array[1..5,1..5] of real;
C:array[1..5] of real; k,m,s:real;
A_1:array[1..5,1..5] of real;

Begin
For i:=1 to 5 do
For j:=1 to 5 do
begin
write ('A[',i:2,',',j:2,']=');
readln (A[i,j]);
end;

writeln(' Матрица А');
For i:=1 to 5 do begin
for j:=1 to 5 do
write(A[i,j]:3:0);writeln;
end;

For j:=1 to 5 do begin
k:=0;
for i:=1 to 5 do
k:=k+A[i,j];
C[j]:=k;
end;
write('C=(');begin for i:=1 to 5 do write (C[i]:4:0,' ');end; writeln(')');

m:=-exp(20*ln(10));
for i:=1 to 5 do
for j:=1 to 5 do
if (i=j) then if (A[i,j]>m) then begin m:=A[i,j];im:=i;jm:=j;end;
writeln('Max= ',m:3:0,' imax=',im,' jmax=',jm);
writeln(' Матрица* A_1');
A[1,3]:=m;
for i:=1 to 5 do begin
for j:=1 to 5 do
write(a[i,j]:3:0);writeln;
end;
END.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2011, 21:29     Перевод из pascal в С++
Посмотрите здесь:

C++ перевод с Pascal на C++
C++ Перевод с Pascal на C++
Перевод с pascal на c++ C++
Перевод из Pascal в C++ C++
C++ Перевод с pascal на c++
Перевод с Pascal на C++ C++
C++ Перевод c Pascal на С++
Перевод из Pascal в C++ C++

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

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

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