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

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

Войти
Регистрация
Восстановить пароль
 
Тима_6
0 / 0 / 0
Регистрация: 20.03.2011
Сообщений: 33
#1

Переписать с Turbo Pascal на C++) - C++

27.03.2011, 23:28. Просмотров 267. Ответов 0
Метки нет (Все метки)

Program dffmas_12;
uses crt;
const n=3;m=4;
Var a:array[1..n,1..m] of integer;
max,i,j:integer;
Begin
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10);
write(a[I,j]:4);
end;
writeln;
end;
For j:=1 to m do
begin
max:=a[1,j];
For i:=1 to n do
If max< a[i,j] then
max:=a[i,j];
Writeln('**Maxemalnu element * ', max);
End;
Readln;
End.

и найти не максимальный элемент, а минимальный элемент в каждом столбце.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2011, 23:28     Переписать с Turbo Pascal на C++)
Посмотрите здесь:

Переписать код из dev-C++ в Turbo C - C++
помогите переделать из dev-C++ в Turbo C #include &lt;iostream&gt; #include &lt;windows.h&gt; #include &lt;conio.h&gt; #include &lt;graphics.h&gt; int...

Из Turbo Pascal в C++ - C++
Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин (x1,y1), (x2,y2), (x3,y3). Вычисление...

Из Turbo Pascal в C++ - C++
var mas:arrayof Integer; A,i,n,sum:Integer; begin write('4islo elementov massiva: '); readln(n); writeln('Vvedite...

Из Turbo pascal в С++ - C++
var st: string; i, count: integer; begin readln(st); for i:=1 to length(st) do if st in then inc(count); ...

Перевести из Turbo Pascal в C++ - C++
uses crt; var x: longint; begin clrscr; writeln(‘Введите число от 1 до 10000: ‘); readln(x); ...

Перевести из Turbo Pascal в C++ - C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; write(‘Введіть х = ‘); readln(х); until...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

Переписать с Pascal на С++ - C++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел: '); Readln(n); ...

Переписать с pascal на c++ - C++
const a=5.7;b0=2;bk=8;h=2;x3=30;b1=4;b2=6; begin writeln('k = ',(b0+5.6)+(b1+5.6)+(b2+5.6)+(bk+5.6)+(x3/7*5.7)); end.


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

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

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