fork download
copy 
  1. program porownywanietablic;
  2. type 
  3. 	tablica = array[1..10] of integer;
  4.  
  5.  
  6. var
  7. 	tab1: tablica;
  8. 	tab2: tablica;
  9. 	tab3: tablica;
  10. 	x,p,i,n1,n2: integer;
  11.  
  12. begin
  13. 	writeln('podaj wielkosc 1 tablicy');
  14. 	readln(n1);
  15. 	writeln('podaj wielkosc 2 tablicy');
  16. 	readln(n2);
  17.  
  18. 	writeln('podaj 1 tablice');
  19. 	for i:=1 to n1 do read(tab1[i]);
  20.  
  21. 	writeln('podaj 2 tablice');
  22. 	for i:=1 to n2 do read(tab2[i]);
  23.  
  24. 	writeln('tablica 1:');
  25. 	for i:=1 to n1 do writeln(tab1[i]);
  26.  
  27. 	writeln('tablica 2:');
  28. 	for i:=1 to n2 do writeln(tab2[i]);
  29.  
  30. 	writeln('Porownywanie wspolnych elementow:');
  31. 	x := 0; (* przygotowanie zmiennej x do uzycia w nastepnych krokach*)
  32. 	for i:=1 to n1 do   (*iteracja elementow tablicy 1 przezkazdy element*)
  33. 		for p:= 1 to n2 do	(* tablicy 2*)
  34. 			if tab1[i] = tab2[p] then
  35. 			begin
  36. 				x := x + 1; (*przesuniecie indeksu tablicy o 1*)
  37. 				tab3[x] := tab1[i];
  38.  
  39. 				break;
  40. 			end;
  41. 	for i:= 1 to x do
  42. 		writeln(tab3[i]); (*wypis tablicy 3*)
  43. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
5
4
10
20
30
40
50
10
15
30
20
stdout
copy 
podaj wielkosc 1 tablicy
podaj wielkosc 2 tablicy
podaj 1 tablice
podaj 2 tablice
tablica 1:
10
20
30
40
50
tablica 2:
10
15
30
20
Porownywanie wspolnych elementow:
10
20
30
https://ideone.com/zzFBRq
wstawianie i usuwanie pozycji z listy
language:
Pascal (fpc 3.0.4)
created:
9 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!