Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.01.2020, 19:32   #1
AnonimusN
Новичок
Джуниор
 
Регистрация: 07.01.2020
Сообщений: 1
Восклицание Переделать Pascal в Python или c++

Код:
var
 n, m, i, j, k, l: integer;
 a : array [0..101,0..101] of integer;
procedure Z(i,j:integer);
begin
 if a[i,j]=1 then begin
   a[i,j]:=0;
   Z(i+1,j); Z(i,j+1); Z(i-1,j); Z(i,j-1)
 end;
end;
begin
 assign(input, 'input.txt'); reset(input);
 assign(output, 'output.txt'); rewrite(output);
 read(n,m,k);
 for i:=1 to n do for j:=1 to m do a[i,j]:=1;
 for i:=1 to n do begin a[i,0]:=0; a[i,m+1]:=0 end;
 for j:=1 to m do begin a[0,j]:=0; a[n+1,j]:=0 end;
 for l:=1 to k do begin read(i,j); a[i,j]:=0 end;
 l:=0;
 for i:=1 to n do for j:=1 to m do
   if a[i,j]=1 then begin l:=l+1; Z(i,j) end;
 write(l);
 close(output)
end.
AnonimusN вне форума Ответить с цитированием
Старый 12.01.2020, 14:17   #2
Desc
Участник клуба
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 1,063
По умолчанию

Ссылки по теме:
ANSI/Turbo Pascal to C/C++ converter
Конвертер программы с языка Си на язык Паскаль
I am not a wizard, I am just learning.
Desc вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переделать код с Pascal на С++ Andry95 Общие вопросы C/C++ 0 14.03.2016 11:23
Переделать из Pascal в Python Anonim123 Помощь студентам 0 24.05.2014 15:55
переделать программу из С++ в Pascal Evelin_18 Помощь студентам 0 09.12.2012 23:49