Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / подскажыте как решить задачку / 4 сообщений из 4, страница 1 из 1
09.02.2009, 23:26:57
    #35806997
rtry
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажыте как решить задачку
кто знает можете подсказать можно решить в free pascal
Превратить текст, переставив в каждом слове буквы в обратном порядке.
...
Рейтинг: 0 / 0
09.02.2009, 23:59:20
    #35807027
подскажыте как решить задачку
т е если вводится hello world, то ответ будет
olleh dlrow?
...
Рейтинг: 0 / 0
10.02.2009, 00:08:23
    #35807034
rtry
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажыте как решить задачку
да
...
Рейтинг: 0 / 0
10.02.2009, 02:30:28
    #35807098
подскажыте как решить задачку
Комиляцию проводил под Турбо Паскаль, но думаю под Фри Паскаль тоже откомпилирует, если не будет, то сообщи ошибки:
Код: plaintext
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.
30.
31.
32.
33.
program slova;
uses
	crt;
var
	s : string;
	m : byte;
	tmp : string;
	i : byte;
begin
	clrscr;

	write('Vvedite stroku: ');
	readln(s);

	m := pos(' ', s);
	while(m <>  0 ) do
	begin
		tmp := copy(s,  1 , m -  1 );
		for i := length(tmp) downto  1  do
		begin
			write(tmp[i]);
		end;
		write(' ');
		delete(s,  1 , m);
		m := pos(' ', s);
	end;

	tmp := s;
	for i := length(tmp) downto  1  do
	begin
		write(tmp[i]);
	end;
	readln;
end.

P.S. уходи с этого форума, здесь мало кто подскажет по существу. Имеются гораздо лучше, особенно по паскалям разным.
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / подскажыте как решить задачку / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]