Головна » Статті » Мої статті
Типові алгоритми опрацювання рядкових величин.
Питання 1. Що ми називаємо строковыми даними? р (Відповідь: это последовательность любых символов не превышающих 255 символов.) Вопрос 2.(Відповідь: це послідовність будь-яких символів не перевищуючих 255 символів.) 
Питання 2. Що виконує функція Length(x)? (Відповідь: повертає довжину рядка).
Питання 3. Чи можна порівнювати рядки між собою? У чому суть порівняння, наприклад, рядки 'Слон' і рядки 'Соска'?
(Відповідь: дорівнюються числові коди символів один по одному їхнього запису в рядку, причому, чим далі буква від початку алфавіту, тим більше її числовий код. Тому, у прикладі результат порівняння буде 'Слон'<'Соска'). 
Питання 4. Що виконує функція Сорy(х, n, k)?
(Відповідь: повертає подстроку з n символів, починаючи з номера k, із даного рядка х). 
Питання 5. Що утвориться в результаті виконання присвоюванні в перемінної Y? Х:='автомобиль';
Y:=Copy(X, 3, 3);
(Відповідь: y='tom')
Питання 6. За допомогою якої функції можна дізнатися, чи є в заданому рядку дана подстрока ?
(Відповідь: Pos(x, у), якщо Pos(x,y)=0, то в даному рядку потрібної подстроки немає). 
Питання 7. Як називається операція, позначена символом "+"для строковых даних? (Відповідь: склейка.
Питання 8. Що виконує процедура Delete(X, n, k)? (Відповідь: видаляє з рядка Х k символів, починаючи з номера n.) 
Питання 9. Що виконує процедура Insert(X, Y, n)? (Відповідь: вставляє в рядок Y подстроку Х, починаючи з номера n).

Задача-приклад.
Скільки разів у заданому тексті зустрічається слово «он»?
Наприклад, у рядку 
«корона» - 1 раз, 
«молоко» - 0 раз.

Текст програми.


Рrogram XX1;
uses crt;
var t, x: string;
I, k, n: integer;
begin cirscr;
write('Введитm вхідний текст');
readln(t);
k:=0; n:=length(t);
for I:=1 to n-1 do 
begin 
x:=Copy(t,I,2);
if x='OH' then k:=k+l;
end;
writeln;
writeln('Kількість слів «он» дорівнює: ');
writeln(k);
readln;
end.


Задача - приклад.
Замінити в тексті всі букви «а» на сполучення букв «уя». Наприклад, у рядку «трамвай» - «труямвуяй»
[На дошці послідовно записується модель і алгоритм рішення задачі, учні працюють у зошитах.]
Вхідні дані: t - заданий текст (тип string) 
Результат: tl - результуючий текст (тип string) 

 Текст програми

program XX2;
uses crt;
vart, tl, x: string;
I, n: integer;
begin 
write('Введите вхідний текст');
readln(t);
k:=0;
n;=length(t); t1:=’ ‘;
for I:=1 to n do 
begin
x:=Copy(t,I,l);
if x='a' then tl:=tl+’уя’ elset l:=tl+x;
end;
writeln;
writeln ('Новый текст: ');
writeln(tl);
readln;
end.

Категорія: Мої статті | Додав: Osik (02.03.2014)
Переглядів: 590 | Коментарі: 1 | Рейтинг: 5.0/1
Всього коментарів: 0
Ім`я *:
Email *:
Код *: