fkn+antitotal

Задача № 2

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

program pascal_procedure_amount;

procedure sum( s1 , s2  , s3  : integer ); 
begin // начало тела процедуры
  write( s1 + s2 + s3 ) ;
end; // конец тела процедуры

begin  // начало тела основной программы
  sum( 43 , 54 , 32 );// вызов прoцедуры 
end. // конец тела основной программы

напишите функцию, которая возвращает сумму трёх целых чисел.

Задача № 1

program pascal_function;
var
  a, b, c: integer; // глобальные переменные
function sum( s1 , s2  , s3  : integer ) : integer;
begin // начало тела функции
  result := s1 + s2 + s3  ;
end; // конец тела функции

begin  // начало тела основной программы
  readln ( a , b ,c ) ; 
  writeln(sum( a , b ,c ));// вызов функции 
end. // конец тела основной программы

Особую роль в дальнейшем будут играть одномерные инвариантные подпространства.

Пусть $R_1$ - подпространство пространства $R$ и $A$ - линейное преобразование в $R$. Вообще говоря, для произвольного $x \in R_1, Ax \overline{\in} R_2 *).$ Например, если $R$ - евклидова плоскость, $ R_1$ - произвольная прямая и $A$ - поворот на угол $ \phi = {{π} \over {6}}, $ то очевидно, что для любого $x≠0$ и принадлежащего $ R_1, Ax \overline{\in} R_1.$ Однако может случиться, что некоторые подпространствп переходят сами в себя при линейном преобразовании $A.$ Введем следующие определения.

Определяя линейное программирование $A,$ мы фактически нигде не пользовались тем, что векторы $x$ и $Ax$ принадлежат одному и тому же пространству.

Все сказанное в этом параграфе без каких-либо существенных изменений переносится на такие преобразования. Остановимся на операциях сложения и умножения линейных преобразований.

Пусть $A$ и $B$ - линейные преобразования пространства $R_1$ в пространство $R_2$. Тогда, как и в п. 3, можно определить их сумму $A+B:C=A+B$ означает, что $Cx=Ax+Bx$ для любого $ x \in R_1.$

Одно и то же линейное преобразование может в различных базисах иметь различные матрицы. Выясним, как изменяется матрица линейного преобразования $A$ при переходе от одного базиса к другому.

Задача № 2

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

Определение 4. Преобразование $B$ называется обратным к $A,$ если $AB = BA = E,$ где $E$ - единичное преобразование.

В силу определения $E$ это означает, что для любого $x B(Ax) = x, $ т. е. если $A$ переводит $x$ в вектор $Ax$, то обратное преобразование $B$ переводит вектор $Ax$ обратно в вектор $x$. Преобразование, обратное преобразованию $A$, обозначается $A^{-1}.$

Задача №8:

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:rewt34t54346t566 то в ответ программа должны вывести:
r
ew
t34
t543
46t56
6

Задача № 1

Пользователь вводит символ ch и строку s
посчитайте сколько раз символ ch встречается в строке s

program pascal_char_in_string1;
var i,amount :integer;
    s : string;
    ch : char;
begin
writeln('input char and string  : ' );
readln( ch, s );
amount := 0;
for i := 1 to length( s ) do
begin
  if( s[i] = ch ) then
     amount+=1;
end;  
writeln( 'amount char ',ch, ' in string : ' , amount )