Тема: Робота з масивами у Делфі
Є код з турбо паскалю, потрібно переробити під делфі
uses crt;
var a,b,x:array[1..400] of integer;
mn:array[1..300] of real;
n,m,k,i,j:integer;
buf:real;
f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива А до 300 n=');
readln(n);
until(n>0)and(n<=300);
repeat
write('Размер массива B до 400 m=');
readln(m);
until(m>0)and(m<=400);
clrscr;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4)
end;
writeln;
write('Press Enter');
readln;
writeln('Массив B:');
for i:=1 to n do
begin
b[i]:=random(20);
write(b[i]:4)
end;
writeln;
write('Press Enter');
readln;
k:=0;
for i:=1 to n do
begin
f:=false;
j:=1;
while(j<=m)and not f do
if b[j]=a[i] then f:=true
else j:=j+1;
if f then
begin
j:=1;
while(j<=k)and f do
if a[i]=x[j] then f:=false
else j:=j+1;
if f then
begin
k:=k+1;
x[k]:=a[i];
mn[k]:=sin(x[k])
end;
end;
end;
writeln('Массив X:');
for i:=1 to k do
write(x[i]:4);
writeln;
for i:=1 to k-1 do
for j:=i+1 to k do
if mn[i]>mn[j] then
begin
buf:=mn[i];
mn[i]:=mn[j];
mn[j]:=buf
end;
writeln('Искомое множество:');
for i:=1 to k do
write(mn[i]:8:3);
readln
end.
