Ответ:
Машинный двоичный язык – логическая последовательность “0” и “1”.
Каждая цифра двоичного кода несет количество информации, равное 1 бит.
<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>
Var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
while x<=b do
begin
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
end
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726
var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
repeat
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
until x>b
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726
Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.