Форум: "Потрепаться";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Вниз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]
> грамотные технические задания
Жаль только что они составляются не авторами топиков...
← →
DrPass © (2004-05-15 16:18) [6]
> rabota v turbo pascal [D7, WinXP]
Классное сочетание. Уже за это можно двойку ставить :)
← →
Cardinal © (2004-05-16 22:14) [7]Я попробовал так:
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.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.029 c