rabota v turbo pascal

← →
TRX © (2004-05-14 16:34) [0]

delo takoe...Имеется N людей, некоторые из которых знают других. Вводится квадратный массив NxN, состоящий из 0 и 1. 1 ставится на пересечении строки i и столбца j, если человек i знает человека j (номера людей начинаются с 1). Вводится 2 номера - X и Y. Знакомы ли двое людей с этими номерами через третье лицо: т.е. существует ли такой человек номер Z, что X знаком с Z, а Z знаком с Y. Динамическими массивами не пользоваться.
Вход
В первой строке входа дан размер массива N. Далее следуют N2 элементов массива в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (целые числа, по одному в каждой строке). Далее следуют номера двух людей.
Выход
На выход напечатать yes в случае положительного ответа и no в случае отрицательного.
Пример
Вход:

3
0
0
1
1
0
0
1
0
0
2 3
Выход:

yes

← →
KilkennyCat © (2004-05-15 15:26) [1]

А в чем вопрос-то?

← →
Palladin © (2004-05-15 15:31) [2]

Программу написать надо...

← →
KilkennyCat © (2004-05-15 15:35) [3]

А-а-а....

← →
begin...end © (2004-05-15 15:39) [4]

Теперь уже появляются прямо-таки грамотные технические задания.
Прогресс налицо...

← →
Algol (2004-05-15 15:44) [5]

> грамотные технические задания

Жаль только что они составляются не авторами топиков...

> rabota v turbo pascal [D7, WinXP]

Классное сочетание. Уже за это можно двойку ставить :)

Я попробовал так:

program sum;
uses
crt;
var
a: array [1..100,1..100] of boolean;
i,j,x,y,z,k: integer;
b: boolean;
begin
clrscr;
readln(k);
for i:=1 to k do
for j:=1 to k do
begin
readln(x);
case x of
0: a[i,j]:=false;
1: a[i,j]:=true;
end;
end;
b:=false;
read(x);
readln(y);
for z:=1 to k do
if (a[x,z]) and (a[z,y]) then b:=true;
if b then
writeln("yes")
else
writeln("no");
end.

rabota v turbo pascal Найти похожие ветки