Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Динамические структуры данных.Список https://www.cyberforum.ru/ turbo-pascal/ thread1011237.html Народ,помогите! Не получается ни в какую... Задание: Составить процедуру, определяющую порядковый номер наибольшего элемента последовательности натуральных чисел. Используя данную процедуру, проанализировать последовательности натуральных чисел М и N.	Turbo Pascal Дан произвольный набор из строчных русских букв. Подсчитать в нем кол-во гласных и согласных букв Дан произвольный набор из строчных русских букв. Подсчитать в нем кол-во гласных и согласных букв. Заранее спасибо и +
Turbo Pascal Дано множество строчных латинских букв.Подсчитать сколько раз в это множеств входит от "C" до "D". https://www.cyberforum.ru/ turbo-pascal/ thread1011219.html Дано множество строчных латинских букв.Подсчитать сколько раз в это множеств входит от "C" до "D".	Turbo Pascal Из символов строки сформировать одномерный массив https://www.cyberforum.ru/ turbo-pascal/ thread1011209.html Из символов строки сформировать одномерный массив и вывести значения его элементов в прямом порядке с помощю процедуры. Добавлено через 44 минуты Если я правильно понял задание, то должно быть что то типо такого? program lab4; uses crt; var s:string; i,n:integer; x:array of char; procedure sort(Var x:array of char;i,n:integer);
Turbo Pascal Произвольный набор букв Дан произвольный набор из строчных русских букв. Подсчитать в нем кол-во гласных и согласных букв. Заранее спасибо и +	Turbo Pascal вычислить для A=7 https://www.cyberforum.ru/ turbo-pascal/ thread1011169.html вычислить для A=7. if (A>=1) AND (A<10) THEN A:=A+1; A:=A+A.
Turbo Pascal функция random(x) возвращает случайно целое число в диапазоне от 0 до x-1 функция random(x) возвращает случайно целое число в диапазоне от 0 до x-1. в переменную Y требуется поместить случайно целое число в диапазоне от 40 до 46 включительно. https://www.cyberforum.ru/ turbo-pascal/ thread1011164.html	Turbo Pascal Написать программу через процедуру, так и через функцию Даны координаты (как целые от 1 до 8) двух полей шахматной доски. Проверить, может ладья за один ход перейти с одного поля на второе. Составить программу, в которой для проверки используется функция, возвращающая true или false.
Turbo Pascal Определить числа для каждой матрицы, равные количеству положительных элементов в соответствующей строке Даны матрицы A(10x11) и В(10x15). Определить k1,..., k10 для каждой матрицы, равные количеству положительных элементов в соответствующей строке https://www.cyberforum.ru/ turbo-pascal/ thread1011152.html	Turbo Pascal Вычислить количество полных квадратов (матрица) https://www.cyberforum.ru/ turbo-pascal/ thread1011147.html Дана целочисленная матрица. Для каждого столбца вычислить количество полных квадратов. Определить номер столбца, для которого эта характеристика имеет наибольшее значение.
сравнение массивов Turbo Pascal Всем Доброго времени суток:) помогите написать Программа которая проверяет есть ли во введённом с клавиатуры массивы элементы с одинаковым значением и с выводом их. Заранее спасибо :)	Turbo Pascal Работа с данными типа множества Дано множество содержащие строчные латинские буквы. Подсчитать сколько в этом множестве строчных букв от "a" до "d" https://www.cyberforum.ru/ turbo-pascal/ thread1011126.html

APALoff

1647 / 1076 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

19.11.2013, 13:21

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

19.11.2013, 13:21. Показов 1776. Ответов 1

Метки (Все метки)

Сообщение было отмечено Revolver19931 как решение

Решение

Pascal

For i:=Length(St) downto 1 do
  If St[i]=' ' then Break;
St:=Copy(St,i+1,Length(St)-i)+
     Copy(St,Pos(' ',St),i-Pos(' ',St)+1)+
     Copy(St,1,Pos(' ',St)-1);

Добавлено через 11 минут
Код будет работать правильно, при наличии не менее 2-ух слов, для универсальности требуется добавить проверку.

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

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

19.11.2013, 13:21

Готовые ответы и решения:

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

Поменять местами первое и последнее слово
Помогите написать программу. "Поменяйте местами первое и последнее слово" (ввод строк...

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

Поменять местами первое и второе слова,третье и четвертое и т.д.
дано предложение. Поменять местами первое и второе слова,третье и четвертое и т.д.Если количество...

	19.11.2013, 13:21

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

19.11.2013, 13:21

Помогаю со студенческими работами здесь

Поменять в строке слова местами
не могу понять в чем ошибка.кто может помогите исправить.Тема строки Program Stroki; Uses crt;...

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

Процедуры. Поменять местами в строке первый и третий символ каждого слова
Помогите решить плз. (желательно выложить полный текст программы) Создать процедуру...

Разработать процедуру которая в строке меняет первое и последнее слово
разработать процедуру которая в строке меняет первое и последнее слово Помогите...

Новые блоги и статьи
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .

Наверх