Рабочие листы
к вашим урокам
Скачать
1 слайд
Обработка символьной информации
(задачи, часть 1)
(TurboPascal)
2 слайд
Составить программу, выводящую на экран длину данного слова.
Program pr1;
Uses crt;
var
s : string[50]; n : integer;
begin
clrscr;
write (‘введите слово’);
readln (s);
n := Length(s);
writeLn (‘длина слова -’, n);
end.
Тест:
Ввод:
S:=‘урок’
Вывод:
N=4
LENGTH (S) — функция типа INTEGER; вычисляет длину строки S.
3 слайд
var
s1, s2, s3, s4 : string;
begin
s1 := 'программист';
s2 := copy(s1,2,3);
s3 := copy(s1,1,8)+ copy(s1,6,1);
s4 := copy(s1,4,1)+ copy(s1,3,1) + copy(s1,5,2);
WriteLn(s2, s3, s4);
end.
2. Из слова «программист» получить слова «рог», «программа», «гора».
COPY(s, n, х) — функция типа string; копирует из строки s х символов, начиная с символа с номером n.
4 слайд
var
s1, s2, s3, s4 : string;
begin
s1 := ‘культура';
s2 := copy(s1,1,5);
s3 := copy(s1,5,3);
s4 := copy(s1,7,2)+ copy(s1,1,1);
WriteLn(s2, s3, s4);
end.
3. Из слова «культура» получить слова «культ», «тур», «рак».
5 слайд
var
s1, s2, s3, s4 : string; n: integer;
Begin
s1 := ‘энциклопедия';
n := Length(s1);
WriteLn (‘Длина слова’, n)
s2 := copy(s1,3,4);
s3 := copy(s1,5,4);
s4 := copy(s1,5,1)+ copy(s1,4,1)+ copy(s1,2,1)+ copy(s1,7,1);
WriteLn(s2, s3, s4);
end.
4. Найти длину слова «энциклопедия» и получить из него слова «цикл», «клоп», «кино».
6 слайд
var
s1, s2, s3: string; n: integer;
Begin
Write (‘введите первое слово’);
readln (s1);
Write (‘введите второе слово’);
readln (s2);
s3 := concat(s1, s2);
n := Length(s3);
WriteLn (‘длина слова’ , s3,’ = ’ , n);
WriteLn( s3);
end.
5. Склеить два слова, введенных с клавиатуры, найти длину полученного слова (использовать функцию concat).
Тест:
Ввод:
S1:=‘ком’
S2:= ‘пот’
Вывод:
S3= ‘компот’
N=6
7 слайд
var
s1: string; k: integer;
Begin
Write (‘введите предложение’);
readln (s);
k:=pos(‘,‘, s);
WriteLn (‘k = ’ , k);
end.
6. Найти первую запятую в данном предложении.
Тест:
Ввод:
S:=‘Да, да, да.’
Вывод:
K = 3
POS(S1, S) — функция типа INTEGER; отыскивает в строке S первое вхождение подстроки S1 и выдает номер позиции, с которой она начинается; если подстрока не найдена, возвращается ноль.
8 слайд
var
s : string;
begin
s := ‘культура';
delete(s, 6, 3);
WriteLn(s);
end.
7. Из слова «культура» получить слово «культ» (использовать процедуру DELETE ).
DELETE (S, N, C) — процедура; удаляет C символов из строки S, начиная с символа с номером N.
9 слайд
var
s1, s2 : string;
begin
s1 := 'кок';
s2 := ‘телок';
insert(s2, s1, 3);
WriteLn(s1);
end.
INSERT (S, ST, N) — процедура; вставляет подстроку S в строку ST, начиная с символа с номером N.
8. Из слова «кок» получить слово «котелок» (использовать процедуру INSERT ).
Рабочие листы
к вашим урокам
Скачать
6 654 981 материал в базе
Настоящий материал опубликован пользователем Зиберова Инна Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
300 ч. — 1200 ч.
Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.