Алгоритмы со строковыми величинами. Решение задач

Слайд 2

Задача 8а

Дана строка, которая вводится с клавиатуры и состоит из двух слов,

Задача 8а Дана строка, которая вводится с клавиатуры и состоит из двух
разделённых пробелом
Вывести на экран каждое слово с новой строки

Задача 6а

Program z6a;
Var a,a1,a2:string;
p,L : integer; {L – длина величины, p – позиция пробела}
Begin
{ввод исходных данных}
writeln ('введите строку, состоящую из двух слов, разделённых пробелом');
readln(a);
{вычисления}
L:=length(a); p:=pos(' ',a);
a1:=Copy(a,1,p-1); a2:= Copy(a,p+1,L-p);
{вывод результатов}
writeln (a1); writeln (a2);
End.

Записать!

Слайд 3

Задача 8б

Дана строка, которая вводится с клавиатуры и состоит из двух слов,

Задача 8б Дана строка, которая вводится с клавиатуры и состоит из двух
разделённых пробелом
Переставить местами слова строки

Program z6a;
Var a,a1,a2:string;
p,L : integer; {L – длина величины, p – позиция пробела}
Begin
{ввод исходных данных}
writeln ('введите строку, состоящую из двух слов, разделённых пробелом');
readln(a);
{вычисления}
L:=length(a); p:=pos(' ',a);
a1:=Copy(a,1,p-1); a2:= Copy(a,p+1,L-p);
{вывод результатов}
writeln (a1); writeln (a2);
End.

Что изменится в данном решении?

S:=a2+’ ‘ +a1;

Задача 6б

writeln (S);

S:string

Слайд 4

Задача 9а

Дана строка, которая вводится с клавиатуры и состоит из двух слов,

Задача 9а Дана строка, которая вводится с клавиатуры и состоит из двух
разделённых запятой и пробелом
Удалить запятую из данной строки

Задача 7а

Program z7a;
Var a:string;
p : integer;
Begin
{ввод исходных данных}
writeln ('введите строку, состоящую из двух слов, разделённых запятой и пробелом');
readln(a);
{вычисления}
p:=pos(',',a);
delete(a,p,1);
{вывод результатов}
writeln (a);
End.

Записать!

Слайд 5

Задача 9б

Дана строка, которая вводится с клавиатуры и состоит из двух слов,

Задача 9б Дана строка, которая вводится с клавиатуры и состоит из двух
разделённых пробелом
Вставить запятую после первого слова

Program z7b;
Var a:string;
p : integer;
Begin
{ввод исходных данных}
writeln ('введите строку, состоящую из двух слов, разделённых пробелом');
readln(a);
{вычисления}
p:=pos(',',a);
delete(a,p,1);
{вывод результатов}
writeln (a);
End.

Что изменится в данном решении?

p:=pos(' ',a);
insert(',‘,a, p);

Задача 7б

Слайд 6

Домашнее задание

§ 5, примеры 3, 5
Приложение 4 (стр. 145-146)
Упражнения 2, 3а
Урок 6,

Домашнее задание § 5, примеры 3, 5 Приложение 4 (стр. 145-146) Упражнения
задания 8б, 9б в тонкой тетради