Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Построить матрицу вида https://www.cyberforum.ru/ pascalabc/ thread620245.html Построить матрицу вида 1 n+1 ... (n-1)n+1 2 n+2 ... (n-2)n+2 . . ... . n 2n ... n( в степени n)	Рекуррентная функция возведения целого числа в целую степень Pascal ABC Здравствуйте! Помогите пожалуйста решить задачи!(((( 1) написать рекуррентную функцию возведения целого числа в целую степень, без использования стандартных функций.
Pascal ABC Умножить на 2 элементы массива https://www.cyberforum.ru/ pascalabc/ thread620123.html Задать одномерный массив, вывести его на экран затем умножить его элементы на два и вывести на экран	Pascal ABC Вывести трехзначные числа, для которых сумма первой и последней цифры кратна 6 https://www.cyberforum.ru/ pascalabc/ thread620111.html Вывести на экран все 3х значные числа для которых сумма первой и последней цифры кратно 6
Вывести все трехзначные числа, для которых квадрат средней цифры кратен 7 Pascal ABC вывести на экран все трех значные числы для которых квадрат средней цифры кратен 7.	Pascal ABC В каждом столбце матрицы найти произведение элементов, сумма цифр которых – чётное число https://www.cyberforum.ru/ pascalabc/ thread619817.html а) В каждом столбце целочисленной матрицы найти произведение элемен-тов, сумма цифр которых – чётное число. б) Проверить, все ли строки матрицы упорядочены по убыванию. в) Переслать в одномерный массив элементы матрицы, выделенные чёрным цветом (номера строк изменяются от i1 до i2, номера колонок – от j1 до j2). на картинке изображен квадрат а в нем черный квадрат. изображение не грузится
Pascal ABC Попадает ли точка с заданными координатами в закрашенную область Имею наглость просить о помощи добрых людей. Лаба №2: Задание 2. Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения. Заранее спасибо огромное. https://www.cyberforum.ru/ pascalabc/ thread619768.html	Вывести в виде таблицы значения функции, заданной графически Pascal ABC Имею наглость просить о помощи добрых людей. Лаба №3: Задание 1. Вычислить и вывести на экран в виде таблицы значения функции, заданной графически (см. задание 1 лабораторной работы № 2), на интервале от х-нач. до х-конеч. с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Заранее спасибо огромное.
Pascal ABC Для десяти выстрелов вывести текстовые сообщения о попадании в мишень https://www.cyberforum.ru/ pascalabc/ thread619761.html Имею наглость просить о помощи добрых людей. Лаба №3: Задание 2. Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень из задания 2 лабораторной работы № 2. Заранее спасибо огромное.	Pascal ABC Вывести в виде таблицы значения функции, заданной с помощью ряда Тейлора https://www.cyberforum.ru/ pascalabc/ thread619757.html Имею наглость просить о помощи добрых людей. Лаба №3: Задание 3. (не обязательно, но пригодится всё равно) Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от х-нач. до x-конеч. с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и...
По введённому значению аргумента вычислить значение функции, заданной в виде графика Pascal ABC Имею наглость просить о помощи добрых людей. Лаба №2: Задание 1. Написать программу, которая по введённому значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо огромное.	Pascal ABC Найти комплексные корни уравнения https://www.cyberforum.ru/ pascalabc/ thread619579.html Вот такая проблема. Есть две функции,одна из них кубическая,которая имеет три корня,один отрицательный два других корня положительные. В кубическом уравнении есть свободный член, который меняется в цикле. В зависимости от этого свободного члена,каждый раз корень кубической функции разный (в программе я отделил нужный мне корень отрезком). Вторая функция квадратичная, для решения которой нужен...

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

06.07.2012, 20:19

Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова - Pascal ABC - Ответ 3244668

06.07.2012, 20:19. Показов 1450. Ответов 1

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

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

Решение

Pascal

uses crt;
var s,s1:string;
    i,j,k:byte;
beginclrscr;
writeln('Введите строку из слов, разделенных пробелами:');//для простоты
read(s);
i:=length(s);//идем с конца
while i>=1 do
if(s[i]<>' ')and((i=length(s))or(s[i+1]=' ')) then
 begin
  s1:='';//составляем последнее неудаленное слово
  j:=i;
  while(j>=1)and(s[j]<>' ') do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  k:=j;//встаем перед ним
  while k>=1 do//ищем впереди такие же слова
  if(copy(s,k,length(s1))=s1)and((k=1)or(s[k-1]=' '))and(s[k+length(s1)]=' ')
  then
   begin
    delete(s,k,length(s1));//находим, удаляем
    k:=k-1;//вперед
   end
  else k:=k-1;//нет, вперед
  i:=pos(s1,s)-1;//встаем перед последним неудаленным
 end
else i:=i-1;//пропускаем пробелы
write(s);
end.

Вернуться к обсуждению:
Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

06.07.2012, 20:19

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

Оставить в строке только первое и последнее вхождение цифр каждого слова
Дана строка s, оставить в ней только первое и последнее вхождение цифр каждого слова, распечатать...

Дана строка, состоящая из четырех слов. Сформировать новую строку, где первое и последнее слова поменяются
дана строка состоящая из четырех слов сформировать новую строку в которой первое и последнее слова...

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

Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение
Народ.помогите решить задачку Дана символьная строка. Если какой-то символ в ней встречается более...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

06.07.2012, 20:19

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

Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение
помогите решить.. Дана последовательность символов(строка). Если какой-то элемент встречается в ней...

Дана строка, состоящая из слов, разделенных пробелами. Если встречаются слова из 2 букв то заменить их *
ребята, помогите напишите код даны строка s состоящая из слов разделенных пробелами, если...

Дана строка, состоящая из слов. Выдать слова, в которых буквы уже упорядочены по алфавиту.
Дана строка, состоящая из слов. Выдать слова, в которых буквы уже упорядочены по алфавиту.

Дана строка, состоящая из слов: вывести слова, которые повторяются хотя бы один раз
помогите исправить и доработать программу! ---------------Задание--------------------- Дана...

Наверх