программа дельфи пересечение векторов
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
программа дельфи пересечение векторов - 2009-11-29 23:56:47.530000
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
мне надо создать 3ий вектор от пересечения двух векторов ,но проблема в том что иногда мне пишет два раза 1 и тоже число а мне надо чтобы писало только 1 раз
например если 1 вектор = [1 5 1 3 1]
2 ой [ 3 1 4 1 2]
3ий дожен быть [1 3] а не [1 1 3]
const n=5;
type pvet =array [1..n] of integer;
svet=array [1..n] of integer;
cvet=array[1..n] of integer;
var a:pvet;
s:pvet;
l,x:cvet;
conta,r,f,j,i,c:integer;
begin
randomize;
for j:=1 to n do
begin
a[j]:=random(6)+1;
write(a[j],' ');
end;
writeln;
for i:=1 to n do
begin
s[i]:=random(6)+1;
write(s[i],' ');
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (a[j]=s[i]) and (a[j]<>x[j]) and (s[i]<>x[j]) and (a[j]<>x[i]) and (s[i]<>x[i]) then
begin
x[i]:=a[j];
x[j]:=a[j];
write(x[j],' ');
break;
end;
end;
end;
readln;
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 00:20:32.206666
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
В код сильно не всматривался, но вот что первое бросается в глаза, у тебя есть массив, вывод делаешь в цикле, вот тебе и твои пять чисел… вынеси вывод за цикл, может поможет.
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 00:24:27.090000
|
|
|
DeadMazay
Сообщений: 299
Оценки: 0
Присоединился: 2009-05-04 21:39:57.980000
|
quote:
не получаеться сделать так чтобы в Input программа писала числа пересечения двух векторов..когда запускаю программу она мне выдаёт вместо 1 по 5 чисел кароче не знаю что не так помогите плиз
Ты думаешь, с такой постановкой задачи тебе кто-то поможет? Я бы даже если что-то понял, не стал бы помогать. Хрен проссышь, что за массивы, зачем они, в чём собственно суть задачи и чего у тебя не получается.
Решаем.
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 00:29:40.560000
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
мне надо создать 3ий вектор от пересечения двух векторов что тут не понятного?
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 01:01:14.313333
|
|
|
DeadMazay
Сообщений: 299
Оценки: 0
Присоединился: 2009-05-04 21:39:57.980000
|
В первом посте я должен был это между строк прочесть?
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 01:14:33.713333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
сейчас должно быть всё понятно…можеш помочь?
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 01:33:09.780000
|
|
|
DeadMazay
Сообщений: 299
Оценки: 0
Присоединился: 2009-05-04 21:39:57.980000
|
Посмотрел код. Что-то странное. Во-первых: зачем нужно было описывать три разных типа, которые по сути одинаковы? И потом, при первой итерации массив x пуст, как это так ты сравниваешь
(a[j]<>x[j])
?
Массивы нужно инициализировать, гугли по слову Fillchar.
|
|
|
|
|
RE: программа дельфи пересечение векторов - 2009-11-30 01:42:34.730000
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
const n=10;
type pvet =array [1..n] of integer;
var a,x,l,s:pvet;
conta,r,f,j,i,c:integer;
begin
randomize;
for j:=1 to n do
begin
a[j]:=random(6)+1;
write(a[j],' ');
end;
writeln;
for i:=1 to n do
begin
s[i]:=random(6)+1;
write(s[i],' ');
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[j]=s[i] then
begin
x[j]:=a[j];
write(x[j],' ');
break;
end;
end;
end;
readln;
end. ну вот я и спрашиваю потому-что не получаеться…если знаеш помоги
|
|
|
|
|
|
