удвоение символа

[Aleksander]

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

[Карась]

И где ваш код, который я жажду поправить до работующей версии?

[puporev]

Задача конечно супер, аж в два действия с одной процедурой и двумя циклами, которые так и норовят зациклиться.

uses crt;
var s:string;
    i,n:byte;
begin
clrscr;
write('Vvedite proizvolny nabor simvolov:');
readln(s);
n:=length(s);
for i:=n downto 1 do  //вставляем с конца, чтобы индексы не менялись
if i mod 2=0 then      //если индекс четный
   begin
     insert(s[i],s,i+1);  //вставляем за ним еще такой же
     n:=n+1;              //увеличиваем длину строки
   end;
writeln;
for i:=n downto 1 do   //читаем строку задом наперед
write(s[i]);
readln
end.

[Rusl92]

var s:string[30];
     i:integer;
readln(s);
for i:=1 to length(s) do
  if i div 2 = 0 then s[i]:=chr(ord(s[i])*2);
{если четный - то удваиваем символ!}
  for i:=length(s) downto 1 do
   write(s[i]);
  readln;
end.

вот и все

[Rusl92]

Еще можно проверять стоит ли символ на четном / нечетном элементе функцией odd
Функция odd( i ) проверяет, является ли аргумент i нечетным и возвращает "истину", если это действительно так. Тип аргумента- целый, тип результата- логический.

[puporev]

if i div 2 = 0 then

Это неверно, посмотрел бы постом выше. Четность определяется
if i mod 2 = 0 then ...

s[i]:=chr(ord(s[i])*2);

Удваивать нужно не код символа, а добавить еще один такой же. Что вы получите при удваивании, если код символа больше 127?
И вообще, прежде чем о чем-то писать, следует посмотреть что написали до вас.

[Aleksander]

Уважаемый puporev спасибо вам огромное. Может быть еще подскажите почему у меня при включении модуля crt паскаль пишет ошитку "попытка деления на ноль" ошибка 200. где нужно "подкрутить" и что подрегулировать чтобы этого небыло ?

[Карась]

Сообщение от Aleksander

Уважаемый puporev спасибо вам огромное. Может быть еще подскажите почему у меня при включении модуля crt паскаль пишет ошитку "попытка деления на ноль" ошибка 200. где нужно "подкрутить" и что подрегулировать чтобы этого небыло ?

Нужно видеть код.

АДД: А в книжке пишут:

200: Деление на ноль. Кроме некорректных арифмитических операций, к данной ошибке может приводить использование модуля Crt на современных быстрых компьютерах. Это связанно с особенностями операций инициализации в этом модуле......

Во как..

[B_N]

Сообщение от Aleksander

..........почему у меня при включении модуля crt паскаль пишет ошитку "попытка деления на ноль" ошибка 200. где нужно "подкрутить" и что подрегулировать чтобы этого небыло ?

http://rc4wa.narod.ru/pascal.html

[Alter]

Вот рабочая версия.
Код в формате Дос кодировки(можно через блоконот в файл с расширением *.pas пихнуть). Модуль CRT подключен лишь ради очистки экрана вначале, можно удалить, если ненужно.

Uses Crt;
Var S :Array[0..1] of String;
    I,II :Integer;
begin
 ClrScr;
  For I:=0 To 1 Do
  S[I] := '';
 Write('‚ўҐ¤ЁвҐ ЇаҐ¤«®¦Ґ*ЁҐ: '); Readln(S[0]);
{ “¤ў Ёў Ґ¬ §¤Ґбм }
 II := Length(S[0]);
  If II>0 Then
  For I:=1 To II Do
  Case (I mod 2)=0 Of
 True:   S[1] := S[1] + S[0][I] + S[0][I];
 False: S[1] := S[1] + S[0][I];
  End;
{ ‡ ¤®¬ * ЇҐас¤ ўлў®¤Ё¬ §¤Ґбм }
  Write('ђҐ§г«мв в: ');
  II := Length(S[1]);
  If II>0 Then
  For I:=II DownTo 1 Do
  Write(S[1][I]);
 Readln;
end.