Ну код Цезаря(классический) это сдвиг на 3 буквы по клавиатуре. Тогда будет: информатика - лрчсупгхлнг компьютер - нсптябхзу
Для кода Виженера же нужно помимо слова еще и ключ. Пишется слово, например attention вводится ключ lemon дальше ключ без пробелов становится по размеру слова, которое мы загадываем дальше по таблице составляется слово ну более-менее пытался объяснить что из себя это представляет ну раз ключ не дан, тогда вариант а: вводимое слово "человек", ключ "алгоритм" тогда человек - чроэтнэ вариант б: вводимое слово "алгоритм", ключ "человек" тогда алгоритм - чроэтнэд
Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то Program ddd; var tg, f:real; x:integer; begin readln (x); tg := sin(x)/cos(x); if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1; if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x)); writeln (f); end.
Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
