Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Рекурсия: вывести положительные элементы последовательности в прямом порядке, потом отрицательные - в обратном Задача звучит так: Вывести значения всех положительных элементов заданной числовой последовательности в прямом порядке. По завершению, с новой строки, вывести индексы отрицательных элементов в обратном порядке. Нумерация элементов начинается с единицы.(последовательностью считаются числа до первого числа 0) Вход: 4 4 53 64 -53 243 -4 0 Выход: 4 4 53 64 243 7 5 https://www.cyberforum.ru/ free-pascal/ thread1024964.html	Free Pascal Шифр Тритемиуса помогите пожалуйста написать программу в паскале(или в другой программе) на тему шифр тритемиуса( усовершенствованный шифр цезаря) с записью в файл,очень срочно надо!!!
Free Pascal Куча орехов 1644. Куча орехов Ограничение времени: 1.0 секунды Ограничение памяти: 64 МБ Десять больших грецких орехов — это, конечно, целая куча! А два ореха — совсем мало, ни о какой куче здесь не может идти и речи. А как насчёт шести орехов? Много это или мало? Попугай между тем уже давно ответил для себя на этот вопрос: «Мало — это когда всё съел и ещё хочется, а куча — это когда больше уже не... https://www.cyberforum.ru/ free-pascal/ thread1024696.html	Free Pascal Построить двумерное изображение заданной фигуры https://www.cyberforum.ru/ free-pascal/ thread1024691.html Построить двумерное изображение заданной фигуры. Над фигурой выполнить все аффинные преобразования: перенос, отражение, масштабирование, поворот. Помогите, пожалуйста написать программу! Само изображение во вложении. Заранее спасибо!
Программа на Паскале с использованием OpenGL Free Pascal Задание следующее: Создать в окне трехмерную сцену, состоящую из проволочной пятиугольной пирамиды и находящегося внутри куба. Все грани куба окрасить в различные цвета. Вращать объекты по таймеру или с помощью клавиш управления курсором. Программу необходимо написать на Паскале (FreePascal, TurboPascal), с использованием библиотеки OpenGL. Помогите, пожалуйста! А то горю!	Free Pascal Программа для вычисления гласных https://www.cyberforum.ru/ free-pascal/ thread1024509.html ЗАДАНИЕ : 1 . Петя Пяточкин считает склады Hазва программы : syllable . * Любознательный киевский школьник Петя Пяточкин как-то заинтересовался языкознанием - наукой о языке. Для важного исследования Пете нужно выяснить , сколько слогов имеют названия натуральных чисел ( количественные числительные в именительном падеже ) , т.е. сколько гласных букв они содержат . Помогите Пете , написав...
Free Pascal Лабиринт https://www.cyberforum.ru/ free-pascal/ thread1024047.html Есть задача. Я не прошу вас решить её за меня. Как вообще это должно происходить, этого не пойму. С чего пробывать её решать? От чего отталкиваться? Не давно проходили поиск в ширину, вроде разобрался. Вот только учитель сказал что он как раз поиском в ширину и решается, а как не пойму. Код мне не нужен) Задача: Игрушечный лабиринт представляет собой прозрачную плоскую прямоугольную...	Сжатие массива Free Pascal Привет всем! Необходимо сжать массив, удалив все отрицательные элементы. Вот есть попытка сделать это: For i:=1 to N do YN:=Y; i:=1; While i<=N do If YN<0 then For j:=1 to N do Begin YN:=YN; N:=N-1; End
Free Pascal Поиск чисел в текстовом файле Есть текстовый файл. В нем строки чисел. Например номера угнанных автомобилей через пробел!: 123 123 123 12345 65 65 Выполнить: Полицейский вписывает в свою программу номер автомобиля. Программа ищет в текстовом файле совпадения, если нашла выдать результат: "Автомобиль найден задержите его", если нет: "Автомобиля нет в базе пропустите его" Подсказка: Readln - игнорит числа после... https://www.cyberforum.ru/ free-pascal/ thread1023610.html	Free Pascal Можно ли изменять текстовый режим работы монитора можно ли изменять текстовый режим работы монитора у free pascal также как например в турбо паскаль процедурой textmode? https://www.cyberforum.ru/ free-pascal/ thread1023446.html
Посчитать время, за которое лыжник пройдет путь Free Pascal Я решал олимпиадную задачу на паскале. Вот условие: Лыжник катается по снежному полю. Его передвижения можно описать строкой из символов 'S', 'N', 'W', 'E' (что соответствует перемещениям на 1 метр в направлении юга, севера, запада или востока соответственно). Известно, что если он прокладывает лыжню, то есть катится по ранее не посещенному отрезку пути, то время такого передвижения равно 5 с, а...	Free Pascal Программа для замены сочетаний в файле нужно найти и заменить сочетания ab в файле на bbqq https://www.cyberforum.ru/ free-pascal/ thread1022832.html

volvo

Супер-модератор

32996 / 21302 / 8180

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

Сообщений: 36,598

Записей в блоге: 8

05.12.2013, 12:04

Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных букв, между соседними словами – не менее одного пробела - Free Pascal - Ответ 5439343

05.12.2013, 12:04. Показов 2818. Ответов 3

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

Ответ

Вот так - нет явного обращения по индексу к элементу строки:

Pascal

uses strutils;
 
var
  s, w, last : string;
  i, j, wc : integer;
  b : boolean;
 
begin
  s := 'one two three four five ten nine seven eight nine ten.';
  wc := wordcount(s, [' ', '.']);
  last := extractdelimited(wc, s, [' ', '.']);
  writeln(wc);
  for i := 1 to wc - 1 do
  begin
    w := extractdelimited(i, s, [' ', '.']);
    if w <> last then
    begin
      b := true;
      for j := length(w) downto 1 do
        b := b and (pos(copy(w, j, 1), w) = j);
      if b then writeln(w);
    end;
  end;
end.

Вернуться к обсуждению:
Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных букв, между соседними словами – не менее одного пробела Free Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.12.2013, 12:04

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

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного
Напишите пожалуйста код :-* Дана последовательность, содержащая от 2 до 50 слов, в каждом из...

Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных, между соседними словами - н
Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных, между...

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

Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. Напечатать вс
помогите решить

	05.12.2013, 12:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.12.2013, 12:04

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

дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных латинских букв, между соседними словами - запятая, за пос
дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных...

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

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

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Наверх