Билет 5
Напишите программу на языке программирования (или составьте алгоритм). Подсчитать количество простых чисел в одномерном массиве размером N, состоящем из целых чисел, полученных случайным образом.
Program z3_b5;
Var
n,i,k,kp,j: integer;
a: array [1..100] of integer;
begin
writeln ('введите число');
readln (n);
writeln ('массив'); Randomize; for i := 1 to n do a[i]:= Random(n);
kp:=0;
for i := 1 to n do write(a[i], ‘ ‘);
for i:=1 to n do
begin
k:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then k:=k+1;
if k=2 then kp:=kp+1;
end;
writeln(‘количество простых чисел – ‘, kp);
end.
Алг z3_b5(цел n, kp, цел таб a [1:100] )
Арг n
Рез kp
нач цел i,k, j
kp:=0
для i от 1 до n
нц
k:=0
для j от 1 до a[i] нц
если mod (a[i] ,j) = 0 то k:=k+1
все
кц
если k=2 то kp:=kp+1 все
кц
кон.
Билет 6
Напишите программу
на языке программирования (или составьте
алгоритм),
осуществляющую сокращение простой
дроби
.
Program z3_b6;
Uses crt;
Var a,b,del: integer;
Function NOD (a.b: integer):integer;
Begin
While a<>b do if a>b then a:=a-b else b:=b-a;
Nod:=a;
End;
Begin
Writeln ('Введите числитель и знаменатель дроби ');
Readln (a,b);
del:= nod(a,b);
a:=a div del;
b:=b div del;
Writeln (a,'/',b);
Repeat until Keypressed;
End.
Алг z3_b6 (цел a,b)
арг a,b
Нач цел del
del:= nod(a,b)
a:= div( a ,del)
b:= div(b, del)
Вывод (a,'/',b)
кон
Цел алг NOD (цел a.b)
арг a.b
нач
Пока a<>b
нц
если a>b
то a:=a-b
иначе b:=b-a
все
кц
знач:=a;
кон
Билет 7
Напишите программу на языке программирования (или составьте алгоритм). Вычислить значение функции у = х3 +12 для х ϵ [–2, 2] при шаге изменения аргумента 0.2. Выполнить программу и получить результат.
Program z3_b7;
Uses crt;
Var
n,i:integer;
x,y:real;
Begin
writeln('x y');
x:=-2;
while x<=2 do
begin
y:=x*x*x+12;
writeln(x:0:2,' ',y:0:2);
x:=x+0.2;
end;
repeat until KeyPressed;
End.
Алг z3_b7 (вещ x,y)
арг x
рез y
нач
x:=-2
пока x<=2
нц
y:=x*x*x+12
вывод(x:0:2,' ',y:0:2)
x:=x+0.2
кц
кон
Билет 8
Напишите программу на языке программирования (или составьте алгоритм). Имеется четыре коробки спичек и в каждой из них по 15 спичек. Номер коробки, из которой берется очередная спичка, выбирается случайно. Сколько спичек будет сожжено, прежде чем одна из коробок опустеет?
Program z3_b8;
Uses Crt;
Var
A: array [1..4] of integer;
i, m, n: integer;
Begin
ClrScr;
Randomize;
For i:=1 to 4 do A[i]:=15;
Repeat
n:=1+random(4);
A[n]:=A[n]-1;
m:=m+1;
Until A[n]=0;
Writeln ('В коробке ', N, ' закончились спички');
Writeln ('Израсходовано ', М ,' штук');
Repeat until Keypressed;
end.
Алг z3_b8 (цел m, n)
рез m, n
нач цел i, цел таб A [1:4]
для i от 1 до 4
нц
A[i]:=15;
кц
выполнить
n:=1+random(4);
A[n]:=A[n]-1;
m:=m+1;
до A[n]=0;
Вывод ('В коробке ', N, ' закончились спички');
Вывод ('Израсходовано ', М ,' штук');
кон