Форум программистов, компьютерный форум, киберфорум
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
4341 / 1473 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
09.11.2009, 22:38 0

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

09.11.2009, 22:38. Показов 1317. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2009, 22:38
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru