Чертѐжнику был дан для исполнения следующий алгоритм:
Повтори 3 раз
Сместиться на (1, –3) Сместиться на (–4, 1) Сместиться на (1, 1) конец
На какую одну команду можно заменить этот алгоритм, чтобы Чертѐжник оказался в той же точке, что и после выполнения алгоритма?
По исполнения программы делят на
.По степени переносимости программы делят на
.По распространения и использования программы делят на
несвободные (закрытые);открытыесвободные.По назначению программы делят на[15]:
системные; прикладные и инструментальные.По видам программы делят на[16]:
компонент: программа, рассматриваемая как единое целое, выполняющая законченную функцию и применяемая самостоятельно или в составе комплекса;комплекс: программа, состоящая из двух или более компонентов и (или) комплексов, выполняющих взаимосвязанные функции, и применяемая самостоятельно или в составе другого комплекса.program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.