Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.
Это в паскале
var
a,b:real;
begin
write('Введите первое число - ');
readln(a);
write('Введите второе число - ');
readln(b);
if a=b then writeln(a,'=',b)
else
if a>b then writeln(a,'>',b)
else writeln(b,'>',a);
<span>end.</span>
Се, что необходимо для того, чтоб вставить<span> изображение — использовать очень простой одиночный тег <img scr=»…»>. Вместо трех точек заключенных в кавычки, вам необходимо </span>вставить<span> путь к картинке. Обычно, для добавления графического контента используются изображения в форматах *.gif, *.png и *.jpg, Ну и все)</span>
По данным можно определить информационный объем файла
J = n*ню*t*i (n=1 (так как моно) ню-частота t- время i глубина кодирования)
J=1*8 *1000 Гц 20 c *8 бит =1280000 бит =160000 байт =156.25 кБайт
var
N, V, K, T: real;
i: Integer;
begin
Write ('Сумма вклада: ');
ReadLn (N);
Write ('Стоимость велосипеда: ');
ReadLn (V);
Write ('Стоимость подержанного авто: ');
ReadLn (K);
Write ('Стоимость нового авто: ');
ReadLn (T);
for i := 1 to 10 do
N := N * 1.07;
Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));
if N >= T then
Writeln ('На эту сумму можно приобрести новое авто.')
else if N >= K then
Writeln ('На эту сумму можно приобрести подержанное авто')
else if N >= V then
Writeln ('На эту сумму можно приобрести велосипед')
else
Writeln ('На эту сумму нельзя приобрести транспортное средство');
end.