Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Дан файл. Переписать в новый файл все компоненты, расположенные после максимальной https://www.cyberforum.ru/ free-pascal/ thread580097.html
Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после максимальной компоненты.
Free Pascal Моделирование движений
РГЗ. В качестве задания изучить методы моделирования движений: 1ый метод, умножение на матрицу параллельного переноса(корабль), 2ой самый примитивный(самолет), нарисовать стереть и тд, а с третьим -...
Free Pascal Вычислить и вывести на экран в виде таблицы значения функции Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от x нач до x кон с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой.... https://www.cyberforum.ru/ free-pascal/ thread580094.html Free Pascal Метод Зейделя: Ошибка времени выполнения, в экземпляре объекта не задана ссылка на объект Программа должна реализовывать метод Зейделя. Но при вводе массива выдает ошибку времени выполнения. Подскажите пожалуйста, что не правильно? const Eps=0.001; Type TMatrix = array of array of... https://www.cyberforum.ru/ free-pascal/ thread580028.html
Удалить первую букву в слове Free Pascal
В заданной строке текста выведите самое короткое слово. a. Вводится слово. b. Удалить первую букву.
Free Pascal Дано предложение. Напечатать все его слова, отличные от слова «сон» Дано предложение. Напечатать все его слова, отличные от слова «сон». https://www.cyberforum.ru/ free-pascal/ thread579918.html
Free Pascal Определить, на каком месте в строке находится символ, введенный с клавиатуры https://www.cyberforum.ru/ free-pascal/ thread579915.html
Вводится произвольная строка символов. Определить, на каком месте находится символ, введенный с клавиатуры, если он в ней имеется.
Free Pascal Дано предложение. Все пробелы в нем заменить на нижнее подчеркивание
Дано предложение. Все пробелы в нем заменить на символ «_».
Free Pascal Определить количество символов данной строки https://www.cyberforum.ru/ free-pascal/ thread579913.html
Вводится произвольная строка символов. Определить a. количество символов данной строки; b. содержится или нет в данной строке слово «мир»; c. является ли строка перевертышем;
Free Pascal Определить товар с максимальной стоимостью https://www.cyberforum.ru/ free-pascal/ thread579909.html
Известны данные о стоимости каждого из 10 видов товаров. Определить товар с максимальной стоимостью. Вывести список, в котором наименования товаров расположены в порядке возрастания их стоимости.
Определить среднюю стоимость книг, тираж которых меньше 100 экземпляров Free Pascal
1) Известны данные о 5 книгах: название, тираж, цена. Определить среднюю стоимость книг, тираж которых меньше 100 экземпляров. Данные вводятся с клавиатуры.
Free Pascal Сформировать матрицу при помощи датчика случайных чисел и вывести ее на экран https://www.cyberforum.ru/ free-pascal/ thread579897.html
Сформировать матрицу А (5 x 7) при помощи датчика случайных чисел и вывести ее на экран. a. Найти сумму элементов второго столбца. b. Найти максимальный элемент главной диагонали. ...
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
20.05.2012, 12:16 0

Функции и процедуры. При помощи процедуры записать слова задом наперед - Free Pascal - Ответ 3055669

20.05.2012, 12:16. Показов 1851. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено SAM как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure p(st: string);
var s: string;
   i: integer;
begin
   st:=st+' ';
   repeat
      for i:=pos(' ',st)-1 downto 1 do
         s:=s+st[i];
      delete(st,1,pos(' ',st));
      s:=s+' ';
   until st='';
   writeln(s);
end;
var st: string;
begin
   readln(st);
   p(st);;
end.


Вернуться к обсуждению:
Функции и процедуры. При помощи процедуры записать слова задом наперед Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2012, 12:16
Готовые ответы и решения:

Все слова, расположенные на четных местах, записать задом наперед
Прошу помощи... Дано предложение. Все слова, расположенные на четных местах, записать задом...

При помощи процедуры или функции найти максимальную и минимальную цифру числа
При помощи процедуры или функции найти максимальную и минимальную цифру числа

Записать число, не заканчивающееся нулем, задом наперед
с клавиатуры ввести длинные или очень длинные натуральное число. если число не заканчивается 0, то...

Расшифровка слова записанные задом наперед
В записке слава зашифрованы-каждые из них написаны наоборот. Расшифровать сообщение. Использовать...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2012, 12:16

Переписать слова в строке задом наперед
Привет. Есть строка, и нужно все слова в ней написать задом наперед. Порядок слов чтобы сохранился....

Задом наперед записать только цифры, а буквы не учитывать
Ребятаааа, помогите, у меня есть программа: #include <stdio.h> #include <conio.h> using...

Найти самое большое слово и записать его задом наперёд
найти самое большое слово и записать его задом на перёд например "Привет мир" а потом "тевирп" я...

Переписать заданные пользователем слова, стоящие на нечетных местах, задом наперёд
Вообщем, есть программа, которая переписывает слова, стоящие на нечетных местах задом наперед....

Напечатать слова задом наперед и сохранить результат в буфер обмена Windows
Здравствуйте всем! Не могу скомпилировать программу! Ошибки! Программа должна переворачивать слова...

где моя ошибка? слова на чет-х местах переписать задом наперед
Вот мой код, но где ошибка? Основная идея была - пробег по строке, если нашли слово, то дальше цикл...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru