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

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

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

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

20.12.2011, 21:29. Просмотров 273. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2011, 21:29     Перевод из pascal в С++
Посмотрите здесь:

перевод из PASCAL в C++ - C++
Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти ничего не могу понять . объясните пжл как...

Перевод из Pascal в C++ - C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод из Pascal в C++ - C++
Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++ uses crt; var A, B, x, y, h, n, O: real; s: string; ...

Перевод с pascal на c++ - C++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++. пытался перевести, но с++ сложноват , на изучение языка времени...

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

Перевод с Pascal на C++ - C++
Пишу программу. Принципиальна скорость. Дальнейшие пути оптимизации не наблюдаются. Сообственно код: type Numb = array of int64; ...

перевод с Pascal на C++ - C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод из Pascal на C++ - C++
Помогите перевести программу из Pascal на С++ program lab; const N=30; var A:array of real; i,k:integer; S:real; begin ...


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

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

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