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

Перепишите пожалуйста с Pascal на С++ - C++

Восстановить пароль Регистрация
 
Olich
0 / 0 / 0
Регистрация: 28.10.2011
Сообщений: 36
18.12.2011, 06:14     Перепишите пожалуйста с Pascal на С++ #1
Дана целочисленная матрица размера 5 x 10. Вывести номер ее первой строки, содержащего равное количество положительных и отрицательных элементов (нулевые элементы не учитываются). Если таких строк нет, то вывести 0.

Перепишите пожалуйста с Pascal на С++. Заранее спасибо!

uses crt;
const m=2;
const n=2;
var matrix: array [1..m,1..n] of real;

procedure input(var matrix: array [1..m,1..n] of real);
var i :integer;
j :integer;
begin
for j:=1 to n do
for i:=1 to m do
begin
matrix[i,j]:=m-2*m*random;
end;
end;

procedure output(matrix: array [1..m,1..n] of real);
var i :integer;
j :integer;
begin
for j:=1 to m do begin
for i:=1 to m do
write(matrix[i,j]:2:1,' ');
writeln;
end;
end;

procedure action(matrix: array [1..m,1..n] of real);
var i,j,k,c :integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
c := 0;
for j := 1 to n do
if matrix[i, j] > 0 then
inc(c)
else
if matrix[i, j] < 0 then
dec(c);
if c = 0 then
writeLn('result: ', i);
end;
end;
begin
input (matrix);
output (matrix);
action (matrix);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2011, 06:14     Перепишите пожалуйста с Pascal на С++
Посмотрите здесь:

C++ перепишите на C++ пожалуйста
C++ Переведите с Pascal на С++ пожалуйста
Перепишите пожалуйста на C++ C++
C++ Перепишите программу из Pascal в C++
Перепишите задачу из Pascal на C++ (Есть условие) C++
Перепишите код C++
C++ Пожалуйста, переведите с Pascal на C++
C++ Перепишите пожалуйста код программы с языка Visual Basic в C++

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

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

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