Паскаль (Pascal) разрабатывался, как учебный язык выского уровня, структурного программирования. Относится к 3-му поколению языков программирования. На основе ALGOL.
Для обработки текстовой информации используется строковый тип данных string (не более 255 симв)
Строка- цепочка символов
Пример. Задача убрать все пробелы
var st1,st2:string;
n,i,k:integer;
begin
write('Enter string: '); readln(st1); k:=0;
n:=ord(st1[0]); // вычисляем количество элементов строки
for i:=1 to n do
if st1[i]<>' ' then begin
k:=k+1; // k – количество элементов новой строки
st2[k]:=st1[i]; // записываем элементы новой строки
end;
st2[0]:=chr(k); // указываем длину новой строки
write('String bez probeloff: ',st2); readln;
end.
Доп процедуры и функции
ord(st[0]), length(st) - текущ длина строки
"+" - сцепление строк
"=","<>","<",">","<=",">=" - операции отношения
concat(s1,s2,...,sn) - вывести строку, сцепленную из параметров;
copy(st, index, count) - копировать из st count символов, начиная с номера index
delete(st, index, count) - удалить из st count символов, начиная с номера index
insert(subst, st, index) - вставить в строку st подстроку subst, начиная с номера index
pos(subst, st) - отыскать в строке st первое вхождение subst и возвратить номер позиции, с которой она начинается, если ее нет, то 0
str(x:width:decimals, st) - преобразовать число x любого веществ или целого типа в строку st
val(st, x, code) - преобразовать строку st в целую или веществ переменную x
IntToStr, FloatToStr, StrToInt, FormatFloat
Пример. Задача перевернуть строку
var st:string;
i,j,n:integer;
c:char;
begin
write('Enter string: '); readln(st);
n:=length(st);
for i:=1 to (n div 2) do begin
c:=st[i]; st[i]:=st[n-i+1]; st[n-i+1]:=c;
end;
writeln('Naoborot budet: ',st); readln;
end.
8.
