if(s[i]='(') or(s[i]=')') then

⇐ ПредыдущаяСтр 2 из 2

var

fio, s, f: string; p, i: integer;

begin

writeln('Введите ФИО');

readln(fio);

i: =0;

whilefio [i+1]=' ' doi: =i+1;

delete(fio, 1, i);

p: =pos(' ', fio);

s: =copy(fio, 1, p+1)+'. ';

delete(fio, 1, p);

p: =pos(' ', fio);

s: =s+fio[p+1]+'. ';

writeln(s);

end.

Рисунок 2 – блок-схема 2

Пример 3. Подсчитать количество скобок в строке [1].

Решение: вводим с клавиатуры текст. N – переменная, хранящая количество скобок в тексте. Присваиваем переменной n начальное значение равное нулю. Задаем счетчик с циклом от одного символа до конца строки. Проверяем текущий элемент строки на равенство открывающей или закрывающей скобке. Если условие выполняется, то увеличиваем счетчик количества скобок на единицу. Завершаем цикл и выводим на экран количество скобок в тексте.

Блок-схема алгоритма (рис. 3):

Рисунок 3 – блок-схема 3

Запишем программу на языке Паскаль:

vars: string; n, i: integer;

begin

writeln('Введите текст: ');

readln(s);

n: =0;

fori: =1 tolength(s) do

if(s[i]='(') or(s[i]=')') then

n: =n+1;

writeln('Количество скобок в тексте: ', n);

end.

⇐ Предыдущая 12