VPF::2вектора-определить есть ли в векторах равные знач

119040

Дата 22.3.2007, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет

Код


{Даны 2 вектора. Определить есть ли в векторах одинаковые значения.}
Program z1;
var otvet :boolean;
k,j :byte;
Const N_max=20;
Type  TVector=array[1..N_max] of real;

{Процедура ввода размера массива}
Procedure InputSize(Title:string; MinSize:Byte; Var Size:Byte);
Var
Begin
    Repeat
        Writeln(Title, 'от ', MinSize, ' до ', MaxSize);
        {$I-}Readln(Temp);{$I+}
        Ior:=IOResult;
        If Ior=0 then
            If (Temp>maxsize) or (Temp<minsize) then 
          writeln('неверный диапазон')
            else
        else Writeln('Неверный тип')
    Until (Ior=0) and (Temp>=MinSize) and (Temp<=MaxSize);
    Size:=Temp;
    
End; {InputSize}

{ПРОЦЕДУРА ВВОДА ВЕКТОРА A}
Procedure InputVectorA(Title:String; Size:Byte; Var V:TVector);
var I:Byte;
    Begin
        Writeln(title);
        For I:=1 to Size do
            read(A[I]);
            readln; {очищение буфера - 128 байт}
    End; {InputVectorA}

{ПРОЦЕДУРА ВВОДА ВЕКТОРА B}
Procedure InputVectorB(Title:String; Size:Byte; Var V:TVector);
var I:Byte;
    Begin
        Writeln(title);
        For I:=1 to Size do
            read(B[I]);
            readln; {очищение буфера - 128 байт}
    End; {InputVectorB}

Begin
    InputSize('Vvedite razmer vectora', 5, 10);
    InputVectorA('Vvedite vector A', Size, veca);
    InputVectorB('Vvedite vector B', Size, vecb);
    For k:= 1 to Size do
        Begin
           For j:= 1 to Size do
              begin
                   If A[i]:=B[i] then otvet := true;
             End;
       End;
    If (otvet=true) then writeln('Da');
    If (otvet=false) then writeln('Net');
End.

MBo

Дата 23.3.2007, 07:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 234
Регистрация: 10.6.2002

Репутация: нет
Всего: 18

if A[i]:=B[j]
и перед циклом otvet :=false

Это сообщение отредактировал(а) MBo - 23.3.2007, 07:45

119040

Дата 23.3.2007, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет

Код


Program chush;
Const N_max=20;
Type  TVector=array[1..N_max] of real;

Procedure InputSize(Title:string; MinSize:Byte; Var Size:Byte);
Var
Begin
    Repeat
        Writeln(Title, 'от ', MinSize, ' до ', MaxSize);
        {$I-}Readln(Temp);{$I+}
        Ior:=IOResult;
        If Ior=0 then
            If (Temp>maxsize) or (Temp<minsize) then
                 writeln('неверный диапазон')
            else
        else Writeln('Неверный тип')
    Until (Ior=0) and (Temp>=MinSize) and (Temp<=MaxSize);
    Size:=Temp;
    {InputSize}
End;

Procedure InputVector(Title:String; Size:Byte; Var V:TVector);
var I:Byte;
    Begin
        Writeln(title);
        For I:=1 to Size do
            read(V[I]);
            readln;
    End;


Var n:Byte;
    A,B:TVectorA;
    otvet:boolean;
Begin
    Inputsize('Ввод размер вектора А', 1, N_max, n);
    InputVector('Введите элементы вектора А', n, A);
    InputVector('Введите элементы вектора B', n, B);
    otvet:=false;
    For i:= 1 to n do
        Begin
            For j:= 1 to n do
               Begin
                   if (A[i]:=B[j]) then otvet:=true;
              End;
        End;
    If (otvet:=true) Then write('В векторах есть одинаковые значения');
    If (otvet:=false) Then write('В векторах нет одинаковых значений');
End.

Вот так тоже не работает. Вроде убрал тупости, не помогло.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »