Цитата:
Сообщение от Митяйко
1 Дано предложение. опр сколько раз в нем встречаются сдвоенные буквы.
|
Код:
VAR
S:String;
Nd,i:BYTE;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
Nd:=0;
for i:=1 to Length(S)-1 do
if S[i]=S[i+1] then Inc(Nd);
WriteLn('Doubled symbol occurs ',Nd,' times');
ReadLn;
END.
Цитата:
Сообщение от Митяйко
4 Дан х определить х^3/3!+3*^5/5!+....25*x^27/27!
|
Код:
VAR
S,x:Real;
i:BYTE;
function X2np(X:Real; n:Byte):Extended;
Var i:Byte;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;
function Nfact(n:Byte):Extended;
VAR
i:Byte;
fact:Extended;
BEGIN
IF n=0 THEN fact:=1 ELSE
BEGIN
fact:=1;
FOR i:=1 TO n DO
fact:=fact*i;
END;
Nfact:=fact;
END;
BEGIN
Write('x= ');
ReadLn(x);
S:=0;
for i:=1 to 13 do
S:=S+X2np(x,2*i+1)*(2*i-1)/Nfact(2*i+1);
WriteLn('Sum= ',S);
ReadLn;
END.