Символьные переменные типа CHAR (чар) – значением переменной символьного типа может быть любой символ буквы, цифры, знаки операций, скобки, пробелы и специальные символы. Каждому символу алфавита соответствует индивидуальный код от 0 до 255.
Пример:
Var word: Char;
Строковые переменные типа STRING – у типа-строки в квадратных скобках может быть указан его размер (от 1 до 255). Если размер строки не указан, он считается равным 255.
Пример:
Var
Str: string[80];
MaxStr: string;
Значение S | Выражение | Результат |
‘Мама мыла раму’ | Copy(S, 6, 4); | ‘мыла’ |
Функция Copy(S, Poz, N) –
выделяет из строки S подстроку длиной N символов, начиная с позиции Poz.
Пример
Функции
Выражение | Результат |
Concat(‘Мама ’,’мыла ’,’раму’) | ‘Мама мыла раму’ |
Функция Concat(S1,S2,…,Sn) –
выполняет сцепление строк S1,S2,…,Sn в одну строку. Конкатенация производится также с помощью знака +.
Пример
Значение S | Выражение | Результат |
‘1500 символов’ | Length(S) | 13 |
Функция Length(S) –
определяет текущую длину строки S.
Пример
Значение S2 | Выражение | Результат |
‘abcdef’ | Pos(‘cd’,S2) | 3 |
Pos(‘k’,S2) | 0 |
Функция Pos(S1,S2) – определяет первое появление в строке S2 подстроки S1.
Пример
Процедуры
Значение St | Выражение | Результат |
‘абвгде’ | Delete(St, 4, 2); | ‘абве’ |
‘река Волга’ | Delete(St, 1, 5); | ‘Волга’ |
Процедура Delete(St, poz, n) –
удаление n символов строки St, начиная с позиции Poz.
Пример
Значение S1 | Значение S2 | Оператор | Результат |
‘ ЕС ’ | ‘ЭВМ1841’ | Insert (S1, S2, 4); | ‘ЭВМ ЕС 1841’ |
‘ N’ | ‘ Рис. 2’ | Insert (S1, S2 , 6); | ‘ Рис. N2’ |
Процедура Insert (S1, S2, Poz) –
вставка строки S1 в строку S2, начиная с позиции Poz.
Пример
Program Primer1;
var b: string;
y: integer;
Begin b:='информатика';
y:=length(b); writeln(y);
End.
1.Задание Определить
длину строки слова ИНФОРМАТИКА
Program Primer2;
var a,b,c: string;
Begin
a:=' …….';
b:=' …….';
с:=a+b;
writeln(c);
End.
Задание С помощью + вывести на экран фамилию , имя
Program Primer4;
var a,b: string;
Begin
a:='информатика';
b:=copy(a,3,5);
writeln(a);
writeln(b);
End.
Использование функции копировать
Program Primer5;
var a: string;
Begin a:='Информатика'; writeln(a);
delete(a,3,7);
writeln(a); End.
Использование функции удалить
Program Primer6;
var a: string;
Begin
a:='Инка';
writeln(a);
insert('формати',a,3);
writeln(a);
End.
Использование функции вставки
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.