Program arra; const m=20; var B: Array[1..m] Of Integer; i,j,k:integer; BEGIN randomize; for i:=1 to m do begin B[i]:= random(101); end;
write('Массив до сортировки: '); for i:=1 to m do begin write(B[i]); write(' '); end; writeln; for i := 1 to m-1 do for j := 1 to m-i do if B[j] < B[j+1] then begin k := B[j]; B[j] := B[j+1]; B[j+1] := k end; write('Массив после сортировки: '); for i:=1 to m do begin write(B[i]); write(' '); end; end.
PascalABC.Net var a,d,x,z:real; begin a:=1.2; d:=3.8; x:=-2; while x<=2 do begin if abs(x)>=0.0001 then begin { вот так приходится обходить нули! } if x>0.4 then z:=exp(sqrt(x+1)) else z:=cos(a*x)/sin(a*x)+sin(d*x); Writeln('x=',x:7:4,', Z=',z:7:4) end else Writeln('Функция не определена для x=0'); x:=x+0.4 end end.
Результат выполнения программы x=-2.0000, Z= 0.1238 x=-1.6000, Z= 0.5659 x=-1.2000, Z= 0.8569 x=-0.8000, Z=-0.8015 x=-0.4000, Z=-2.9195 Функция не определена для x=0 x= 0.4000, Z= 2.9195 x= 0.8000, Z= 3.8253 x= 1.2000, Z= 4.4072 x= 1.6000, Z= 5.0151 x= 2.0000, Z= 5.6522
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin
B[i]:= random(101);
end;
write('Массив до сортировки: ');
for i:=1 to m do begin
write(B[i]);
write(' ');
end;
writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if B[j] < B[j+1] then begin
k := B[j];
B[j] := B[j+1];
B[j+1] := k
end;
write('Массив после сортировки: ');
for i:=1 to m do begin
write(B[i]);
write(' ');
end;
end.