> begin p: = 1;
for i: = 1 to n do p: = p * i;
factor: = p;
end;
begin
read (m, n);
f1: = factor (m);
f2: = factor (n);
m1: = n-m;
f3: = factor (m1);
c: = f1/(f2 * m1);
writeln (c: 5:2);
end.
Завдання 7. Знайти НСК двох чисел за формулою НОК (a, b) = НСД
Program as;
Uses crt;
Var m, n, z, nod, a, nok: integer;
Procedure F (A, b: integer; var nod: integer);
Begin
While a <> b do if a> b then a: = ab else b: = ba;
Nod: = a;
End;
Begin clrscr;
Readln (m, n);
F (m, n, z);
Nok: = trunk (Z/(m * n));
Writeln (nok);
End.
Завдання 8. Трехугольніка заданий із координ. своїх вершин. Скласти програму обчислення його периметра
Program as;
Uses crt;
Var a1, a2, c1, c2, b1, b2: integer;
d1, d2, d3, d: real;
c, p: real;
procedure F (x1, x2, y1, y2: integer; var d: read);
begin
d: = sqrt (sqr (x2-x1) + sqr (y2-y1));
writeln (d: 5:2);
end;
begin clrscr;
readln (a1, a2, b1, b2, d1, d2);
F (a1, a2, c1, c2, d1),
F (c1, c2, b1, b2, d2);
F (d1, d2, a1, a2, d3);
P: = d1 + d2 + d3;
Writeln (p: 8:5);
End.
Завдання 9. Збільшити вдвічі всі елементи масиву
program as ; p> const n = 10; m = 20;
type T1 = array [1 .. n] of integer;
T2 = array [-m .. m] of integer;
var A: T1; B: T2; k: integer;
Procedure Double (var X: array of integer);
var i: byte;
begin
for i: = 0 to High (X) -1 do X [i]: = X [i] * 2;
end;
begin
for k: = +1 to n do read (A [k]);
for k: =-m to m do read (B [k]);
Double (A);
Double (B);
Double (k);
writeln ('k =', k); p> for k: = 1 to n do write (A [k], '');
writeln;
for k: =-m to m do write (B [k], '');
end.
Завдання 10. Використання типізованих констант
program typed_const;
var N: integer;
procedure Test;
const k: integer = 1;
begin
if k
begin
writeln (k, '-й виклик процедури ');
k: = k +1;
Test;
end
else writeln ('останній виклик процедури');
end;
begin
read (N);
if N> 0 then Test;
end.
Завдання 11. Обчислити N-е число Фіббоначчі
program Fib;
var n: byte;
function F (k: byte): word;
begin
if k <2 then F: = 1 else F: = F (k-1) + F (k-2);
end;
begin
write ('введіть номер числа Фіббоначчі ');
readln (N);
writeln (N, '-е число Фіббоначчі = ', F (N));
readln
end.
Заданіе12. Дано 5 чисел, знайти їх найбільший спільний дільник, використовуючи процедуру. Для алгоритму їх виду
program as;
uses crt;
var a, b, c, d, e, z1, z2, z3, z: integer;
procedure E (x, y: integer; var z: integer);
begin
while x <> y do if x> y then x: = x-y
else y: = y-1;
z: = x;
end;
begin clrscr;
writeln (' Vvedi a, b, c, d, e ');
readln (a, b, c, d, e);
E (a, b, z);
E (c, d, z1);
E (z, z1, z2);
E (z2, e, z3); ​​
writeln (z3);
end.
Заданіе13. Трехугольніка заданий із координ. своїх вершин. Скласти програму обчислення його периметра
Program as;
Uses crt;
Var a1, a2, c1, c2, b1, b2: integer;
d1, d2, d3, d: real;
c, p: real;
procedure F (x1, x2, y1, y2: integer; var d: read);
begin
d: = sqrt (sqr (x2-x1) + sqr (y2-y1));
writeln (d: 5:2);
end;
begin clrscr;
readln (a1, a2, b1, b2, d1, d2);
F (a1, a2, c1, c2, d1);
F (c1, c2, b1, b2, d2);
F (d1, d2, a1, a2, d3);
P: = d1 + d2 + d3;
Writeln (p: 8:5);
End.
Заданіе14. Скласти програму для обчислення певного інтеграла
tk
2t
I = S --------------- dt
sqrt (1-sin2t)
tn
обчислюється за формулою:
ISimps = 2 * h/3 * (0.5 * F (A) +2 * F (A + h) + F (A +2 * h) +2 * F (A +3 * h) + .. . br/>
+2 * F (B-h) +0.5 * F (B)) p> Program INTEGRAL;
type
Func = function (x: Real): Real;
var
I, TN, TK: Real; p> N: Integer;
{$ F +}
Function Q (t: Real): Real;
begin
Q: = 2 * t/Sqrt (1-Sin (2 * t)...
