Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Error: Illegal qualifier https://www.cyberforum.ru/ free-pascal/ thread62319.html написал такой код: type metk=(a,b); st=record mark:string; fio:string; nomr:string; otm:metk; end; var i:integer;	Free Pascal Вывести на экран названия объектов, которые находятся во всех множествах одновременно Всем привет. Нужна ваша помощь. Мне было задано задание: Придумать список некоторых объектов, например, названия товаров в магазинах; виды полезных ископаемых, которые добывают в различных странах;...
Free Pascal Найти максимальный четный эллемент в массиве Мне осталось последние две задачи, если кому не трудно, кто знает напишите пожалуйста! Задача 1 Имеется массив A из N произвольных чисел (А(Z)), среди которых есть положительные, отрицательные и... https://www.cyberforum.ru/ free-pascal/ thread62032.html	Free Pascal Рассортировать файл по файлам, каждый из которых соответствует определенной марке автомобиля Есть такая задача : Исходный файл состоит из компонентов вида: -марка автомобиля (из фиксированного пере/) -ФИО владельца -номер автомобиля -отметка о прохождении техосмотра Рассортировать... https://www.cyberforum.ru/ free-pascal/ thread61954.html
Сортировка массива не работает Free Pascal написал алгоритм для сортировки массива , он не сортирует , почему? const n=5; type mas=array of real; procedure swop(var a,b:real); var c:real; begin c:=a; a:=b; b:=c;	Free Pascal Отделение корней уравнения с использованием графической оценки Товарисчи, требуется помощь в решении! Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном... https://www.cyberforum.ru/ free-pascal/ thread61452.html
Free Pascal Сортировка символьного массива Доброго дня, мне нужно отсортитровать символьный массив. Вопрос : где можно почитать об этом ? Или в каком направлении надо думать? https://www.cyberforum.ru/ free-pascal/ thread61132.html	Free Pascal Возвести в квадрат те числа, значения которых неотрицательны Помогите решить задачку, Плиз!: Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные. Я что -т написал, только пока...
Free Pascal Для трех цехов, вписать любые значения потребления электроэнергии на каждый месяц Помогите пожалуйста с 9-ой задачей. Для трех цехов, вписать любые значения потребления электроэнергии на каждый месяц. Заранее благодарен! PS: Я слаб в Free Pascal'е. https://www.cyberforum.ru/ free-pascal/ thread60332.html	Free Pascal Символы Юникода, написанные в FPC, при копировании в блокнот выдают кракозябры https://www.cyberforum.ru/ free-pascal/ thread60235.html Доброго времени суток, почему после символы юникода написанные в free pascal , при копировании в блокнот выдают нечто вроде writeln('ââåäèòå ìàòðèöó a ïî ñòðîêàì');?
РЕБУС Free Pascal как решить ребус ДАМА+ДАМА+ДАМА=РАЁН	Free Pascal Напечатайте все симметричные слова Группы символов, разделённые пробелами (одним или несколькими)и которые не имеют пробелов в середине себя, будем называть словами. Дан текст. Напечатайте все симметричные слова. Не представляю... https://www.cyberforum.ru/ free-pascal/ thread59126.html

yanyk1n

4341 / 1473 / 680

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

Сообщений: 5,310

09.11.2009, 22:38

Вывести строку, содержащую эти же слова, разделенные одним пробелом, но расположенные в обратном порядке - Free Pascal - Ответ 346054

09.11.2009, 22:38. Показов 1317. Ответов 2

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

Ответ

Pascal

program kkk;
uses crt;
var count,i,j:integer;
    f:boolean;
    st,buf:string;
    slova:array[1..100]of string;
 
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=1) and (length(buf)=0);
 
 for i:=count-1 downto 1 do writeln(slova[i]);
 readln;
end.

Не по теме:

Мой тёзка)

Вернуться к обсуждению:
Вывести строку, содержащую эти же слова, разделенные одним пробелом, но расположенные в обратном порядке Free Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.11.2009, 22:38

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

Вывести строку, содержащую эти же слова, но разделенные одним символом "."
Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же...

Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.
Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.

Слова исходной строки, разделенные одним или несколькими пробелами, переписывает в обратном порядке
Написать программу, которая слова исходной строки, разделенные одним или несколькими пробелами, ...

Вывести строку, содержащую эти же слова, разделенные одним пробелом, но расположенные в обратном порядке.
Дана строка, состоящая из латинских слов, разделенных пробелами (может быть и двумя проблеми)....

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.11.2009, 22:38

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

Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести...

Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке
Здравствуйте. можете прокомментировать эту программу? #include "stdafx.h" #include <string>...

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

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

Наверх