magazin-71
?>

Написать программу в паскале: дана строка текста. слова в тексте друг от друга отделяются одним пробелом. удалить из строки все слова, начинающиеся и заканчивающиеся на "о".

Информатика

Ответы

tnkul
Var   ptr: integer; function getword(s: string): string; // возвращает очередное слово из строки s или пустое значение, // если в строке больше нет слов. // перед вызовом позиция начала слова указывается переменной ptr. // перед выходом ptr устаналивается на границу следующего слова // ptr=0 означает, что вся строка просмотрена. var   n, p: integer; begin   n : = length(s);   if (ptr > = n) or (ptr=0) then begin       ptr : = 0;       result : = ''   end   else begin       p : = posex(' ', s, ptr);       if p > 0 then begin           result : = copy(s, ptr, p - ptr);           ptr : = p + 1       end       else begin           result : = copy(s, ptr, n - ptr + 1);           ptr : = 0       end   end end; var   s1, s2, s: string;   n: integer; begin   writeln('вводите строку');   readln(s1);   ptr : = 1;   s2 : = '';   repeat       s : = getword(s1);       n : = length(s);       if n > 0 then           if (s[1] < > 'о') or (s[n] < > 'о') then               s2 : = s2 + s + ' '   until n = 0;   n : = length(s2);   if s2[n] = ' ' then       s2 : = copy(s2, 1, n - 1);   writeln('результирующая строка: ', s2) end. тестовый прогон: вводите строку в это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину. результирующая строка: в это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.
Liliya1106
Пусть скорость лодки в стоячей воде равна v км/ч, тогда её скорость по течению (v + 1) км/ч, против течения (v - 1) км/ч. время, за которое она преодолеет 255 км: по течению 255/(v + 1) часов, против течения 255/(v - 1) часов. по условию времена отличаются на 2 часа, составляем уравнение: 255/(v - 1) - 255/(v + 1) = 2 всё это составляет модель. решаем уравнение: 255/(v - 1) - 255/(v + 1) = 2 - домножаем на (v - 1)(v + 1) = v^2 -1 255(v + 1) - 255(v - 1) = 2(v^2 - 1) 255v + 255 - 255v + 255 = 2(v^2 - 1) 2 * 255 = 2(v^2 - 1) v^2 - 1 = 255 v^2 = 256 v = +- 16 отрицательный корень не удовлетворяет условию. ответ. 16 км/ч.
Dmitriy793

  каталог- поименованная совокупность байтов на носителе информации, содержащая название подкаталогов и файлов.байт-еденица хранения и обработки цифровой информации ,равная 8 битам.интернет-всемирная система объединённых компьютерных сетей.архив-файл,содержащий в себе информацию из одного или нескольких,иногда сжатых файлов.счеты-простое механическое устройство для произведения арифметических расчётов.информация-любые данные или сведения,которые кого-либо интересуют.абак-счётная доска,применявшееся для арифметических расчетов.система счисления-символический метод записи чисел,представление чисел в виде письменных знаков.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу в паскале: дана строка текста. слова в тексте друг от друга отделяются одним пробелом. удалить из строки все слова, начинающиеся и заканчивающиеся на "о".
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Илья_Ветклиники1655
Два в какой степени будет число 16777216
oksana-popova
aluka
mansur071199486
eugene869154
Lyubov214
mac4roc3781
Elen-ti81459
Волков1968
Лилит_Шутова
annashersheva
yakushkinayuliya
lor005148
bezzfamilny631
agrilandrussia