Версия для печати темы

Автор: minkod 12.07.2006 23:25

Может я пишу не в тот раздел, но мне срочно надо написать программу.

Дана последовательность букв и цифр (8 символов). Их нужно расположить следующим образом:
Допустим мы ввели следующую комбинацию:
0d321311
Нам надо преобразовать её вот так:
1113320d

То есть мы берем исходный код, меняем местами по четыре цифры(13110d32), записываем их наоборот(113123d0),и меняем в кождой паре числа местами(1113320d).

Помогите написать эту прогу, а то моих знаний для этого не хватает.
Заранее благодарен.

Автор: Bokul 12.07.2006 23:45

Ну если писать программу, то точно не туда...

Пополняем знания: http://forum.pascal.net.ru/index.php?showtopic=2361

Автор: Bokul 13.07.2006 0:11

Смотреть, только после прочтения ссылки (касается только minkod)

procedure inverse(var s:string);
var i:byte; temp:string;
begin
temp:='';
for i:=length(s) downto 1 do
    temp:=temp+s[i];
s:=temp;
end;

var s,temp1,temp2:string; ch:char;
    i:byte;
begin
writeln('Enter string');
readln(s);
temp1:=copy(s,1,4);
temp2:=copy(s,5,4);
inverse(temp1);
inverse(temp2);
s:=temp2+temp1;
for i:=1 to length(s) do
    if (i mod 2)=0 then
       begin
            ch:=s[i];
            s[i]:=s[i-1];
            s[i-1]:=ch;
       end;
writeln(s);
readln;
end.

Автор: minkod 13.07.2006 1:35

Спасибо за помощь. FAQ почитал(узнал много нового).

Автор: volvo 13.07.2006 1:50

Bokul, можно вопрос?

Зачем ты делаешь

begin
  ch:=s[i];
  s[i]:=s[i-1];
  s[i-1]:=ch;
end;

, если у тебя уже есть Inverse? (Попутно: почему Inverse - процедура, а не функция? )

Смотри, что получилось:

function inverse(s: string): string;
var i: byte; temp: string;
begin
  temp:='';
  for i:=length(s) downto 1 do
    temp:=temp+s[i];
  inverse:=temp;
end;

var
  s, sr: string;
  i:byte;
begin
  writeln('Enter string'); readln(s);
  sr := '';

  s := inverse(copy(s,5,4)) + inverse(copy(s,1,4));
  for i:=1 to length(s) do
    if (i mod 2) = 0 then sr := sr + inverse(copy(s, i-1, 2));
  writeln(sr);
  readln;
end.

Автор: Bokul 13.07.2006 5:00

Да не знаю, первое что пришло в голову

А может и потому что Inverse зделал процедурой - натолкнуло на другое решения.

Согласен, так легче