Билет 14

Напишите программу на языке программирования (или составьте алгоритм). Вычислить значение функцииy, получить результат при х = –3.2; –1; 0; 3. 2, округлив до 0,001, где

Program z3_14;

uses crt;

Function Y(x:real):real;

Begin

If x<-1 Then Y:=Cos (Abs (x)+1)

Else Y:= (x - 2.5)*2;

End;

Const

A=-3.2;

B=-1;

C=0;

D=1;

F=3.2;

Var

K,N,i,J: integer;

X: Real;

Begin

ClrScr;

Writeln ('Значение функции: ');

Writeln ('Y(',A:1:1,')= ',Y(A):1:3);

Writeln ('Y(',B,')= ',Y(B):1:3);

Writeln ('Y( ',C,')= ',Y(C):1:3);

Writeln ('Y( ',D,')= ',Y(D):1:3);

Writeln ('Y(',F:1:1,')= ',Y(F):1:3);

Repeat Until KeyPressed;

End.

Алг z3_14 (Вещ X, Y)

арг X

рез Y

нач вещ A,B,C,D,F1

A=-3.2; B=-1;

C=0; D=1; F1=3.2;

Вывод ('Значение функции: ');

Вывод ('Y(',A:1:1,')= ',F(A):1:3);

Вывод ('Y(',B,')= ',F(B):1:3);

Вывод ('Y( ',C,')= ',F(C):1:3);

Вывод ('Y( ',D,')= ',F(D):1:3);

Вывод ('Y(',F:1:1,')= ',F(F1):1:3);

кон

алг вещ F(вещ x)

нач

если x<-1

то F:=Cos (Abs (x)+1)

иначе F:= (x - 2.5)*2

все

кон

Билет 15

Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Вычислите сумму первых n слагаемых: .

Program z3_b15;

Uses crt;

Var

K,N,i,J: integer;

S: Real;

Begin

ClrScr;

Write ('Введите количество слагаемыъ – N :');

Read (N);

J:=1;

S:=0;

K:=3;

While i < N do

Begin

i:=i+1;

S:=S+J/K;

J:=J+2;

K:=K*3;

End;

Writeln (' Сумма ряда = ', S);

repeat until KeyPressed;

end.

Алг z3_b15 ( нат N, вещ S)

арг N

рез S

нач цел K,i,J

J:=1

S:=0

K:=3

Пока i < N

нц

i:=i+1

S:=S+J/K

J:=J+2

K:=K*3

кц

кон

Билет 16

Напишите программу на языке программирования (или составьте алгоритм). Введите число в десятичной системе счисления. Определите, чего больше – нулей или единиц в его двоичном представлении?

Program z3_b16;  var  a: array[1..100] of byte;  n,i,c,kn,ke: integer;  begin    writeln(‘Введите число для перевода в двоичную систему’);

readln(n);     c:= 0; kn:=0; ke:=0;     while n<>0 do

begin      c:= c + 1;     a[c]:= n mod 2; 

if a[c]=0 then kn:=kn+1 else ke:=ke+1;    n:= n div 2;      end;      for i:= c downto 1 do     write(a[i]); 

if kn>ke then writeln(‘нулей больше’) else if ke>kn then writeln(‘единиц больше’) else writeln(‘ количество 0 и 1 равно’);

end.

Алг z3_b16 ( цел n,I,c,kn,ke; цел таб а[1:100])

Арг n

Рез a

Нач цел i,c,kn,ke

c:= 0  kn:=0 ke:=0

пока n<>0 нц c:= c + 1 a[c]:= mod (n, 2)  если a[c]=0 то kn:=kn+1 иначе ke:=ke+1 все    n:= div (n, 2) кц

если kn>ke то вывод (‘нулей больше’) иначе если ke>kn то вывод (‘единиц больше’)

иначе вывод (‘ количество 0 и 1 равно’) все все

кон