Else begin. 2) Upcase (C) – преобразует любой символ в прописной

Begin

write(length('Урок'));
End.

2) Upcase (C) – преобразует любой символ в прописной. Переменная C может иметь значение типа char, либо являться одним элементом из строки. Русские символы обрабатываться этой функцией не могут.

3) Copy (L, A, B) – позволяет копировать фрагмент строки являющейся значением переменной L, начиная с позиции A в количестве B, где A и B – целые числа, причем значение A не превышает длины строки L, а значение B не превышает (длина строки L – A). Если эти правила нарушены, то ошибки компиляции не произойдет, но возможно совершение логической ошибки в программе.

4) Pos (L, M) – возвращает результат целочисленного типа, являющийся номером позиции, с которой строка L входит в строку M. Если строки L нет в строке M, то результат – 0.

5) Insert (L, M, A) – вставляет строку L в строку M, начиная с позиции с номером A. Фактически, вставка производится перед указанной позицией.

6) Delete (L, A, B) – удаляет из строки L B символов, начиная с позиции A.
Если номера позиций в функциях Insert и Delete не соответствуют длине рассматриваемых строк, то произойдет ошибка компиляции.

Задание 11

Сравнение слов в Pascal.

Блок-схема

Текст программы на языке Турбо Паскаль

Program slovo;

Var
word1, word2: string[60];

Begin
readln(word1);
readln(word2);
if word1 > word2 then writeln ('>')

if word1 = word2 then writeln ('=')

else writeln ('<');

End.

Задание 12

Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту), вывести символы полученной цепочки с нечетных мест.

Текст программы на языке Турбо Паскаль

Program simv_cepoch;

uses crt;

var s:string; tmp: char; l,i,j:integer;

begin

clrscr;

writeln('vvedite stroku');

readln(s);

l:=length(s);

for i:=1 to l-1 do {Упорядочивание строки по алфавиту}

for j:=i+1 to l do

if s[i]>s[j] then

begin

tmp:=s[i]; s[i]:=s[j]; s[j]:=tmp;

end;

writeln('stroka po alfavitu:');

writeln(s);

writeln('simvolbl c nechetnblh mest:');

i:=1;

while i<=length(s) do begin {Вывод символов с нечетных мест}

write(s[i]);

i:=i+2;

end;

repeat until keypressed;

end.

Задания для самостоятельного выполнения

Составить и выполнить программу обработки строк. Варианты заданий приведены в табл.6.

Таблица 6.

Вариант	Задание
	Ввести произвольную символьную цепочку. Удвоить ее сим­волы на четных местах, затем вывести полученную символьную цепочку в обратном порядке.
	Ввести произвольную символьную цепочку. Удвоить симво­лы цепочки на нечетных местах.
	Ввести произвольную символьную цепочку. Удвоить ее сим­волы на четных местах. В полученной цепочке подсчитать чис­ло символов, совпадающих с первым.
	Ввести произвольную символьную цепочку. Удвоить ее сим­волы на нечетных местах. В полученной цепочке подсчитать число символов, совпадающих с последним.
	Ввести произвольную символьную цепочку. Удвоить ее сим­волы на четных местах. В полученной цепочке подсчитать чис­ло символов, совпадающих с последним.
	Ввести произвольную символьную цепочку. Удвоить ее сим­волы на нечетных местах. В полученной цепочке подсчитать число символов, совпадающих с последним.
	Удалить из текста все буквы «Ь».
	Проверить, правильно ли в текст входят круглые скобки. Ответ ДА или НЕТ.
	Удалить из текста все буквы «к», идущие сразу за буквой «я».
	Напечатайте текст, удалив из него лишние пробелы, т.е. чтобы пробелы встречались по одному.
	Подсчитать число слов в тексте, начинающихся и заканчивающихся одной и той же буквой.
	Подсчитать число слов в тексте, содержащих букву «d».
	Подсчитать число слов в тексте, содержащих одну букву «а» и две буквы «Ь».

Дата добавления: 2014-12-10