Програмування рядкових величин, Детальна інформація

Програмування рядкових величин
Тип документу: Реферат
Сторінок: 5
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 7.7
Скачувань: 1118
  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; 

The online video editor trusted by teams to make professional video in minutes