fork download
copy 
  1. program lista_wspolna_z_p_i_q;
  2. type tab=array[1..10] of integer;
  3.      lst = record
  4.                 elementy: tab;
  5.                 ile: integer
  6.              end;
  7. var
  8.     i, j, k, l: integer;
  9.     p, q, r: lst;  (*  p i q listy niepuste i niemalejące! r - lista wynikowa *)
  10.  
  11. begin
  12.     writeln('poczatek');
  13.     read(p.ile, q.ile); readln; writeln(p.ile,' ',q.ile);
  14.     for i:= 1 to p.ile do read(p.elementy[i]);readln;
  15.     for i:= 1 to q.ile do read(q.elementy[i]);readln;
  16.     for i:= 1 to p.ile do write(p.elementy[i],' ');writeln;
  17.     for i:= 1 to q.ile do write(q.elementy[i],' ');writeln;
  18.  
  19.     r.ile := 0;
  20.     j := 1;
  21.     i := 1;
  22.  
  23.     while (i <= p.ile) and (j <= q.ile) do
  24.     begin
  25.  
  26.     if p.elementy[i] = q.elementy[j] then
  27.     begin
  28.     	r.ile := r.ile + 1;
  29.     	r.elementy[r.ile] := p.elementy[i];
  30.     	i := i + 1;
  31.     	j := j + 1;
  32.     end 
  33.     else if p.elementy[i] > q.elementy[j] then
  34.     	j := j + 1
  35.     else
  36.     	i := i + 1;
  37.  
  38.     end;
  39.  
  40.     for i:= 1 to r.ile do write(r.elementy[i],' ');writeln;     
  41.     writeln('koniec');
  42. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
10 10
2
4
6
7
8
9
10
12
14
16
1
4
5
6
7
8
10
11
12
19
stdout
copy 
poczatek
10 10
2 4 6 7 8 9 10 12 14 16 
1 4 5 6 7 8 10 11 12 19 
4 6 7 8 10 12 
koniec
https://ideone.com/eQHxee
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!