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

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

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

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

20.12.2011, 21:29. Просмотров 281. Ответов 0
Метки нет (Все метки)

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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2011, 21:29
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из pascal в С++ (C++):

Перевод из Pascal в C++ - C++
Помогите перевести исходник из Pascal в C++. В Паскале я силен,а вот Си ток немного знаю, выручайте плз, в долгу не останусь! Исходник...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...

Перевод с pascal на С++ - C++
разбиваем n-элементного множество Х на k блоков разбиения для n=4 Последовательность разбиений множества {1,2,3,4} ( 1 2 3 4 ) ( 1...

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

Перевод из Pascal в С++ - C++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на печать номера столбцов в которых заданы...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2011, 21:29
Привет! Вот еще темы с ответами:

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

Перевод из Pascal в С++ - C++
Для заданного целого N вычислить значение суммы(с помощью рекурсии) const n = 4; function f(const lvl : integer; sum : integer) :...

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

Перевод с Pascal на С++ - C++
Type predpr=Array of longint; rasp=Array of longint; На языке С++, как это будет выглядеть?


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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