горит практика по паскалю, паскаль Опции

[Diablo]

М

Пользуемся тегами !

Помогите с заданием.
завтра сдавать, а времени в обрез.
--//--
Пользуясь тем, что ln(1+x)=x-x2/2+x3/3-…+(-1)n-1 xn/n+…
При х [-1;1] вычислить значение ln(1+x) для указанного значения х0 [-1;1] с точностью е=0,001. Точность вычисления считается выполненной, если последний по модулю член в сумме меньшее.
--//--
нужно изменить, чтобы выводилось только первое вхождение символов.

Program Pr_6;
Uses crt;
Var s,max,z:string;
    K,i,j,d,m,b:integer;c:boolean;
Begin
     Clrscr;
     Write('Vvedite stroku S: ');
     Readln(s);
     S:=s+' ';
     Max:='';z:='';
     for i:=1 to length(s) do
       If (copy(s,i,1)<>' ')and(copy(s,i+1,1)=' ') then
         Begin z:=z+copy(s,i,1);
             If length (z)>length(max) then
             Max:=z ;
             Z:='';
         End
         Else z:=z+copy(s,i,1);
          Writeln('MAX: ',max);
          writeln;
     For i:=1 to length(s) do
       If (copy(s,i,1)<>' ')and(copy(s,i+1,1)=' ') then
          Begin z:=z+copy(s,i,1);

          d:=i;    c:=false;
            For j:=i-length(z)+1 to i-1 do
              Begin

                For m:=j+1 to i do
                  If s[j]=s[m] then c:=true; end;
                If c=false then    writeln(copy(s,i-length(z)+1,length(z)));
                 z:='';
                {b:=b+1;
                writeln('c=',c);
              End;
            If b=length(z) then writeln(z);}
          End
             Else z:=z+copy(s,i,1);
      { Writeln('z: ',z); }
     Repeat
     Until keypressed;
End.

Сообщение отредактировано: klem4 - 15.05.2007 17:16