ів
program as;
uses crt;
var a: array [1 .. 10] of integer;
i, k, m: integer;
begin clrscr;
writeln;
for i: = 1 to 10 do a [i]: = random (99);
for i: = 1 to 10 do write (a [i]: 5);
writeln;
writeln;
k: = a [2];
a [2]: = a [4];
a [4]: ​​= k;
for i: = 1 to 10 do write (a [i]: 5);
end.
Заданіе14. Дан 2 мірний масив. Замінити всі елементи кратні 5, нулями
program as;
uses crt;
var a: array [1 .. 5,1 .. 5] of integer;
i, j, s: integer;
begin clrscr;
for i: = 1 to 5 do
for j: = 1 to 5 do a [i, j]: = random (6);
for i: = 1 to 5 do begin
writeln;
for j: = 1 to 5 do write (a [i, j] +5),
end;
writeln;
for i: = 1 to 5 do
for j: = 1 to 5 do begin
if a [i, j] mod 5 = 0 then a [i, j]: = 0;
end;
for i: = 1 to 5 do begin writeln;
for j: = +1 to 5 do write (a [i, j]: 5);
end;
end.
Заданіе15. Дан масив обчислити суму всіх елементів більше 20
program as; end; p> uses crt; writeln;
var a: array [1 .. 10] of integer; for i: = 1 to 10 do if a [i]> 20 then p: = p + a [i];
i, s, p: integer; writeln (p);
begin clrscr; readln;
for i: = 1 to 10 do a [i]: = random (88); end. p> for i: = 1 to 10 do begin
writeln;
for i: = 1 to 10 do write (a [i]: 5);
Процедури і функції
Завдання 1. Скласти програму обчислення числа поєднання C = n! (nm)!
program as;
uses crt;
var m, n, p1, p2, p3: integer;
c: real;
procedure factor (x: integer; var p: integer);
var i: integer;
begin p: = +1;
for i: = 1 to x do p: = p * i;
end;
begin clrscr;
writeln ('Vvedi m, n ');
readln (m, n);
factor (m, p1),
factor (n, p2);
factor (n-m, p3);
c: = p1/(p2 * p3);
writeln (c: 5:2);
end.
Завдання 2. Скласти програму знаходження меншого з 5 заданих чисел, використовуючи процедуру знаходження меншого з 2 заданих чисел
Program as;
Uses crt;
Var a, b, c, d, e, z1, z2, z3, z4, z5: integer;
Procedure min (x, y: integer; var z: integer);
Begin;
If x
Writeln (z);
End;
Begin clrscr;
Readln (a, b, c, d, e);
Min (a, b, z1);
Min (z1, c, z3); ​​
Min (z3, d, z4);
Min (z4, e, z5);
End.
Завдання 3. Написати програму знаходження суми більшого і меншого з 3 заданих чисел
Program as;
Uses crt;
Var a, b, c, d, v, v1, max, max1, min, min1: integer;
Procedure ma (x, y, z: integer; var v: integer);
Begin clrscr;
If x
If max
If x> y then min: = x else min: = y;
If min> z then min1: = min else min1: = z;
V: = min1 + max1;
End;
Begin clrscr;
Readln (a, b, c);
Ma (a, b, c, v1);
Writeln (v1);
End.
Завдання 4. Скласти програму обчислення сумою фактор. всіх парних чисел від m до n
program as;
uses crt;
var a, b, c, n, m, s, k, p1, p: integer;
procedure factor (x: integer; var p: integer);
var i: integer;
begin p: = 1;
for i: = 1 to x do begin p: = p * I; end;
writeln (p);
end;
begin clrscr;
writeln (' Vvedi n, m ');
readln (n, m);
for k: = n to m do if k mod 2 = 0 then begin
factor (k, p1);
s: = s + p1;
end;
writeln (s);
end.
Завдання 5. Дано 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.
M!
Завдання 6. Скласти програму обчислення числа поєднання C = n! (Nm)! за допомогою функції
program as;
uses crt;
var f1, f2, f3, m, m1, n: integer;
c: real;
Function factor (n: integer): integer;
var p, i: integer;
