Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Программа нахождения среднего роста школьников и рост самого высокого школьника составте программу нахождения среднего роста школьников и рост самого высокого школьника, если заранее неизвестно сколько всего школьников придут на медосмотр https://www.cyberforum.ru/ turbo-pascal/ thread1748616.html Turbo Pascal Вычислите значение определенного интеграла
Для заданных границ интегрирования a и b вычислите значение определенного интеграла следующего вида (с помощью рекурсивной подпрограммы): \int \frac{dx}{(a^2+x^2)^n}=\begin{cases}\frac{1}{2(n-1)a^2} & \text{, }n>1 \\\frac{1}{a}arctg\frac{x}{a}&\text{, }n=1 \end{cases}
Turbo Pascal Программа для вычисления всех натуральных делителей числа K составить программу для вычисления, определяющую А)все натуральные делители числа K Б)наибольший натуральный делитель числа К,отличный от К В)количество всех натуральных делителей числа К Г)все натуральные делители числа К, являющимися простыми числами https://www.cyberforum.ru/ turbo-pascal/ thread1748610.html Turbo Pascal Найдите сумму первых членов последовательности https://www.cyberforum.ru/ turbo-pascal/ thread1748599.html
найдите сумму в первых членов последовательности:5,55,555,5555
Найдите сумму квадратов целых чисел от 10 до 20 Turbo Pascal
Найдите сумму: а)квадратов целых чисел от 10 до 20,б)чисел, обратных квадратам первых 100 натуральных.
Turbo Pascal Определить, через сколько лет мать будет старше дочери втрое Возраст матери и дочери вводится с клавиатуры.определить через сколько лет мать будет старше дочери втрое.помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread1748572.html
Turbo Pascal Выполнить преобразование записи в число, присвоить его значение переменной и выведите результат https://www.cyberforum.ru/ turbo-pascal/ thread1748501.html
Пусть входной поток литер содержит по крайней мере одну цифру. Считая первую из них началом записи числа (целого или вещественного с фиксированной точкой), выполнить преобразование этой записи в число, присвоить его значение переменной и выведите результат. Требования к выполнению задания – Проект должен быть многофайловым (т.е. использовать подключение модулей, содержащих процедуры и...
Найти координаты точек и диагональ прямоугольника Turbo Pascal
нуждаюсь в помощи по задаче: Вершины прямоугольника. На плоскости заданы координаты двух противоположных вершин прямоугольника. Необходимо найти координаты двух остальных его вершин. Вывести на экран и записать в файл "output.txt" координаты всех вершин прямоугольника и значения диагонали.
Turbo Pascal Вычислить гиперболический косинус по формуле https://www.cyberforum.ru/ turbo-pascal/ thread1748167.html
найти значение функции y= {𝑐ℎ(х) − 𝑥, если 𝑥 > 0 {𝑐ℎ(2𝑥 − 1) + 𝑥^2, если 𝑥 ≤ 0 Написать подпрограмму, вычисляющую гиперболический косинус по формуле: ch(х) = 1 + 𝑥^2/2!+𝑥^4/4!+𝑥^6/6!+ ⋯ + +𝑥^2n/(2n)!+ ⋯ с точностью 0.0001 помогите пожалуйста!)
Turbo Pascal Протабулировать функцию Протабулировал функцию, есть 23 результата, надо на промежутке от 0<y<1 найти, какое количество "y" попало в этот промежуток и их сумму. Помогите, буду очень признателен https://www.cyberforum.ru/ turbo-pascal/ thread1748156.html
Turbo Pascal Составьте программу для определения принадлежности точки D (x,y) заштрихованной области
Составьте программу для определения принадлежности точки D (x,y) заштрихованной области (-3,5) (3,15).
Turbo Pascal Найти наименьший номер элемента последовательности, для которого выполняется условие https://www.cyberforum.ru/ turbo-pascal/ thread1748057.html
Помогите разобраться, я вообще в первый раз вижу такие уровнения: Тема:вычисления последовательностей. Найти наименьший номер элемента последовательности, для которого выполняется условие М. Вывести на экран этот номер и все элементы а,-, где /= 1, 2, ..., n.
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,077
Записей в блоге: 1
29.05.2016, 17:44 0

Во всех словах заменить первую букву на последнюю, а последнюю на первую. Как считывать каждое слово? - Turbo Pascal - Ответ 9204836

29.05.2016, 17:44. Показов 3595. Ответов 6
Метки (Все метки)

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

Решение

deadsoulinrus,
Обработка одной строки:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const Letter=['0'..'9','A'..'Z','a'..'z','А'..'п','р'..'я','Ё','ё'];
var
  s: String;
  t: Char;
  i, j: Integer;
begin
  ReadLn(s); i:=1;
  while i<=Length(s) do begin
    while (i<=Length(s)) and not (s[i] in Letter) do Inc(i); j:=i;
    while (i<=Length(s)) and     (s[i] in Letter) do Inc(i);
    if i>j then begin
      t:=s[j]; s[j]:=s[i-1]; s[i-1]:=t;
    end;
  end;
  WriteLn(s);
end.


Вернуться к обсуждению:
Во всех словах заменить первую букву на последнюю, а последнюю на первую. Как считывать каждое слово? Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2016, 17:44
Готовые ответы и решения:

В каждом слове строки заменить первую букву на последнюю
Всем доброго времени суток, подскажите пожалуйста, как в троке, в каждом слове земенить первую...

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

В словах (например, "шабаш", "казак") первую и последнюю букву сделать большими
ХЕЕЕЛП

Поменять местами первую и последнюю букву каждого слова
Разработать программу, которая в заданной строке, представляющей собой некоторое предложение,...

6
29.05.2016, 17:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2016, 17:44
Помогаю со студенческими работами здесь

В каждом слове заменить местами первую и последнюю буквы
Дана строка символов, слова разделены пробелами. В каждом слове заменить местами первую и последнюю...

Перенести первую букву в конец слова, последнюю букву в начало слова
Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между...

Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину
Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину. Как упростить код?...

Ввести строку и в ней найти первую и последнюю цифру и поменять эти цифры на слово: "Слово"
Ввести строку и в ней найти первую и последнюю цифру и поменять эти цифры на слово: &quot;Слово&quot;.

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