Практика решения задач по теме «Строки» Цель урока: закрепить навыки работы со строками в языка Pascal

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin //Ввести строку S из двух слов //Выделить первое слово S1 //Удалить первое слово и пробел //Поставить пробел и первое слово в конец //Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов //Выделить первое слово S1 //Удалить первое слово и пробел //Поставить пробел и первое слово в конец //Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 //Удалить первое слово и пробел //Поставить пробел и первое слово в конец //Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 delete(s,1,pos(' ',s));//Удалить первое слово и пробел //Поставить пробел и первое слово в конец //Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 delete(s,1,pos(' ',s));//Удалить первое слово и пробел s:=s+' '+s1;//Поставить пробел и первое слово в конец //Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 delete(s,1,pos(' ',s));//Удалить первое слово и пробел s:=s+' '+s1;//Поставить пробел и первое слово в конец Writeln(s);//Вывести результат End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 delete(s,1,pos(' ',s));//Удалить первое слово и пробел s:=s+' '+s1;//Поставить пробел и первое слово в конец Writeln(s);//Вывести результат Readln; End;

Пример С клавиатуры вводится строка, содержащая два слова, разделенные пробелом. Напишем программу, которая меняет слова местами и результат выводит на экран. Var s,s1:string; Begin Readln(s); //Ввести строку S из двух слов s1:= copy(s,1,pos(' ',s)-1);//Выделить первое слово S1 delete(s,1,pos(' ',s));//Удалить первое слово и пробел s:=s+' '+s1;//Поставить пробел и первое слово в конец Writeln(s);//Вывести результат Readln; End;

Задание 1. С клавиатуры вводится строка, содержащая три слова, разделенные пробелом. Напишите программу, которая меняет местами второе и третье слово. Задание 2. С клавиатуры вводится строка. Заменить в ней все пробелы на восклицательные знаки. Задание 3 С клавиатуры вводится строка. Подсчитать сколько раз в ней встречается точка.