Question

Witam mam do zrobienia program w Turbo Pascalu :

Napisz program w którym zastosujesz różnicę zbiorów lub iloczyn zbiorów.

Bardzo bym prosił o zrobienie całego zadania od początku do końca, dziękuje temu kto wykona

Answer 1

Mam nadzieję że pomogłem.

 

uses crt;

const
  Zakres=20;
  ZakresLiczb=30;
  ZakresLiczb2=50;
type
  Typ=array [1..Zakres] of integer;

procedure Wypelnij(var tablica:Typ;var tablica2:Typ);
var
  i:integer;
begin
  for i:=1 to Zakres do
    tablica[i]:=random(ZakresLiczb);
  for i:=1 to Zakres do
    tablica2[i]:=random(ZakresLiczb2)-6;
end;

procedure Wyswietl(zbior,zbior2:Typ);
var
  i:integer;
begin
  Write('Zbior 1: ');
  for i:=1 to Zakres do
    Write(zbior[i],' ,');
  WriteLn;
  Write('Zbior 2: ');
  for i:=1 to Zakres do
    Write(zbior2[i],' ,');
end;

procedure RoznicaZbiorow(zbior,zbior2:Typ);
var
  roznica,iloczyn:Typ;
  i,j,licznik:integer;
begin
  WriteLn;
  WriteLn;
  Write('Roznica zbiorow: ');
  for i:=1 to Zakres do
  begin
    licznik:=0;
    for j:=1 to Zakres do
      if zbior[i]=zbior2[j] then
        Inc(Licznik);
    if licznik=0 then
      Write(zbior[i],', ');
  end;
  WriteLn;
  Write('Iloczyn zbiorow: ');
  for i:=1 to Zakres do
  begin
    for j:=1 to Zakres do
      if zbior[i]=zbior2[j] then
        Write(zbior[i],', ');
  end;
end;

var
  tablica,tablica2:Typ;

begin
  ClrScr;
  Randomize;
  Wypelnij(tablica,tablica2);
  Wyswietl(tablica,tablica2);
  RoznicaZbiorow(tablica,tablica2);
  ReadKey;
end.