Обработка символьной информации (задачи, часть 1)

Содержание

1. Обработка символьной информации (задачи, часть 1)
2. Составить программу, выводящую на экран длину данного
3. var s1, s2, s3, s4 : string;begin
4. var s1, s2, s3, s4 : string;begin
5. var s1, s2, s3, s4 : string;
6. var s1, s2, s3: string; n: integer;Begin
7. var s1: string; k: integer;Begin Write
8. var s : string;begin s := ‘культура';
9. var s1, s2 : string;begin s1 :=
10. Скачать презентанцию

Составить программу, выводящую на экран длину данного слова.Program pr1; Uses crt; var s : string[50]; n : integer; begin clrscr;

Главная
Разное
Обработка символьной информации (задачи, часть 1)

Слайды и текст этой презентации

Слайд 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.

Составить программу, выводящую на экран длину данного слова.Program pr1; Uses crt; var

Слайд 3var
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.

var s1, s2, s3, s4 : string;begin s1 := 'программист'; s2 := copy(s1,2,3); s3 := copy(s1,1,8)+ copy(s1,6,1);

Слайд 4var
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. Из слова «культура» получить слова «культ», «тур», «рак».

var s1, s2, s3, s4 : string;begin s1 := ‘культура'; s2 := copy(s1,1,5); s3 := copy(s1,5,3); s4

Слайд 5var
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. Найти длину слова «энциклопедия» и получить из него слова «цикл», «клоп», «кино».

var s1, s2, s3, s4 : string; n: integer;Begin s1 := ‘энциклопедия'; n := Length(s1);

Слайд 6var
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

var s1, s2, s3: string; n: integer;Begin Write (‘введите первое слово’); readln (s1); Write

Слайд 7var
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 и выдает номер позиции, с которой она начинается; если подстрока не найдена, возвращается ноль.