![]()
|
|||||||
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.
|
|||||||
|