да , но если допустим строка :
fsd/*fdsfsd*/fsdfsd/*vcxvx*/vcxv
fsdfsd
fsdf
то выведет fdsfsd , а vcxvx где ?????????????
вот еще одна правдо мало отличающаяся от той только в ней я не пойму после прохода цикла он берет на 2 цикле строку из первого цикла получается каша ничего не могу поделать объясните че сдесь не так
Код
program mas1;
type
mas= array [1..20] of string;
mass= array [1..20] of integer;
procedure one(var a,b:mas;var c:mass;var y,x:string; k:integer;var u:integer);
var i,j,t,d,e,q,w,z:integer;
begin
t:=0;
d:=0;
u:=0;
x:='';
y:='';
for i:=1 to k do
begin
x:=a[i];
for j:=1 to length(x) do
begin
begin
T:=pos('*/',x);
d:=pos('/*',x);
if (t>d) then
begin
for e:=d+2 to t-1 do
begin
y:=y+a[i][e];
{c[i]:=c[i]+s[i][e];}
delete(x,d,1);
end;
end;
end;
begin
if y<>'' then
begin
inc(u);
b[u]:=y;
y:='';
c[u]:=i;
delete(x,d,4);
t:=0;
d:=0;
{z:=length(x);
for q:=1 to d-1 do
for w:=t to length(x) do
begin
x:=x+x[q]+x[w];
end;
delete(x,1,z);}
end;
end;
end;
end;
end;
var a,b:mas;
c:mass;
n,k,i,u:integer;
y,x:string;
begin
writeln('vvedite k');
readln(k);
for i:=1 to k do
begin
readln(a[i]);
end;
one(a,b,c,y,x,k,u);
for i:=1 to u do
begin
writeln(b[i],' ',c[i]);
end;
readln;
end.