Program proga_1; var x: real; n: integer; function func(n: integer; x: real): real;var i: integer; i1, i2, i3: real;
//функция вычисления степени function power(n: integer; x: real): real; var i: integer; res: real; begin res := x; for i := 1 to n - 1 do res := res * x; power := res; end; //фукция вычисления факториала function factorial(x: integer): integer; var i, res: integer; begin for i := 1 to x do inc(res, i); factorial := res; end; begin if n mod 2 = 0 then i1 := 1 else i1 := -1; //определяем число -1 степени n i2 := power(2 * n, 2 * x); i3 := factorial(2 * n + 1); func := (i1 * i2) / i3;end; begin write('Введите n: '); readln(n); write('Введите x: '); readln(x); writeln('Сумма равна: ', func(n, x)); end.
Program p_2; var z, a : real; m : integer; function step (n: integer; x: real): real; var i: integer; y: real; begin i: =1; y: =1; while i< =n do begin y: =y*x; i: =i+1; end; step: =y; end; {конец функции}begin write(‘введи степень и возводимое число’); readln(z,m); f: =step(m,z); writeln(z, ‘ в степени’, m, ‘=’,f); end.
''' Шифр Цезаря. Только для английского алфавита. Python 3.X '''
s = input('Строка для шифрования: ') n = int(input('Сдвиг: ')) res = [] # список с символами результата for l in s: # для каждого символа в строке if not 97 <= ord(l) <= 122: # если символ - не латинская буква ... res.append(l) # ... добавить к ответу "как есть" else: o = (ord(l) - 96 + n) % 26 # номер закод. буквы в алфавите char = chr(o + 96) # символ по таблице ASCII res.append(char) # добавить закодированную букву к ответу print('Результат:', ''.join(res))
var x: real; n: integer;
function func(n: integer; x: real): real;var i: integer; i1, i2, i3: real;
//функция вычисления степени
function power(n: integer; x: real): real;
var i: integer; res: real;
begin res := x; for i := 1 to n - 1 do res := res * x;
power := res;
end;
//фукция вычисления факториала
function factorial(x: integer): integer;
var i, res: integer;
begin for i := 1 to x do inc(res, i);
factorial := res;
end;
begin
if n mod 2 = 0 then i1 := 1 else i1 := -1; //определяем число -1 степени n
i2 := power(2 * n, 2 * x);
i3 := factorial(2 * n + 1);
func := (i1 * i2) / i3;end;
begin
write('Введите n: '); readln(n);
write('Введите x: '); readln(x);
writeln('Сумма равна: ', func(n, x));
end.