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

@petrvolkov · Регистрация: 31.05.2009

@CoolCat · 31.05.2009, 17:38

дето так

var
str : string;
strN : string;
i : integer;

begin
str := 'Hello';
for i := 1 to Length(str) do
strN[i] := str[Length(str) - i + 1];
writeln(strN);
end.

Кажись так, но могу ошибаться

@Delphin_KKC · 31.05.2009, 18:49

Так, имхо, лучше:

Pascal

var 
 str : string;
 strN : string;
 i : integer;
begin 
str := 'Hello';
strN:='';
for i := Length(str) downto 1 do strN := strN+str[i];
writeln(strN);
end.

@barmalei_slv · 31.05.2009, 19:09

так ещё попробуй))

Pascal

1 2	for i:=length(str) downto 1 do write(str[i]);

@petrvolkov · 31.05.2009, 20:41 **[ТС]**

Спасибо за помощь )

@barmalei_slv · 31.05.2009, 20:45

ты дома оттестируй всепроги, если работать не будет скинь код сюда целиком, там уже разберёмся

@Delphin_KKC · 31.05.2009, 20:50

Работать должны все. Но вот подход CoolCat'а не совсем корректный и на некоторых компиляторах может выдавать Range error.

@Puporev · 31.05.2009, 22:20

Но вот подход CoolCat'а не совсем корректный и на некоторых компиляторах может выдавать Range error.

Чем же симметричная перестановка массива некорректна и на каких это компиляторах выдаст ошибку?

@Delphin_KKC · 01.06.2009, 08:01

Когда искал компилятор с интерфейсом получше борланда то пока нашёл TMT Pascal перепробовал несколько штук. И помнится попался один (сейчас уже не вспомню название ибо это лет шесть назад было), который выдавал Range Error в описаном случае, если только не объявить переменную как string[255]. Случай достаточно редкий, но всёж имел место.
Если массив создан в памяти - то всё норм.

@Puporev · 01.06.2009, 08:18

лучай достаточно редкий, но всёж имел место.

Короче, выпендрился.

@Delphin_KKC · 01.06.2009, 08:23

Я тогда на поиск почему ж не работают те три строчки почти сутки убил. Вот и хотелось бы чтоб другие не повторяли моей ошибки.

@Puporev · 01.06.2009, 08:29

Что же, из-за какого-то кривого компилятора, которого вероятнее всего ни у кого уже и нет отказаться вообще от конструкции
var s:string;?
Тогда напишите в Министерство образования и в прочие инстанции о своем открытии, чтоб это официально запретили.

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	01.06.2009, 08:18	10
	лучай достаточно редкий, но всёж имел место. Короче, выпендрился. 1

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	01.06.2009, 08:23	11
	Я тогда на поиск почему ж не работают те три строчки почти сутки убил. Вот и хотелось бы чтоб другие не повторяли моей ошибки. 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	01.06.2009, 08:29	12
	Что же, из-за какого-то кривого компилятора, которого вероятнее всего ни у кого уже и нет отказаться вообще от конструкции var s:string;? Тогда напишите в Министерство образования и в прочие инстанции о своем открытии, чтоб это официально запретили. 0

@petrvolkov 0 / 0 / 0 Регистрация: 31.05.2009 Сообщений: 9
		1
	Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке. 31.05.2009, 17:16. Показов 17680. Ответов 11 Метки нет (Все метки) Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@CoolCat 5 / 5 / 0 Регистрация: 31.05.2009 Сообщений: 13
	31.05.2009, 17:38	2
	дето так var str : string; strN : string; i : integer; begin str := 'Hello'; for i := 1 to Length(str) do strN[i] := str[Length(str) - i + 1]; writeln(strN); end. Кажись так, но могу ошибаться 2

@petrvolkov 0 / 0 / 0 Регистрация: 31.05.2009 Сообщений: 9
	31.05.2009, 20:41 [ТС]	5
	Спасибо за помощь ) 0

@barmalei_slv 23 / 23 / 13 Регистрация: 29.10.2008 Сообщений: 69
	31.05.2009, 20:45	6
	ты дома оттестируй всепроги, если работать не будет скинь код сюда целиком, там уже разберёмся 0

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	31.05.2009, 20:50	7
	Работать должны все. Но вот подход CoolCat'а не совсем корректный и на некоторых компиляторах может выдавать Range error. 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	31.05.2009, 22:20	8
	Но вот подход CoolCat'а не совсем корректный и на некоторых компиляторах может выдавать Range error. Чем же симметричная перестановка массива некорректна и на каких это компиляторах выдаст ошибку? 0

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	01.06.2009, 08:01	9
	Когда искал компилятор с интерфейсом получше борланда то пока нашёл TMT Pascal перепробовал несколько штук. И помнится попался один (сейчас уже не вспомню название ибо это лет шесть назад было), который выдавал Range Error в описаном случае, если только не объявить переменную как string[255]. Случай достаточно редкий, но всёж имел место. Если массив создан в памяти - то всё норм. 0

Опции темы