Проверь себя!
Массив – это упорядоченная последовательность, состоящая из фиксированного количества величин одного типа.
write ( А[6] )
wile ____________ do
var A : array[ 1 .. 5 ] of integer
For i:= ___ to ____do
Строковая переменная
var <идентификатор>: string [<максимальная длина строки >]
var name: string[20]
var slovo: string - максимальное величина длины строки
Строковая переменная занимает в памяти на 1 байт больше, чем указанная в описании длина. (Нулевой байт содержит значение текущей длины строки).
Каждый отдельный символ обозначается именем строки с индексом
name [2] ; name [9]; name [i]
Стандартные процедуры и функции.
Функция Copy (S, Poz, N)
Выделяет из строки S подстроку длиной N символов, начиная с позиции Poz.
N и Poz - целочисленные выражения
Значение S | Выражение | Результат |
` КРЕМВДУК ` | Copy (S,4,3) | |
` КРЕМВДУК ` | Copy (S,1,4) + `ЛЬ ` |
Значение S | Выражение | Результат |
` КРЕМВДУК ` | Copy (S,4,3) | ` МВД ` |
` КРЕМВДУК ` | Copy (S,1,4) + `ЛЬ ` |
Значение S | Выражение | Результат |
` КРЕМВДУК ` | Copy (S,4,3) | ` МВД ` |
` КРЕМВДУК ` | Copy (S,1,4) + `ЛЬ ` | `КРЕМЛЬ` |
Стандартные процедуры и функции.
Функция Length (S)
Определяет текущую длину строки S.
Результат – значение целого типа.
Значение S | Выражение | Результат |
` ПОЛИЦИЯ ` | Length (S) | |
` СЛУЖБА ` | Length (S) |
Значение S | Выражение | Результат |
` ПОЛИЦИЯ ` | Length (S) | 7 |
` СЛУЖБА ` | Length (S) |
Значение S | Выражение | Результат |
` ПОЛИЦИЯ ` | Length (S) | 7 |
` СЛУЖБА ` | Length (S) | 6 |
Стандартные процедуры и функции.
Процедура Delete (S, Poz, N)
Удаляет N символов из строки S, начиная с позиции Poz.
Исходное значение S | Оператор | Конечное значение S |
` УПРНЕРА ` | Delete (S,2,4) | |
` МИГАКУВР ` | Delete (S,3,5) |
Исходное значение S | Оператор | Конечное значение S |
` УПРНЕРА ` | Delete (S,2,4) | `УРА ` |
` МИГАКУВР ` | Delete (S,3,5) |
Исходное значение S | Оператор | Конечное значение S |
` УПРНЕРА ` | Delete (S,2,4) | `УРА ` |
` МИГАКУВР ` | Delete (S,3,5) | `МИР` |
Стандартные процедуры и функции.
Процедура Insert (S1, S2, Poz)
Вставляет строку S1 в строку S2, начиная с позиции Poz
Исходное значение S2 | Оператор | Конечное значение S |
`Рис. 2 ` | Insert (N, S2, 6) |
Исходное значение S2 | Оператор | Конечное значение S |
`Рис. 2 ` | Insert (N, S2, 6) | `Рис. N 2 ` |
Составить программу, которая запрашивает слово и определяет количество символов в нем.
Program zadaha;
var a: string;
S: integer;
begin
write ( `введите слово`);
readln (а);
S:= Length (а);
writeln (`в слове`, a ,` `S, `символов`)
end.
Пример 1. Сформировать строку из n звездочек, (n - целое число , 1 ≤ n ≥ 255).
Program Stars;
var a: string;
n, i: integer;
begin
write (`введите число звездочек`);
readln (n);
a:=` `;
for i:=1 to n do
a:=a+` * `;
writeln (a)
end.
Пример 3: Известно, что фамилия подозреваемого в совершении преступления начинается на букву «С». Необходимо определить количество подозреваемых, если в списке всего 32 фамилии.
program z3;
var s: string[25]; i,k:integer;
begin;
k:=0;
for i:=1 to 32 do
begin
writeln ('Введите слово');
readln(s);
if s[1]=‘C' then k:=k+1;
end;
writeln(k);
end.
© ООО «Знанио»
С вами с 2009 года.