Язык программирования Pascal. Строки и записи. Васильев В.В - 10 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

10
function Shifr(a:char; c:cifra):char;
var i:integer;
begin Shifr:=chr(ord('А')+(ord(a)-ord('А')+c) mod 32)
end;{Shifr}
Begin
Textbackground(7); Textcolor(blue); Clrscr;
write('Введите ключ для шифра Гронсфельда: '); readln(k);
for i:=n-1 downto 0 do
begin kod[i]:=k mod 10; k:=k div 10 end;
writeln('Введите текст:');
i:=0;
while not eoln do
begin
read(a);
if a in ['А'..'Я']
then begin write(Shifr(a,kod[i mod n]));inc(i) end
else write(a);
end;
readkey
End.{Shifr_Gronsfeld}
Попробуйте придумать свой алгоритм шифрования текстов !
2. Записи, оператор присоединения
Запись является структурированным типом данных. Запись является
структурой данных, состоящей из компонент. Компонент записи называется
полем . В отличие от массива, поля записи могут быть разных типов.
Каждое поле записи имеет свое имя, определяемое при описании. Имена
полей одной и той же записи должны быть различны. Имена полей различных
записей могут совпадать .
Поля записи могут быть простого и структурированного типа (в том числе
массивом и записью ).
Записи могут иметь вложенную структуру. Уровень вложенности записей
ограничивается максимальным размером любой структуры. То есть объем па-
мяти, необходимый для хранения значений всех полей записи, не должен пре-
вышать 65520 байт. Имена полей одной записи могут повторяться на разных
уровнях вложенности.
В общем виде тип записи объявляется так:
имя типа = record список полей end;
Список полей состоит из описаний полей записи, разделенных точками с
запятыми. Чтобы описать поле записи, нужно указать имя поля (идентифика -
тор ), поставить двоеточие и указать тип поля.
Объявим запись , описывающую длину, заданную в дюймовой системе из-
мерения.
type dlina = record
yard:0..maxint;

Страницы