89 . как организовать посимвольный ввод строки с клавиатуры? то есть пользователь вводит любое предложение (мы не знаем, сколько символов он введет), программа считывает данные и кидает их в строку до тех пор, пока не будет введен, допусти, пробел.
Pascal надеюсь устроит. Посимвольное считывание до заданного ограничителя. (здесь то ' ') Первоначально значение переменной c не должно являться символом, обозначающим концовку.
var c : char; s : string;
begin c := 'a'; s := ''; while c <> ' ' do begin read(c); s := s + c; end;
1шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОМ+МОК = КОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой М в русском алфавите следует буква Н) КОММОК+Н = КОММОКН 2 шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОММОКН+НКОММОК = КОММОКННКОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой Н в русском алфавите следует буква О) КОММОКННКОММОК+О = КОММОКННКОММОКО ответ: количество букв О в полученной последовательности = 5
Вот тебе дано "ГО" , к нему приписываешь обратный порядок букв ГО,значит "ОГ". Уже получается ГООГ. После этого приписываешь ко всему этому букву,стоящую после О в алфавите( т.к буква "О" последняя буква "ГО"). После О в алфавите идет П,поэтому получается в итоге ГО+ОГ+П= ГООГП. Теперь, нужно повторить этот алгоритм второй раз,только уже с набором букв, который получился после первого раза выполнения алгоритма,т.е с ГООГП. Начнем. ГООГП записываем наоборот => ПГООГ. Получаем ГООГП + ПГООГ + Р = ГООГППГООГР Готовый ответ: ГООГППГООГР
Посимвольное считывание до заданного ограничителя. (здесь
то ' ') Первоначально значение переменной c не должно являться символом, обозначающим концовку.
var
c : char;
s : string;
begin
c := 'a';
s := '';
while c <> ' ' do
begin
read(c);
s := s + c;
end;
end.