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

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

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

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

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

Перепишите с Pascal на C++ - C++
uses crt; const nmax = 30; type TInfo = record M : real; V : real; end;

Перепишите программу из Pascal в C++ - C++
Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код: ...

Перепишите пожалуйста на C++ - C++
procedure TForm1.Button1Click(Sender: TObject); var r5,x1,y1,x2,y2,x3,y3,x4,y4:integer; l,n,r4,r3,r1,r2:integer; begin ...

перепишите на C++ пожалуйста - C++
Перепешите пожалуйста на С/С++. uses crt; var a:array of integer; n,i:integer; begin writeln('Введите любые числа от -10 до...

Перепишите задачу из Pascal на C++ (Есть условие) - C++
Здравствуйте, прошу о помощи. Решите задачу: В начальной школе Будущего изучали целые числа типа Longint, который они взяли из языка...

Перепишите, пожалуйста, программу, используя цикл for - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; int main() { double y, x, a, b, h, p, eps,...

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

Перепишите пожалуйста код программы с языка Visual Basic в C++ - C++
Вот код на языке Visual Basic Randomize Timer Dim A(19) As integer For i=0 to 19 A(i)=Int(Rnd*1000) Next For i=0 to 19 ...

Пожалуйста, переведите с Pascal на C++ - C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin read(n); for i := 1 to n do ...

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...

Перепишите с С на С++ - C++
#include&lt;conio.h&gt; #include&lt;stdio.h&gt; const int N = 10; main(){ int A, i, b; for(i=0; i&lt;N; i++){ ...


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

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

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