1

Тема: Перевести з Pascal на с++

const n=8;
type TMatrix=array [1..n,1..n] of Integer;
 
procedure ShowEqRC(const a: TMatrix);
var i, k: Integer;
begin
  Write('Совпадающие строки/столбцы:');
  for k:=1 to n do begin
    i:=n; while (i>0) and (a[k,i]=a[i,k]) do Dec(i);
    if i=0 then Write(' ',k);
  end; WriteLn;
end;
 
procedure SumRN(const a: TMatrix);
var i, j, m, s: Integer;
begin
  WriteLn('Суммы строк с отрицительным элементом:');
  for i:=1 to n do begin
    m:=0; s:=0;
    for j:=1 to n do begin
      if m>a[i,j] then m:=a[i,j];
      s:=s+a[i,j];
    end;
    if m<0 then WriteLn(i,': ',s);
  end;
end;
 
var
  i, j: Integer;
  a: TMatrix;
begin
  WriteLn('Введите матрицу ',n,'x',n,':');
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:6); WriteLn;
  end;
  ShowEqRC(a);
  SumRN(a);
end.

2

Re: Перевести з Pascal на с++

Ви пробували щось робити самі, чи просто чекаєте на готовий код? Якщо пробували, то показуйте, що вийшло.

3

Re: Перевести з Pascal на с++

Torbins написав:

Ви пробували щось робити самі, чи просто чекаєте на готовий код? Якщо пробували, то показуйте, що вийшло.

Пробував, вийшла друга частина завдання, але я трохи переробив (сильно не розуміюсь). Саме завдання звучить "Для заданої матриці розміром 8х8. Знайдіть: ). Такі ј і k, колиј-й рядок матриці співпадає з k-м стовпчиком 2). Суму елементів рядках, які містять хоча б один від'емний елемент.
Код:

4

Re: Перевести з Pascal на с++

Чомусь не можу надіслати код
"Попередження! Цю помилку має бути виправлено перед відправленням повідомлення:
i було відкрито всередині себе, що не дозволено"

5

Re: Перевести з Pascal на с++

Просто текст скопіюйте.

6

Re: Перевести з Pascal на с++

Бо [i] сприймається місцевим двигуном як тег. Помістіть код у тег code (кнопка <>).

7

Re: Перевести з Pascal на с++

І так, у вас там повідомлення небажаною мовою. І ще завдання досить дивне - можете якось повніше розписати, чому вам треба саме перекласти?

8

Re: Перевести з Pascal на с++

Дякую, вже не актуально