Коды символов
Очень большой класс задач на символьные переменные проще решать, используя коды символов в кодовой таблице. По этому я рассмотрю несколько типовых, на мой взгляд, задач.
Для решения этих задач, не плохо знать интервалы букв и цифр:
Русские заглавные: 192 ≤ i ≤ 223
Русские строчные: 224 ≤ i ≤ 255
Английские заглавные: 65 ≤ i ≤ 90
Английские строчные: 97 ≤ i ≤ 122
Цифры: 48 ≤ i ≤ 57
Разница в кодах между заглавной и строчной -32
Напомню, что для работами с кодами нам потребуются две функции: функция Ord(S) – определяет порядковый номер символа, и функция Chr(i) – определяет символ с порядковым номером i.
Используя цикл с параметром можно просмотреть коды всех символов в кодовой таблице. Для удобства чтения кодовой таблицы воспользуемся оператором GotoXY, который устанавливает текстовый курсор в указанное место на экране. У нас получается 10 столбиков по 24 строки в каждом.
program bukw;
Uses crt;
var i, x,y:integer;
begin
x:=1;y:=1;
for i:=30 to 255 do begin
gotoxy(x,y);
writeln(i,'-',chr(i),'; ');
y:=y+1;
if (y mod 25 = 0) then begin
x:=x+8;
y:=1;
end;
end;
End.
Задача 1. Составить программу которая считает сколько русских и сколько английских букв в строке введенной с клавиатуры. В данном примере две переменные S и S1 увеличиваются в зависимости от того в каком интервале находится код i-го символа.
Program n1;
uses crt;
var a:string;
b,s,s1,i:integer;
begin
clrscr;
writeln('введи строку');
readln(a);
s:=0;
s1:=0;
for i:=1 to length(a) do
begin
b:=ord(a[i]);
if(b>=65)and(b<=90)or (b>=97)and(b<=122)then then s:=s+1;
if(b>=192)and(b<=255)then s1:=s1+1;
end;
writeln(s,'-английских букв');
writeln(s1,'-русских букв');
end.
В принципе интервалы можно задавать в виде множеств. Причем в первом случае код символа используется как элемент множества:
if (b in [65..90]) or (b in [97..122]) then…
Во втором случае сам символ используется как элемент множества:
if (a[i] in ['А'..'Я']) or (a[i] in ['а'..'я']) then…
Задача 2. Составить программу заменяющую все заглавные буквы на строчные. В строке вводятся русские и латинские буквы вразнобой. Идея решения заключается в том, что разница между кодами строчных и заглавных букв постоянна. Так как заглавные буквы стоят в кодовой таблице впереди строчных то достаточно к коду заглавной буквы прибавить 32, то мы получим код строчной буквы. А затем заменяем в строке i-ый символ на новый при помощи операции присваивания.
Program n2;
uses crt;
var a:string;
b,i:integer;
begin
clrscr;
writeln('введи строку');
readln(a);
for i:=1 to length(a) do
begin
b:=ord(a[i]);
if(b<=90)and(b>=65)or(b<=223)and(b>=192) then
begin
b:=b+32;
a[i]:=chr(b);
end;
end;
writeln(a);
end.
Задача 3. С клавиатуры вводится строка из заглавных русских букв. Подсчитать сколько каждых букв по отдельности в этой строке. (Например: А-10, Б-2, В-4 и т.д.) Идея решения заключается в следующем: так как считать нужно только русские заглавные буквы, нам достаточно массива из 33 ячеек, в которых будем хранить количество тех или иных букв. Что бы получить порядковый номер буквы в русском алфавите, то есть индекс ячейки массива, необходимо из кода символа вычесть 191 (и наоборот, чтобы из номера буквы в алфавите получить код буквы в кодовой таблице необходимо прибавить 191). Мы перебираем буквы и если это заглавная русская буква, то содержимое ячейки под номером данной буквы увеличиваем на единицу. При выводе массива добавлено условие, те буквы которые не встретились в строке, на экран не выводятся.
Program n3;
uses crt;
var a:string;
s:array[1..33] of integer;
b,i:integer;
begin
clrscr;
write('введи строку{русские заглавные}'); readln(a);
for i:=1 to length(a) do
begin
b:=ord(a[i]);
if(b>=192)and(b<=223)then s[b-191]:=s[b-191]+1;
end;
for i:=1 to 33 do if (s[i]<>0) then
writeln(chr(i+191),' - ', s[i]);
end.
Задача 4. Составить программу – генератор паролей из английских заглавных, строчных букв и цифр.
Вспомним как в паскале генерируются случайные числа.
m :=RANDOM (А)
случайное число из интервала [0; А)
m :=RANDOM(B-A)+A;
случайное число из интервала [A ; B)
m :=RANDOM(B-A+1)+A;
случайное число из интервала [A ; B]
Например:
Случайное число из интервала [10 ; 30].
А = 10, В = 30,
подставим в формулу
m :=RANDOM(B-A+1)+A;
m :=RANDOM(30-10+1)+10;
такую запись нужно упростить
m :=RANDOM(21)+10;
В данном примере переменная k определяет вид знака: заглавная, строчная или цифра. k:=random(3); дает случайное число от 0 до 2 включительно. 0- число генерируется из интервала заглавных букв, 1- строчных, 2 – цифр. А затем полученное случайное число из определенного интервала преобразуется в символ и добавляется к паролю.
program n4;
Uses crt;
var s:string;
i,n,k:integer;
begin
for i:=1 to 10 do begin
k:=random(3);
if k=0 then n:=random(25)+65;
if k=1 then n:=random(25)+97;
if k=2 then n:=random(9)+49;
s:=s+chr(n);
end;
writeln(s);
End. |
