Програмування рядкових величин, Детальна інформація
Програмування рядкових величин
s1:=copy(s,1,n-1);
writeln(s1);
delete(s,1,n);
n:=pos(‘ ‘,s)
end;
writeln(s)
end;
procedure max_word(s:string; var s1:string);
{ процедура знаходження найбільшого слова тексту }
var m,n,max:integer;
s2:string;
begin
s1:=”;
max:=0;
n:=pos(‘ ‘,s);
while n<>0 do
begin
s2:=copy(s,1,n-1);
m:=length(s2);
if m>max then
begin
max:=m;
s1:=s2
end;
delete(s,1,n);
n:=pos(‘ ‘,s)
end;
m:=length(s);
if m>max then s1:=s
end;
writeln(s1);
delete(s,1,n);
n:=pos(‘ ‘,s)
end;
writeln(s)
end;
procedure max_word(s:string; var s1:string);
{ процедура знаходження найбільшого слова тексту }
var m,n,max:integer;
s2:string;
begin
s1:=”;
max:=0;
n:=pos(‘ ‘,s);
while n<>0 do
begin
s2:=copy(s,1,n-1);
m:=length(s2);
if m>max then
begin
max:=m;
s1:=s2
end;
delete(s,1,n);
n:=pos(‘ ‘,s)
end;
m:=length(s);
if m>max then s1:=s
end;
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021