Задание 4. Работа с массивами чисел
Упорядочить по не возрастанию массив, содержащий 25 вещественных чисел.
Program dz4;
uses crt;
var
a:array[1..25] of real;
max, zap : real;
i, j, n_max : integer;
begin
clrscr;
writeln ('Заполнение массива случайными числами');
writeln;
randomize;
for i:= 1 to 24 do
a[i]:=random(1001)/(1+random(1000))-random(101)/(1+random(100));
a[25]:=0;
writeln('Исходный массив');
writeln;
for i:= 1 to 25 do
write(' ',a[i]);
writeln;
for i:= 1 to 25 -1 do
begin
n_max:=i;
max:=a[i];
for j:= i+1 to 25 do
if a[j]> max then
begin
max:= a[j];
n_max:=j;
end;
zap:=a[n_max];
a[n_max]:=a[i];
a[i]:=zap;
end;
writeln;
writeln('--------------массив после сортировки--------------');
writeln;
for i:= 1 to 25
do write(' ',a[i]);
writeln;
readln;
end.
Результаты выполнения программы:
Заполнение массива случайными числами
Исходный массив
1.88095238095238 -1.0693058733791 13.519696969697 0.33035757371037 2.19172413793103
-0.516508662961752 0.537649219467401 1.45 0.163203764456374 -1.17732884399551 0.2
-11.8571428571429 -0.762223436219612 0.755920820077766 -1.04939209726444
-0.664654226125137 3.1959559916741 -0.818415217644999 -1.63772796352584 0.127959632552723 0.816676077545643 0.483413141136397 -0.643972602739726 0.873150887573965
-0.292757242757243
--------------массив после сортировки--------------
13.519696969697 3.1959559916741 2.19172413793103 1.88095238095238 1.45 0.873150887573965 0.816676077545643 0.755920820077766 0.537649219467401 0.483413141136397 0.33035757371037 0.2 0.163203764456374 0.127959632552723 -0.292757242757243 -0.516508662961752 -0.643972602739726 -0.664654226125137 -0.762223436219612 -0.818415217644999 -1.04939209726444 -1.0693058733791 -1.17732884399551 -1.63772796352584 -11.8571428571429
ЗАДАНИЕ 5. РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности знаки операций отношения.
Program dom5;
uses crt;
Var c,i,j:char;
lb:set of '<'..'>';
Begin
clrscr;
writeln('Введите строку символов(x-конец строки)');
write('=>');
lb:=[];
repeat
read(c);
if c in ['<'..'>'] then lb:=lb+[c]
until c='x';
writeln('Знаки операций отношения:');
for i:='<' to '>' do
if i in lb then write(i:2);
writeln;
readln(c);
readln(c);
End.
Результаты выполнения программы:
Введите строку символов(x-конец строки):
=>ghHJKL<jivf+vjo=kod>>vdjo<<dsx
'Знаки операций отношения:
< = >