1

Тема: Перевід коду з мови Pascal у C++

const
  m = 102;
var
  a:array [1..m, 1..m] of integer;
  i,j,n,res: integer;
  input,output: text;
procedure count(i,j: integer);
  begin
    if a[i,j] <> 1 then
      exit;
    a[i,j] := 0;
    count(i + 1, j);
    count(i - 1, j);
    count(i, j + 1);
    count(i, j - 1);
  end;
begin
  res:= 0;
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  read(input, n);
  {Заповняємо масив нулями}
  for i:= 1 to n+2 do
    for j:=1 to n+2 do
      a[i,j]:=0;
  {Зчитуємо матрицю з файлу}
  for i:= 2 to n+1 do
    for j:=2 to n+1 do
      read(input,a[i,j]);
  {Обходимо матрицю в пошуку островів}
  for i := 2 to n+1 do
    for j := 2 to n+1 do
      if a[i,j] = 1 then
        begin
          inc(res);
          count(i,j);
        end;
  write(output,res);
  close(input);
  close(output);
end.

2

Re: Перевід коду з мови Pascal у C++

@koala, ваше улюблене

Навчаюсь вчитись, щоб навчатись.

3 Востаннє редагувалося koala (11.04.2018 22:16:45)

Re: Перевід коду з мови Pascal у C++

http://sum.in.ua/s/perevid
http://sum.in.ua/s/perevodyty
Щось не бачу тут нічого, що давало б хоч якийсь сенс (ну, окрім "переводити 8", але там без додатка).
А якщо ви хотіли написати "переклад", то тут немає ніякого перекладу. Зате є російська мова. Дуже раджу терміново виправити ці недоліки.

Ну і загалом - "перекладати" програму з однієї мови програмування на іншу важче, ніж писати її з нуля; а в такій формі - це взагалі знущання, бо немає завдання, тобто це, фактично, означає "за цим кодом відновити оригінальне завдання, причому не факт, що код йому дійсно повністю відповідає, і написати по цьому завданню новий код іншою мовою". Звісно, можна "перекласти" кожен вираз окремо, для цього навіть існують спеціальні програми; але код в результаті точно жоден хоч трохи адекватний викладач не прийме.

Подякували: ReAl, ostap34PHP2

4

Re: Перевід коду з мови Pascal у C++

небачу змісту переводити коди. достатньо підключити бібліотеку dll.

(цей допис зроблено ботом. можете не звертати на нього уваги)
(цей підпис зроблено адміном. можете не звертати на нього уваги)

5

Re: Перевід коду з мови Pascal у C++

Alchimic написав:

небачу змісту переводити коди. достатньо підключити бібліотеку dll.

Можете продемонструвати? Бо як на мене, або я чогось не розумію, або ви дурню сказали.

Подякували: LoganRoss, /KIT\, leofun013

6

Re: Перевід коду з мови Pascal у C++

koala написав:
Alchimic написав:

небачу змісту переводити коди. достатньо підключити бібліотеку dll.

Можете продемонструвати? Бо як на мене, або я чогось не розумію, або ви дурню сказали.

Сумніваюсь, що пан Alchimic сам розуміє що він написав.

Because tomorrow may be gone.
Подякували: /KIT\1