function fact(n : integer) : longint; begin if n <= 1 then fact := 1 else fact := n * fact(n - 1); end;
var t,s:real; i:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln('Программа вычисляет частичную сумму ряда с заданной точностью'); writeln(' Общий член ряда: an = ((3^n)*n! )/ (2n)!'); writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001'); writeln(); s:=0; i:=1; t:=1; while t>eps do begin t:=(power(3,i)*fact(i))/(2*fact(2*i)); s:=s+t; writeln('a(',i,')=',t:0:6,' S=',s:0:6); i:=i+1; end; writeln(); writeln('Сумма ряда равна',s:0:6); end.
Const n = 15; type ArrayOfInteger = array [1..n+2] of integer;
procedure ArrayOutput(A: ArrayOfInteger; a_length: integer); var i: integer; begin for i := 1 to a_length do write(A[i]:4, ' '); writeln; end;
procedure ArraySort(var A: ArrayOfInteger; a_length: integer); var i, j, temp: integer; begin for i := 1 to a_length-1 do for j := i+1 to a_length do if A[i]>A[j] then begin temp:=A[i]; A[i]:=A[j]; A[j]:=temp; end; end;
var mass:ArrayOfInteger; i:integer; begin writeln('Программа упорядочивает массив по возрастанию '); writeln('и вставляет числа -2 и 5, не нарушая упорядоченности.'); {Создаём массив} randomize; for i := 1 to n do mass[i] := random(100)-50;
Program LoctarUgar;
uses crt;
const
eps=0.001;
function fact(n : integer) : longint;
begin
if n <= 1
then fact := 1
else fact := n * fact(n - 1);
end;
var
t,s:real;
i:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда с заданной точностью');
writeln(' Общий член ряда: an = ((3^n)*n! )/ (2n)!');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
writeln();
s:=0; i:=1; t:=1;
while t>eps do
begin
t:=(power(3,i)*fact(i))/(2*fact(2*i));
s:=s+t;
writeln('a(',i,')=',t:0:6,' S=',s:0:6);
i:=i+1;
end;
writeln();
writeln('Сумма ряда равна',s:0:6);
end.
type ArrayOfInteger = array [1..n+2] of integer;
procedure ArrayOutput(A: ArrayOfInteger; a_length: integer);
var i: integer;
begin
for i := 1 to a_length do
write(A[i]:4, ' ');
writeln;
end;
procedure ArraySort(var A: ArrayOfInteger; a_length: integer);
var i, j, temp: integer;
begin
for i := 1 to a_length-1 do
for j := i+1 to a_length do
if A[i]>A[j] then begin
temp:=A[i];
A[i]:=A[j];
A[j]:=temp;
end;
end;
var
mass:ArrayOfInteger;
i:integer;
begin
writeln('Программа упорядочивает массив по возрастанию ');
writeln('и вставляет числа -2 и 5, не нарушая упорядоченности.');
{Создаём массив}
randomize;
for i := 1 to n do
mass[i] := random(100)-50;
writeln('Начальный массив: ');
ArrayOutput(mass, n);
ArraySort(mass, n);
writeln('Отсортированный массив: ');
ArrayOutput(mass, n);
{Добавляем к массиву числа -2 и 5 и сортируем полученный массив}
mass[n+1]:=-2;
mass[n+2]:=5;
ArraySort(mass, n+2);
{Выводим итоговый массив}
writeln('Упорядоченный массив: ');
ArrayOutput(mass, n+2);
end.