Практическая часть. Задание 3 Билет 1
Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа.
Program z3_b1;
uses crt;
Var
N,R,C,I: integer;
Begin
ClrScr;
Write('N=');
Readln(N);
Repeat
R:= N div 10;
C:=N-R*10;
IF C=7 Then I:=I+1 ;
N:=R;
Until N=0;
Writeln ('Цифра 7 встречается', I,' раз');
Repeat until KeyPressed;
End.
Алг z3_b1 (нат N, цел I)
арг N
рез I
нач цел R,C
выполнить
R:= N div 10
C:=N-R*10
если C=7
то I:=I+1
все
N:=R
до N=0
кон
Билет 2
Напишите
программу на языке программирования
(или составьте алгоритм).
Дано натуральное число N.
Вычислить: S
=
+
.
Program z3_b2;
Uses crt;
Var
n,i: integer;
S:real;
Begin
Write('n=');
Readln(n); S:=0;
For i:=2 to n do
S:=S+1/i;
writeln('S= ',S);
Repeat until KeyPressed;
End.
Алг z3_b2 ( цел n, вещ S)
арг n
рез S
кач цел i
S:=0;
для i от 2 до n
нц
S:=S+1/i
кц
кон
Билет 3
Напишите программу на языке программирования (или составьте алгоритм). Перевести заданное число из двоичной системы счисления в десятичную.
Program z3_b3;
Uses crt;
Var
A: array[1..16] of byte;
N,i,C: integer;
Begin
Writeln ('Введите число для перевода в двоичную систему');
Readln (N);
C:= 0;
While N<>0 do
Begin
C:= C + 1;
A[C]:= N mod 2;
N:= N div 2;
End;
For i:= C downto 1 do
Write (A[i]);
Repeat until KeyPressed;
End.
Алг z3_b3 (цел N, цел таб А [1:16])
арг N
рез А
нач цел I,С
C:= 0;
Пока N<>0
нц
C:= C + 1
A[C]:= mod (N ,2)
N:= div (N ,2)
кц
для i от C до 1 шаг -1
нц
вывод (A[i])
кц
кон
Билет 4
Напишите программу на языке программирования (или составьте алгоритм). Перевести заданное число из двоичной системы счисления в десятичную.
Program z3_b4;
Var k,a,b,d,s: longint;
Function step(x:integer):longint;
Var i:integer;
st:longint;
Begin
If x=0 then step:=1 else
Begin
st:=1;
For i:=1 to x do
st:=st*2;
step:=st;
End;
End;
Begin
s:=0;
k:=0;
Writeln ('Введите двоичное число для перевода в десятичную систему');
Readln (a);
Repeat
b:=a mod 10;
d:=a div 10;
s:=s+b*step(k);
k:=k+1;
a:=d;
Until d=0;
Writeln (s);
End.
Алг z3_b4 ( цел a,s)
Арг а
Рез s
Нач цел k,b,d
s:=0
k:=0
Выполнить
b:= mod (а, 10)
d:= div (a ,10)
s:=s+b*step(k)
k:=k+1
a:=d
до d=0
Кон
Алг Цел step(цел x)
Нач цел i, st
Если x=0
то знач:=1
иначе
st:=1;
для i от 1 до x
нц
st:=st*2;
кц
знач:=st;
все
Кон