Конспект Символьный тип данных


Символьный тип данных.
Символьный тип данных обозначается ключевым словом char. Значением символьного типа являются элементы кодовой таблицы ASCII, которая ставит в соответствие каждому символу его код и вкл-т в себя латинские буквы, цифры, знаки ар.действий, русские буквы, графические символы и т.д. Постоянные этого типа обрамляются в ‘, н-р, ‘5’, ‘y’ и т.д. для отображения символов и их кодов существует 2 функции:
1. ord(w) – определяет порядковый номер символа w в таблице.
2. chr(i) – определяет символ с номером i.
Для работы с символами часто используют следующие функции:
1. pred(w) –возвращает предыдущий символ;
2. succ(w) – возвращает следующий символ.
Функция upcase(w) преобразует строчный английский символ в прописной.
№1.
Написать программу, которая выводит на экран 1-ю часть кодовой таблицы (коды от 0 до 127). Таблица должна состоятьт из 8 колонок и 16 строк. В 1 колонке д.б. символы с кодом 0-15, затем 16-31 и т.д.
uses crt;
var w:char;
i,n:integer;
begin
clrscr;
n:=0;
for i:=0 to 127 do
begin
w:=chr(i);
write (i:4,' ',w);
n:=n+1;
if n=8
then
begin
n:=0;
writeln;
end;
end;
readlnend.
№2.
Написать программу, которая преобразует вводимые строчные символы русского алфавита в прописные.
uses crt;
var w,w1:char;
i,i1,n:integer;
begin
clrscr;
w:='a';
w1:='A';
i:=ord(w);
i1:=ord(w1);
writeln(i, ' ',i1);
repeat
writeln('vvedite simvol');
readln(w);
i1:=ord(w)-32;
if w<>'.'
then
begin
w1:=chr(i1);
writeln('propisnaja budet ',w1);
end;
until w='.';
readlnend.
№3 сами
Написать программу, которая выдаёт код символа, введённого пользователем. Программа должна завершать работу после введения точки.
№4.
По одному вводится цепочка символов. Признак окончания – точка. Определить количество цифр.
uses crt;
var w,w1:char;
i,i1,n:integer;
beginclrscr;
n:=0;
repeatwriteln('vvedite simvol');
readln(w);
i1:=ord(w)-32;
if (w>='0')and(w<='9')
thenn:=n+1;
until w='.';
writeln('vvedeno ',n,' cifr');
readlnend.
№5. сами
По одному вводится цепочка символов. Признак окончания – точка. Определить, встречается ли в ней заданный символ q.
№6.
Написать программу вывода цепочки символов:
Z
YY
XXX

AA…A
uses crt;
var w:char;
j,n:integer;
begin
clrscr;
n:=1;
for w:='Z' downto 'A' do
begin
for j:=1 to n do
write(w);
n:=n+1;
writeln;
end;
readlnend.
readlnend.
№7 сами
Написать программу вывода цепочки символов:
ABCD…XYZ
BCD…XYZ
CD…XYZ
XYZ
YZ
Z
uses crt;
var w,n:char;
j:integer;
begin
clrscr;
n:='A';
for j:=1 to 26 do
begin
for w:=n to 'Z' do
write(w);
n:=succ(n);
writeln;
end;
readlnend.
readlnend.
Написать программу вывода цепочки символов:
ABCD…XYZ
BCD…XYZZ
CD…XYZZZ
XYZZZZZZZ
YZZZZZZZZ
ZZZZZZZZZ
uses crt;
var w,n:char;
j,K,S:integer;
begin
clrscr;
n:='A';
S:=1;
for j:=1 to 26 do
begin
if j=15
then readln;
for w:=n to 'Y' do
write(w);
FOR k:=1 to s do
write('Z');
S:=S+1;
n:=succ(n);
writeln;
end;
readlnend.
readlnend.
 

Приложенные файлы


Добавить комментарий