Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
1-1085250870
Боян Георгиев
2004-05-22 22:34
2004.06.06
Проблем с рекурсии


14-1084621786
Manulo
2004-05-15 15:49
2004.06.06
Криптография


14-1084476090
Mihey
2004-05-13 23:21
2004.06.06
Выделение кода


3-1084564357
Mike Kouzmine
2004-05-14 23:52
2004.06.06
Ошибка в ХП


14-1085121676
Bunny
2004-05-21 10:41
2004.06.06
IDE not Found.