пересечение матрицы

[SkyM@n]

Поэтому либо исправляемся, либо тема будет удалена.

[ACE Valery]

SkyM@n, пользователи не могут редактировать названия тем

[SkyM@n]

Зато умеют писать в личку или по крайней мере написать "а как мне изменить название темы?"

[peter065]

SkyM@n, Сори. Исправил. Так ктоньть может по порядку объяснить, как делать задачу. Я чет не могу догнать!

[evg_m]

пересечение = общие элементы

[SkyM@n]

Сообщение от ACE Valery

SkyM@n, пользователи не могут редактировать названия тем

Таки могут, если хотят!

Сообщение от peter065

SkyM@n, Сори. Исправил. Так ктоньть может по порядку объяснить, как делать задачу. Я чет не могу догнать!

Раз исправились, сообщения восстановлены.

[Mad_Cat]

(***********************************************************)
(* Delphi2006                                              *)
(* Дай переменным английские названия и будет работать в TP*)
(* Пример содержимого файла  c:\ввод.txt                   *)
(* 1 2 3 4 5 6 7 8                                         *)    
(* 1 2 13 14 1 16 17 8 19 10 11 5                          *)
(* Результат:                                              *)
(* 1.0 2.0 5.0 8.0                                         *)
(***********************************************************)

const Размер_1=8;
      Размер_2=12;
type Массив =array[1..Размер_2] of Real;
var
  Вектор1:Массив;
  Вектор2:Массив;
  Вектор1_vs_Вектор2:Массив;
  Файл:Text;
  Флаг: Boolean;
  Размер_3:Integer;

procedure Ввод_Вывод_исходных_данных;
var индекс : Integer;
begin
  Assign(Файл,'c:\ввод.txt');
  Reset(Файл);
  Writeln('====BEKTOP A===========');
  for индекс := 1 to Размер_1  do begin
    read(Файл,Вектор1[индекс]);
    write(Вектор1[индекс]:6:1);
  end;
  Writeln;
  Readln(Файл);
  Writeln('====BEKTOP B===========');
  for индекс := 1 to Размер_2  do begin
    read(Файл,Вектор2[индекс]);
    write(Вектор2[индекс]:6:1);
  end;
  Close(Файл);
end;

procedure Пересечение;
var индекс,индекс2:Integer;
begin
  Размер_3:=0;
  for индекс := 1 to Размер_1  do
    begin
      флаг:=False;
      for индекс2 :=1 to Размер_2 do
        if Вектор1[индекс]=Вектор2[индекс2] then
          begin
            Флаг:=not флаг;
            Break;
          end;
      if флаг then
        for индекс2 :=1 to Размер_3 do
          if Вектор1[индекс]=Вектор1_vs_Вектор2[индекс2] then
            begin
              Флаг:=not флаг;
              Break;
            end;
      if  флаг  then begin
        Inc(Размер_3);
        Вектор1_vs_Вектор2[размер_3]:=Вектор1[индекс];
      end;
    end;
end;

procedure Вывод_Решения;
var индекс:Integer;
begin
  Writeln;
  Writeln('====BEKTOP C=A^B=======');
  for индекс := 1 to Размер_3  do
    write(Вектор1_vs_Вектор2[индекс]:6:1);
  Readln;
end;

begin
  Ввод_Вывод_исходных_данных;
  Пересечение;
  Вывод_Решения;
end.

[peter065]

Мне ктоньть поможет?

[Демик]

Тебе же вроде выложил готовую программу пользователь Mad Cat? Переименуй в коде переменные русскими буквами на переменные английскими, типо:
procedure Vvod_Vsvod_ishodnih_dannyh;-вот это вместо:
procedure Ввод_Вывод_исходных_данных;

[peter065]

ребят, хелп. Как вы и сказали - переписал латиницей. Но пишет ошибку

Program KR2;
const r1=8;
      r2=12;
type mas=array[1..r2] of integer;
var
   a:mas;
   b:mas;
   c:mas;
   f:Text;
   k: Boolean;
   r3:Integer;

procedure Vvod_vivod_nachalnih_dannih;
var i: Integer;
begin
  Assign(f,'e;\kr2\vvod.txt');
  Reset(f);
  Writeln('====Massiv A===========');
  for i:= 1 to r1  do begin
    read(f,a[i]);
    write(a[i]);
  end;
  Writeln;
  Readln(f);
  Writeln('====Massiv B===========');
  for i:= 1 to r2  do begin
    read(f,b[i]);
    write(b[i]);
  end;
  Close(f);
end;

procedure Peresechenie;
var i,j:Integer;
begin
  r3:=0;
  for i:= 1 to r1  do
    begin
      k:=False;
      for j:=1 to r2 do
        if a[i]=b[j] then
          begin
            k:=not k;
            Break;
          end;
      if k then
        for j :=1 to r3 do
          if a[i]=c[j] then
            begin
              k:=not k;
              Break;
            end;
      if  k  then begin
        Inc(r3);
        c[r3]:=a[i];
      end;
    end;
end;

procedure Vivod;
var i:Integer;
begin
  Writeln;
  Writeln('====C=A^B=======');
  for i:= 1 to r3  do
    write(c[i]);
  Readln;
end;

begin
  Vvod_vivod_nachalnih_dannih;
  Peresechenie;
  Vivod;
end.