М | Пользуемся тегами ! |
Помогите с заданием.
завтра сдавать, а времени в обрез.
--//--
Пользуясь тем, что 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 -