Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2003   →
 1
 2
 3
 4
04.12.2003
03:42:42
18:11:41
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Зорин Юрий

Статистика

2.200 подписчиков
-3 за неделю
←   Все выпуски   →

Задачи и решения по программированию в среде TurboPascal Сапер


Информационный Канал Subscribe.Ru

Ответ к задаче "Туннель"

Прислал: Михаил Довгилев

PROGRAM Tunnel;
TYPE masTUN = ARRAY [1..1000] OF STRING[15];
VAR tIN, tOUT : masTUN ;
tunnel_in, tunnel_out : TEXT ;
m, N, l, o,k : integer ;

BEGIN m := 0; N := 0;
assign(tunnel_in, 'input.txt');
reset(tunnel_in);
readln(tunnel_in, N);
k := 0;
WHILE N > k DO
BEGIN
inc(k);
readln(tunnel_in, tIN[k]);
END;
k := 0;
WHILE N > k DO
BEGIN
inc(k);
readln(tunnel_in, tOUT[k]);
END;
WHILE m < N DO
BEGIN l := 0;
inc(m);
WHILE l < N DO
BEGIN
inc(l);
if tIN[m] = tOUT[l] THEN BEGIN IF l < m THEN inc(O);END;
END;
END;
assign(tunnel_out, 'output.txt');
rewrite(tunnel_out);
write(tunnel_out,O);
close(tunnel_out);
close(tunnel_in);
END.

---------------------------------------------

Сапер

Дано квадратное поле N*N и оно уже частично открыто. Среди открытых квадратов нет квардатов, содержащих мину. Ваша задача состоит в том, чтобы написать программу, которая все неоткрытые квадраты поделит на 3 группы: 1) квадраты, в которых есть мины 2) в которых нет мин 3) в которых нельзя определить

Входные данные: в превой строке входного файла (mina.in) ноходится одно число - n (2<=n<=75). Каждая из следуюих n строк состоит из n символов, описывающих поле.

M - есть мина

L - нет мин

N - нельзя определить

Пример :

Mine.in

3

22U

UU1

UUU

Mine.txt

22L

MM1

NLL

 

---------------------------------------------

 

Вопросы читателей

 

Доброе время суток.


Здравствуйте. У меня к вам вопрос по следующей интересной задаче.
Дан двумерный массив произвольной размерности M x N элементов целого
типа. Как осуществить вывод этих элементов спиралью?

Пример входной матрицы:
1 2 3 4 5 6 7
8 9 10 11 12 12 13
15 16 17 2 34 34 9

Вывохдная строка 1 2 3 4 5 6 7 13 9 34 34 2 17 16 15 8 9 10 11 12 12
13.

Есть еще вариант этой задачи, который называется улиткой, там вывод
осуществляется из центра матрицы по раскручивающейся спирали. Если
вам не сложно, то подскажите пожалуйста хотя бы алгоритм.
--
С уважением,
Илья mailto:tillias@narod.ru

---------------------------------------

Вот и все! Удачи!

Если есть вопросы по программированию в Turbo Pascal или решенные и нерешенные задачи, то присылайте на mailto:vmftem@mail.ru

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное