В программировании знаком деления является косая черта дроби "/".
При выводе данных можно указать, сколько ячеек (знако-мест) на экране следует отвести для выводимого значения. Это бывает полезно, если, например, ты выводишь на экран таблицу. в которой все элементы должны иметь одну ширину.
writeln(x:4:1,' | ',y:5:2);
Здесь под дробное число x (икс) выделяется четыре знако-места. При этом значение икса округляется до одного знака после запятой. Этот один знак будет выводиться в любом случае — даже если икс целый.
Например, если x = 3, то на экран он выведется так: _ 3 . 0
_ — это как бы пробел.
Для значения y (игрек) выделяется пять знако-мест, а округление идет до двух знаков после запятой.
Это не знак деления, а двоеточие.
В программировании знаком деления является косая черта дроби "/".
При выводе данных можно указать, сколько ячеек (знако-мест) на экране следует отвести для выводимого значения. Это бывает полезно, если, например, ты выводишь на экран таблицу. в которой все элементы должны иметь одну ширину.
writeln(x:4:1,' | ',y:5:2);
Здесь под дробное число x (икс) выделяется четыре знако-места. При этом значение икса округляется до одного знака после запятой. Этот один знак будет выводиться в любом случае — даже если икс целый.
Например, если x = 3, то на экран он выведется так: _ 3 . 0
_ — это как бы пробел.
Для значения y (игрек) выделяется пять знако-мест, а округление идет до двух знаков после запятой.
Например: _ 4 . 1 5
program raf105;
var v:array[1..6] of real;
i,j,kolvo,n:integer;
abc:real;
begin
writeln('Введите 6 значений по очереди: ');
for i:=1 to 6 do
read(v[i]);6
for j:=1 to 6 do
begin
for i:=1 to 6 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=5
then n:=j
else kolvo:=0;
end;
writeln();
writeln('Ввод:');
for i:=1 to 6 do
write(' ',v[i]);
abc:= v[n];
v[n]:= v[1];
v[1]:= abc;
writeln();
writeln('Вывод:');
for i:=1 to 6 do
write(' ',v[i]);
end.
Написано на языке PascalABC.NET