Вот шифр цезаря на паскале но в чем заключаеться вопрос , в том что если в слове есть буква близкая к концу алфавита например я то прибавляя ключ(например 3) он не может перескочить к началу алфавита! ! program z1; uses crt; var a, b, c: string; i, j, k, d, g: integer; begin clrscr; writeln('шифрование? 1-да, 0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; b: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; for i: =1 to length(a) do for j: =1 to length(b) do begin if g=0 then k: =(j-d) mod 32 else k: =(j+d); if a[i]=b[j] then c: =c+b[k]; end; writeln(c); readkey; end.
Ответы
Кажется так. необходи из алфавита вычесть общее количество знаков алфавита. program z1; var a,b,c: string; i,j,k,d,g: integer; begin writeln('шифрование? 1-да,0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; b: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; for i: =1 to length(a) do for j: =1 to length(b) do begin if g=0 then k: =(j-d) mod 32 else k: =(j+d); if k > 33 then k: =k-33; if a[i]=b[j] then c: =c+b[k]; end; writeln(c); end.
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(100,-50,50); a.println; writeln('чисел, больших 10: ',a.where(t-> t> 10).count) end. пример -25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10 чисел, больших 10: 35
Uses graphabc; begin // кузов rectangle(340,220, 540, 300); // багажник rectangle(140,140, 340, 300); floodfill(220, 220, clbrown); // закразка кузова floodfill(460, 260, clgray); // закразка багажника // дверь в кабину rectangle(220,180, 300, 260); circle(280, 220, 10); // ручка двери // фара circle(140, 260, 10); // первое колесо circle(220, 340, 40); // второе колесо. circle(420, 340, 40); // дорога line(60,380, 560, 380); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ответьте на во и №4 – представьте развернутое решение (Дано Найти Решение)
Автор: Sergei_Olga658
