Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Дана целочисленная прямоугольная матрица Turbo Pascal
Дана целочисленная прямоугольная матрица. 1. Определить номер первого из столбцов, содержащих хотя бы один нулевый элемент. 2. Характеристикой строки целочисленной матрицы назовем сумму... uses crt; const max=10; {максимальный размер матрицы} var a:array of integer;{+1 столбец для характеристик} m,n,i,j,k,x:integer; begin clrscr; repeat writeln('Введите размеры матрицы от 2...
Turbo Pascal Определить количество пар одинаковых элементов матрицы Здравствуйте еще раз. Нужна как всегда ваша помощь. Определить количество пар одинаковых элементов матрицы. Спасибо. Посмотрите внизу страницы "Похожие темы" https://www.cyberforum.ru/ turbo-pascal/ thread2232051.html
Turbo Pascal Поменять местами элементы матрицы Необходимо в квадратной матрице поменять местами элементы,лежащие выше главной и выше побочной диагоналей,на элементы лежащие ниже этих диагоналей.Сами диагонали же оставить без изменений uses crt; var a:array of integer; n,i,j,k,x:integer; begin clrscr; repeat write('Введите размер матрицы от 2 до 10 n='); readln(n); until n in ; randomize; https://www.cyberforum.ru/ turbo-pascal/ thread2232392.html Turbo Pascal Блок-схема
Ребзя,помогите составить блок-схему к программе,пожалуйста... const n=10; type mas = array of integer; procedure init(var ar: mas; n: integer); var i,j: integer; begin
Turbo Pascal Удалить из текста все четные предложения 1)Удалить из текста все четные предложения. uses crt; var f1:text; str:string; i,n:integer; symbol:char; begin clrscr; assign(f1, 'text.txt'); reset(f1); https://www.cyberforum.ru/ turbo-pascal/ thread2231071.html Дана целочисленная прямоугольная матрица Turbo Pascal
Помогите пожалуйста, я чайник Изучаем правила: 5.18 Запрещено размещать задания и решения в виде картинок и других файлов с их текстом. Переписывайте задание вручную.
Turbo Pascal Построить график функции Написать программу для построения графика функции y=7x^4-14. uses graph; const xn=-2; {интервал и шаг по Х} xk=2; function f(x:real):real;{функция} begin f:=7*x*x*x*x-14; end; var x0,y0,i:integer; mx,my,x:real;{масштабы по осям} s:string; https://www.cyberforum.ru/ turbo-pascal/ thread2232340.html Turbo Pascal Определить среднюю концентрацию вещества в трех реакторах
Помогите,пожалуйста.... Написать программу решения следующей задачи: Концентрация вещества в реакторе растѐт по закону С=(k1*с0)*(1-ехр(-(k1+k2)*t))/(k1+k2). Определить среднюю концентрацию вещества... uses crt; function C(c0,t,k1,k2:real):real; begin C:=k1*c0*(1-exp(-(k1+k2)*t))/(k1+k2); end; var c0,t,k1,k2,z,s:real; i:byte; begin clrscr; s:=0;
Turbo Pascal Графический режим
Всем привет! Как написать меню программы в графическом режиме, чтобы были реализованы переходы по кнопкам меню. Наберите в Поиске Меню в графическом режиме, там будет много тем, в том числе и с моими решениями.
Turbo Pascal Дана целочисленная прямоугольная матрица Дана целочисленная прямоугольная матрица. 1. Определить номер первого из столбцов, содержащих хотя бы один нулевый элемент. 2. Характеристикой строки целочисленной матрицы назовем сумму... https://www.cyberforum.ru/turbo-pascal/thread704214.html https://www.cyberforum.ru/pascal/thread985013.html https://www.cyberforum.ru/ turbo-pascal/ thread2231293.html
Turbo Pascal Составить программу, которая содержит текущую информацию о расписании автобусов Составить программу , которая содержит текущую информацию о расписании автобусов. Сведение о каждом маршруте содержат: - пункт назначения; - время отправления - время прибытия; - стоимость... https://www.cyberforum.ru/pascalabc/thread754203.html https://www.cyberforum.ru/pascalabc/thread1010706.html https://www.cyberforum.ru/ turbo-pascal/ thread2231078.html Turbo Pascal Реализовать функцию сравнения пары файлов 2)Реализовать функцию сравнения пары файлов – аналог функции cmp MS DOS – с использованием механизма «бестиповых файлов». https://www.cyberforum.ru/ turbo-pascal/ thread2231072.html
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
21.04.2018, 08:05 0

Удалить из строки слова, которые начинаются на букву "r" и имеют нечётную длину - Turbo Pascal - Ответ 12326031

21.04.2018, 08:05. Показов 983. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var str:string;
    i,j,k:integer;
begin
clrscr;
writeln('Введите строку, содержащую слова начинающиеся на букву r');
readln(str);
str:=' '+str+' ';{добавим пробел в начало и в конец для удобства}
i:=2; {начнем со 2 символа}
while i<=length(str) do {пока не конец}
if (str[i]='r') and(str[i-1]=' ') then{если r, а перед ней пробел}
 begin
  j:=i;
  k:=0;
  while(j<=length(str))and (str[j]<>' ')do {пока не конец строки и не пробел}
   begin
    k:=k+1;{считаем}
    j:=j+1;{идем вперед}
   end;
  if odd(k) then delete(str,i,k){если длина нечетная, удаляем слово}
  else i:=i+k; {иначе перешагиваем}
 end
else i:=i+1;{иначе на 1 вперед}
delete(str,1,1);{удалим первый пробел}
writeln(str);
readln
end.


Вернуться к обсуждению:
Удалить из строки слова, которые начинаются на букву "r" и имеют нечётную длину Turbo Pascal
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.04.2018, 08:05
Готовые ответы и решения:

Извлечь те строки, которые имеют нечетную длину и начинаются с заглавной латинской буквы
Дано целое число K (&gt; 0) и строковая последовательность A. Из элементов A, предшествующих элементу с порядковым номером K, извлечь те...

Извлечь строки, которые имеют нечетную длину и начинаются с заглавной латинской буквы, изменив порядок на обратный
LinqBegin24. Дано целое число K (&gt; 0) и строковая последовательность A. Из элементов A, предшествующих элементу с порядковым номером K,...

Вывести слова из строки, которые имеют длину больше 5 и начинаются с буквы 'А' или 'а'
Привет! Помогите решить задачу со строками по программированию!! 1.ВВЕСТИ строку. На печать выдать слова, которые имеют длину больше 5 и...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.04.2018, 08:05
Помогаю со студенческими работами здесь

Найти слова которые имеют нечетную длину
Здравствуйте, товарищи программисты!!!Вот две задачки, которые нужно написать: Дана строка символов. Найти слова которые имеют...

Удалить из строки слова, которые начинаются и заканчиваются на одинаковую букву
Удалить с строки слова, которые начинаются и заканчиваются на одинаковую букву.

Удалить из строки все слова, которые начинаются на заглавную букву
слова в строке могут разделяться пробелами и знаками препинания,в конце &quot;.&quot; необходимо удалить из строки все слова,которые начинаются на...

Удалить из строки русские слова, которые начинаются на гласную букву
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. Удалите...

Подсчитать количество слов строки, которые имеют нечетную длину
С клавиатуры вводится текстовая строка. Написать программу, которая: - подсчитывает количество слов, которые имеют нечетную длину;

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru