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

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

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

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

18.12.2011, 06:14. Просмотров 239. Ответов 0
Метки нет (Все метки)

Дана целочисленная матрица размера 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++
Перепишите с С на С++ C++
C++ Перепишите с Pascal на C++
Перепишите строчку на printf_s C++
Перепишите, пожалуйста, программу, используя цикл for C++

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

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

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