Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Попадет ли точка с заданными координатами в данную область Составить алгоритм и написать программу, которая определяет, попадет ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат ра-боты программы вывести в виде текстового сообщения. https://www.cyberforum.ru/ turbo-pascal/ thread1053794.html Turbo Pascal Распечатайте анкетные данные студентов
фамилии которых начинаються с буквы<Б>,и даты их рождения
Turbo Pascal Нужно составить блок-схему к программе Сам программирую неплохо, а вот в блок схемах ни фига не шарю... А блок схема нужна для зачёта >___< Вот код: Program RAZCHET1; uses crt; function f(x:real):real; begin f:=0.25*x*x*x+x-1.2502; end; function fp(x:real):real; begin https://www.cyberforum.ru/ turbo-pascal/ thread1053768.html Turbo Pascal Написать программу которая создает и выводит на экран одномерный массив А на 10 элементов, Ai = random (20) +2 Написать программу которая создает и выводит на экран одномерный массив А на 10 элементов, Ai = random (20) +2. Отсортировать массив по возрастанию. Найти наименьшую разницу между соседними элементами. https://www.cyberforum.ru/ turbo-pascal/ thread1053760.html
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой функции f или пары функций (f1, f2). Условие второй части задания предполагает обязательное использование разработанной процедуры. В качестве исходного данного в большинстве заданий используется квадратная матрица А. Составить процедуру, которая находит номер первого от начала...
Turbo Pascal Дана двухмерная матрица https://www.cyberforum.ru/ turbo-pascal/ thread1053741.html
Ну по скольку прочитав условия я нечего не понял решил спросить у знатаков как же это будет и что вообше нужно. Условие. Данна двухмерная матрица (двух мерный массив) порядка 10 ( 10 на 10 ). Нужно упорядочить с нечётными элементами на главной диагонали, найти суму всех эмитентов. Ограничения только одно на паскале нужно написать, что поможет с меня няшя
Turbo Pascal Найти максимальное из чисел, встречающихся в заданной матрице более одного раза Найти максимальное из чисел, встречающихся в заданной матрице более одного раза. https://www.cyberforum.ru/ turbo-pascal/ thread1053720.html Turbo Pascal Две точки задаются своими координатами. Определить, какая их них находится дальше
Две точки задаются своими координатами. Определить, какая их них находится дальше от: начала координат; окружности заданного радиуса с центром в начале координат.
Turbo Pascal Разработать программу построения графиков распределения потенциала в резком p-n –переходе в кремнии при различных концентрациях примесей Na и Nd https://www.cyberforum.ru/ turbo-pascal/ thread1053707.html
Разработать программу построения графиков распределения потенциала в резком p-n –переходе в кремнии при различных концентрациях примесей Na и Nd.В материале n – типа распределение потенциала определяется по формуле: \varphi \left(x \right)={\varphi}_{n}-\left(q*{N}_{d}/2{\varepsilon}_{0} {\varepsilon}_{s} \right){\left({x}_{n}-x \right)}^{2}, 0<x<{x}_{n} где {\varphi}_{n} – потенциал на...
Turbo Pascal Составление программы матрица Помогите пожалуйста ! Составьте программу и создайте алгоритм к данной программе упорядочивающую по убыванию элементы каждого столбца матрицы С. Заполнение массива осуществить с клавиатуры. https://www.cyberforum.ru/ turbo-pascal/ thread1053688.html
Вычислить среднее арифметическое значение тех элементов массива, которые попадают в интервал Turbo Pascal
Добрый вечер. Помогите создать алгоритм к программе. 1)Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10. Размерность массива –25. Заполнение массива осуществить случайными числами от -5 до 15. 2)
Turbo Pascal Найдите в каждой строке матрицы максимальный и минимальный элементы и поменяйте их местами найдите в каждой строке матрицы максимальный и минимальный элементы и поменяйте их "местами.выведите" матрицу на экран https://www.cyberforum.ru/ turbo-pascal/ thread1053514.html
27 / 27 / 39
Регистрация: 16.11.2013
Сообщений: 64
23.12.2013, 20:55 0

Поменять местами первое и последнее слово - Turbo Pascal - Ответ 5546873

23.12.2013, 20:55. Показов 2822. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var s,w1,w2:string;
i:byte;
begin
w1:=''; w2:='';
readln(s);
i:=1;
while s[i]<>' ' do
begin
w1:=w1+s[i];
inc(i);
end;
delete(s,1,length(w1));
i:=length(s);
while s[i]<>' ' do
begin
w2:=s[i]+w2;
dec(i);
end;
delete(s,i+1,length(w2));
writeln(w2+s+w1);
end.


Вернуться к обсуждению:
Поменять местами первое и последнее слово Turbo Pascal
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2013, 20:55
Готовые ответы и решения:

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

Составьте программу, которая меняет местами первое и последнее слово в строке
Составьте программу, которая меняет местами первое и последнее слово в строке: а) в строке &quot;Минск...

Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее
прошу помощи с двумя заданиями: 1.Отредактировать предложение, удаляя из него лишние пробелы,...

Поменять местами первое и третье слово
Дано предложение. Поменять местами первое и третье слово. Определить их длину.

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

Поменять местами первое и третье слово
Дано предложение. Поменять местами первое и третье слово. Определить их длину.

Переставить местами слово с минимальной длиной и последнее слово
Дана строка символов, содержащая не менее 6 слов разной длины. Переставить местами слово с...

Напечатать отдельными строками первое и последнее слово строки
4. Ввести с клавиатуры строку символов. Напечатать отдельными строками первое и последнее слово. ...

Распечатать самое длинное слово (последнее) и самое короткое слово (первое)
Распечатать самое длинное слово (последнее) и самое короткое слово (первое).

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