Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Cумма тех двузначных чисел, которые начинается или заканчивается четными числами https://www.cyberforum.ru/ turbo-pascal/ thread2747453.html
Создать программу PASCAL сумма тех двузначных чисел, которые начинается или заканчивается четными числами 		Turbo Pascal Что здесь неправильно?
program lab9_1; var x:array of integer; y:array of extended; i:integer; z:extended; begin x:=(-(sqrt(10))); y:=1; z:=cos(abs(1+x+y)); for i:=2 to 21 do begin
Turbo Pascal Оформить с использованием подпрограмм с передачей параметров Можете помочь оформить с использованием подпрограмм с передачей параметров, реализующих: ввод, вывод, обработка матрицы, метод сортировки Program uvp; uses crt; const mx_mn = 10; var A: array of Real; https://www.cyberforum.ru/ turbo-pascal/ thread2746840.html Turbo Pascal Создать блок-схему для кода https://www.cyberforum.ru/ turbo-pascal/ thread2746759.html
function IsSorted(const w: String): Boolean; var i: Integer; begin IsSorted:=False; for i:=2 to Length(w) do if w>w then Exit; IsSorted:=True; end; const Delims=; var
Вычислите значение функции х Turbo Pascal
Здравствуйте! Мой сын учится в 9 классе. Пожалуйста разобрать задачку из теста ОГЭ. 		Turbo Pascal Составить программу сыну https://www.cyberforum.ru/ turbo-pascal/ thread2746561.html
Здравствуйте! Мой сын учится в 9 классе. Пожалуйста помогите решить вторую задачку.
Turbo Pascal Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей https://www.cyberforum.ru/ turbo-pascal/ thread2746213.html
Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей, записать их в типизированный файл, закрыть его, открыть и выбрать из него записи согласно заданному критерию, вывести их на экран в форме, удобной для просмотра. Журнал: название, год основания, количество страниц. Критерий: год основания <1950 И название начинается с буквы А... 		Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей Turbo Pascal
Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей, записать их в типизированный файл, закрыть его, открыть и выбрать из него записи согласно заданному критерию, вывести их на экран в форме, удобной для просмотра. Журнал: название, год основания, количество страниц. Критерий: год основания <1950 И название начинается с буквы А. ...
Turbo Pascal Pascal https://www.cyberforum.ru/ turbo-pascal/ thread2746095.html
Без использования массивов с использованием оператора Case 		Turbo Pascal Записать MxN матрицу в файл. Получить новый массив по 3 заданным условиям 1)Если элемент делится на 2(Четное число), заменить его на 0. 2)Если элемент не делится на 2 и он простое число, удалить его (а элементы которые находятся вправо от этого элемента перемещать в место этого элемента, то есть у новой матрицы строки могут быть разными длинами). 3)Если элемент не делится на 2 и он НЕ простое число, оставить его так. НАПРИМЕР: N=3 M=4 15 27 73 84 (Удалим 73)... https://www.cyberforum.ru/ turbo-pascal/ thread2746044.html
Turbo Pascal Даны числа n∈N, q1, q2, …, qn ∈Z. Найти наименьшее из четных чисел, входящих в последовательность q1-1, q1,
Даны числа n∈N, q1, q2, …, qn ∈Z. Найти наименьшее из четных чисел, входящих в последовательность q1-1, q1, …, qn , и количество нечетных среди них. Pascal без использования массивов с использованием оператора Case Добавлено через 1 час 22 минуты Оператор Case не нужен 		Turbo Pascal Даны числа n∈N, q1, q2, …, qn ∈Z. Найти наименьшее из четных чисел, входящих в последовательность q1-1, q1, https://www.cyberforum.ru/ turbo-pascal/ thread2745923.html
Даны числа n∈N, q1, q2, …, qn ∈Z. Найти наименьшее из четных чисел, входящих в последовательность q1-1, q1, …, qn , и количество нечетных среди них.Pascal
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,076
Записей в блоге: 1
10.12.2020, 13:36 0

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

10.12.2020, 13:36. Показов 2334. Ответов 4
Метки (Все метки)
Лучший ответ Сообщение было отмечено aelris как решение

Решение

Поменять можно, например, так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

var
  s: String;
  i, b1, e1, b2, e2: Integer;
begin
  Write('Строка: '); ReadLn(s);
 
  i:=1;
  while (i<=Length(s)) and (s[i]=' ') do Inc(i);
  b1:=i;
  while (i<=Length(s)) and (s[i]<>' ') do Inc(i);
  e1:=i;
 
  i:=Length(s);
  while (i>0) and (s[i]=' ') do Dec(i);
  e2:=i+1;
  while (i>0) and (s[i]<>' ') do Dec(i);
  b2:=i+1;
 
  if e1<b2
  then WriteLn(Copy(s,1,b1-1)+Copy(s,b2,e2-b2)+Copy(s,e1,b2-e1)+Copy(s,b1,e1-b1)+Copy(s,e2,Length(s)))
  else WriteLn('Нет двух слов');
end.
Добавлено через 2 минуты
Наличие лишних пробелов можно определить, например, так:
Pascal
  if (s[1]=' ') or (s[Length(s)]=' ') or (Pos({два пробела}'  ',s)>0) then


Вернуться к обсуждению:
Поменять местами первое и последнее слово Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.12.2020, 13:36
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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

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

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