fork download
copy 
  1. program osszefutatas;
  2. const n = 10; m = 5;
  3. var a:array[1..n] of integer;
  4.     b:array[1..m] of integer;
  5.     c:array[1..n+m] of integer;
  6.     i,j,k:integer;
  7. begin
  8.    randomize;
  9.    // veletlen elemekbol allo tomb keszitese
  10.    for i:=1 to n do
  11.    begin
  12.      a[i]:=10+random(89);
  13.      write(a[i]:3);
  14.    end;
  15.    writeln;
  16.    for i:=1 to m do
  17.    begin
  18.      b[i]:=10+random(89);
  19.      write(b[i]:3);
  20.    end;
  21.    writeln;
  22.    // az a rendezese
  23.    for i:=1 to n-1 do
  24.      for j:=i+1 to n do
  25.        if a[i]>a[j] then
  26.        begin
  27.          k:=a[i];
  28.          a[i]:=a[j];
  29.          a[j]:=k;
  30.        end;
  31.    for i:=1 to n do
  32.      write(a[i]:3);
  33.    writeln;
  34.    // a b rendezese
  35.    for i:=1 to m-1 do
  36.      for j:=i+1 to m do
  37.        if b[i]>b[j] then
  38.        begin
  39.          k:=b[i];
  40.          b[i]:=b[j];
  41.          b[j]:=k;
  42.        end;
  43.    for i:=1 to m do
  44.      write(b[i]:3);
  45.    writeln;
  46.    // az a es a b rendezett tombok
  47.    // osszefutatatasa egy rendezett c tombe
  48.    i:=1;
  49.    j:=1;
  50.    k:=0;
  51.    while (i<=n) and (j<=m) do
  52.    begin
  53.      k:=k+1;
  54.      if a[i]<b[j] then
  55.      begin
  56.        c[k]:=a[i];
  57.        i:=i+1;
  58.      end else
  59.        if a[i]=b[j] then
  60.        begin
  61.          c[k]:=a[i];
  62.          i:=i+1;
  63.          j:=j+1;
  64.        end else
  65.          if a[i]>b[j] then
  66.          begin
  67.            c[k]:=b[j];
  68.            j:=j+1;
  69.          end;
  70.    end;
  71.    while i<=n do
  72.    begin
  73.      k:=k+1;
  74.      c[k]:=a[i];
  75.      i:=i+1;
  76.    end;
  77.    while j<=m do
  78.    begin
  79.      k:=k+1;
  80.      c[k]:=b[j];
  81.      j:=j+1;
  82.    end;
  83.    for i:=1 to k do
  84.      write(c[i]:3);
  85.    readln;
  86. end.
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 30 89 47 75 43 69 26 89 46 66
 28 58 30 90 10
 26 30 43 46 47 66 69 75 89 89
 10 28 30 58 90
 10 26 28 30 43 46 47 58 66 69 75 89 89 90
https://ideone.com/E19t9Z
language:
Pascal (gpc 20070904)
created:
6 years 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!