Шифр цезаря на паскале , почему не выдает при дешифрации букву в с ключом 3 и 5 и дальше! что исправить? program shifr_cezerya; 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=1 then k: =(j+d) mod 33 else k: =(j-d)mod 33; if a[i]=b[j] then c: =c+b[k]; if k> 33 then k: =k-33 else k: =k+33; end; writeln(c); readkey; end.

1. на кой такие сложности не ясно. коды символов идут по порядку на сколько я помню, 2. отладка в этом случае должна . вводи алфавит и смотри результат, должен быть сдвиг на ключ.

Function square(x1, y1, x2, y2, x3, y3: real): real; begin        square : = abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2; end; var      x1, y1, x2, y2, x3, y3, s1, s2: real; begin      write('задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s1 : = square(x1, y1, x2, y2, x3, y3);       write('задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s2 : = square(x1, y1, x2, y2, x3, y3);       if s1 > s2 then writeln('площадь первого треугольника больше')      else if s1 < s2 then writeln('площадь второго треугольника больше')      else writeln('площади треугольников равны'); end. p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.

Определения n-арным отношением r, или отношением r степени n, называют подмножество декартовa произведения множеств d_1, d_2, ..d_n (n\ge 1), не обязательно различных. исходные множества d1, называют в модели доменами (в субд используется понятие тип данных) . отношение имеет простую графическую интерпретацию, оно может быть представлено в виде таблицы, столбцы (поля, атрибуты) которой соответствуют вхождениям доменов в отношение, а строки (записи) — наборам из n значений, взятых из исходных доменов. число строк (кортежей) называют кардинальным числом отношения (кардинальностью) , или мощностью отношения. такая таблица обладает рядом свойств: в таблице нет двух одинаковых строк. таблица имеет столбцы, соответствующие атрибутам отношения. каждый атрибут в отношении имеет уникальное имя. порядок строк в таблице произвольный. под атрибутом здесь понимается вхождение домена в отношение. строки отношения называются кортежами. далее следует формализованное определение введённых понятий. заголовок hr (или схема) отношения r — конечное множество пар вида < a,> , где a называется именем атрибута, а t обозначает имя некоторого базового типа или ранее определенного домена, то есть множества допустимых значений. по определению требуется, чтобы все имена атрибутов в заголовке отношения были различны. кортеж tr, соответствующий заголовку hr — множество триплетов вида < a,> , по одному такому триплету для каждого атрибута в hr. третий элемент – v – триплета < a,> должен являться допустимым значением типа данных или домена t. замечание: так как имена атрибутов уникальны, то указание домена в кортеже излишне. тело br отношения — множество различных кортежей tr. значением vr отношения r называется пара множеств hr и br. полезно также понятие первичного ключа — это такой набор атрибутов, который однозначно определяет кортеж и минимален среди всех своих подмножеств (то есть нельзя убрать ни один из атрибутов) . при добавлении новых записей первичный ключ обязан оставаться первичным ключом (например, неверным будет использование в качестве первичного ключа набора имя + отчество + фамилия сотрудника, даже если на момент создания таблицы полных тёзок среди заносимых в неё людей не было).