Паскаль. Объединение строк.

[gotex]

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

Даны две строки.
задача:объёдинение символов двух строк в выходную строку, в которой символы исходных строк чередуются через один

вот код:


program LAb5_brig2;
uses crt;
const LabText = 'c:\textlab5.txt';

{__________________PROCEDURA CHTENI9____________________________ }

Procedure Chtenie(var Fname:text; var str1,str2:string);
Begin
Assign(fname, labText);
Reset(Fname);

Readln(Fname, str1);
Readln(Fname, str2);
close(fname);
Writeln ('Perva9 stroka: ', str1);
Writeln ('Vtora9 stroka: ', str2);
writeln;
end;

Procedure New_String(Var NewSTR:string; Str1:string; str2:string; N:integer; K:integer);
Var
i,t,m:integer;
begin
t:=0;
m:=1;
for i:=1 to (N+K) do begin
if odd(i) then begin
NewSTR[i]:=Str2[i-m];
inc(m);
end
else
begin
NewSTR[i]:=STR1[i-t];
inc(t);
end;
inc(i);
end;
Writeln('New String: ', NewSTR);
end;


{______________________}

Var

str1,str2,NewSTR:string;
N,K:integer;
Fname:text;
Begin

Clrscr;
Chtenie(Fname,str1,str2);
writeln;
N:=length(str1);
K:=Length(str2);
New_String(NewSTR,Str1,Str2,N,K);
readln;
end.


Строка не выходит на экран

[alexBlack]

1. Не устанавливается длина строки - newStr[0] := CHR(N+K);
2. Лишний inc(i) в цикле for

[puporev]

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

program LAb5_brig2;
uses crt;
const LabText = 'textlab5.txt';
type Tstr=array[1..2]of string;
var str:Tstr;
    i:integer;
    Fname:text;
    NewStr:string;
{__________________PROCEDURA CHTENI9____________________________}

Procedure Chtenie(var Fname:text; var str:Tstr);
Begin
Assign(fname, labText);
Reset(Fname);
i:=0;
while not eof(fname) do
    begin
	   i:=i+1;
     Readln(Fname, str[i]);
	   Writeln ('stroka ',i,' : ', str[i]);
    end;
writeln;
close(fname);
end;

Procedure New_String(Var NewSTR:string; Str:Tstr);
Var
n,k:integer;
begin
n:=length(str[1]);
k:=length(str[2]);
if n<=k then
   begin
     NewSTR:='';
     for i:=1 to 2*N do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[2],n+1,k-n);
   end
else
   begin
     NewSTR:='';
     for i:=1 to 2*k do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[1],k+1,n-k);
   end;
Writeln('New String: ', NewSTR);
end;


{______________________}

Begin
Clrscr;
Chtenie(Fname,str);
writeln;
New_String(NewSTR,Str);
readln;
end.

[gotex]

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

1. Не устанавливается длина строки - newStr[0] := CHR(N+K);
2. Лишний inc(i) в цикле for

убрал inc, установил длину строки:

....
Procedure New_String(Var NewSTR:string; Str1:string; str2:string; N:integer; K:integer);
Var
i,t,m:integer;


begin
NewSTR[0]:=CHR(N+K);
t:=0;
m:=1;
for i:=1 to (N+K) do begin
if odd(i) then begin
NewSTR[i]:=Str2[i-m];
inc(m);
end
else
begin
NewSTR[i]:=STR1[i-t];
inc(t);
end;
end;
Writeln('New String: ', NewSTR);
end;

......

делал тесты сам на листке, считал...поидее алгоритм правильный, но выходит какаято чушь на экран((

[gotex]

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

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

program LAb5_brig2;
uses crt;
const LabText = 'textlab5.txt';
type Tstr=array[1..2]of string;
var str:Tstr;
    i:integer;
    Fname:text;
    NewStr:string;
{__________________PROCEDURA CHTENI9____________________________}

Procedure Chtenie(var Fname:text; var str:Tstr);
Begin
Assign(fname, labText);
Reset(Fname);
i:=0;
while not eof(fname) do
    begin
	   i:=i+1;
     Readln(Fname, str[i]);
	   Writeln ('stroka ',i,' : ', str[i]);
    end;
writeln;
close(fname);
end;

Procedure New_String(Var NewSTR:string; Str:Tstr);
Var
n,k:integer;
begin
n:=length(str[1]);
k:=length(str[2]);
if n<=k then
   begin
     NewSTR:='';
     for i:=1 to 2*N do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[2],n+1,k-n);
   end
else
   begin
     NewSTR:='';
     for i:=1 to 2*k do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[1],k+1,n-k);
   end;
Writeln('New String: ', NewSTR);
end;


{______________________}

Begin
Clrscr;
Chtenie(Fname,str);
writeln;
New_String(NewSTR,Str);
readln;
end.

спасибо!
а что за команда eof и div?

[puporev]

EOF - признак конца файла. Div - целое деление, например 4 div 2=2; 5 div 2=2; 9 div 5=1;

[gotex]

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

EOF - признак конца файла. Div - целое деление, например 4 div 2=2; 5 div 2=2; 9 div 5=1;

Понятно) Спасибо!