Решения (задачи 131-150)
Задача 141
{ Вывод таблицы кодировки символов } var
ch:char; { символ }
dec:integer; { десятичный код символа }
i,j:integer;
114
in
dec: = O;
for i: = 0 to 15 do (шестнадцать строк } begin
' dec: = i; { чтобы получить таблицу кодировки} { для символов с кодами 128-255, }
{ эту инструкцию надо) { заменить на dec: = i+128;} for j: = l to 8 do { восемь колонок } begin
if(dec<7) or (dec>=14> then
write(dec:4, '-', ' ',
chr(dec):l,chr(179)) else { символы CR,LF,TAB не отображаются }
write(dec:4,' – ',chr(179)); dec: = dec+16; and;
writeln; { переход к новой строке экрана } end;
readln; end.
Задача 142
var
st: string[80]; { строка текста } len: integer; { длина строки }
i: integer; { номер обрабатываемого символа) begin
writeln('Введите строку текста и нажмите Enter');
write(' › '); readln(st); len: = Length(st); for i: = l to len do
case st[i] of
'a'..'n': st[i]: = chr(ord(st[i])-32); 'р'-.'я1: st[i]: = chr(ord(st[i])-80);
end;
writeln ('Строка, преобразованная к верхнему регистру: writeln(st););
readln; end.
Задача 143
{ Удаление начальных пробелов строки } var
st:string[80]; { строка } begin
writeln('Удаление начальных пробелов строки.1);
write('Введите строку:');
readln(st);
while (post1 ',st) = 1) and (length(st)>0) do delete(st,1/1);
write('Строка без начальных пробелов:',st);
readln; end.
Задача 144
(Проверка, является ли введенная
с клавиатуры строка целым числом } var
st: string[40]; { строка }
n: integer; { номер проверяемого символа } begin
writeln('Введите число и нажмите Enter');
write(' › ');
readln(st);
n: = l;
while (n <= Length(St)) and
((st[n] >= '0') and (st[n] <-'9')) do n: = n+l;
write('Введенная строка '); if n < Length(st)
then write('не '); writeln('является целым числом. ');
readln; end.