С использование цикла изменить первую букву каждого слова строки на заглавную

@lesha777 · Регистрация: 21.01.2014

Author24 — интернет-сервис помощи студентам

Вводится предложение из пяти слов. Сделать, с использование цикла, чтобы каждое слово начиналось с заглавной буквы.

Pascal

var
  s:string;
  i,k,l,m,d,c: byte; 
  j:integer;
begin
  k:=0;
  l:=0;
  write('введите строку: ');
  readln(s);
  for i := 1 to length(s) do
    begin 
      if (s[i]=' ') then
        begin
          j:=i;
          m:=j;
        end;
    end;
    
while m<>0 do
  begin
    m:=m div 10;
    d:=d+1;
  end;
  
for i:=1 to d do
 begin
  if s[1] in ['a'..'z'] then
    begin
    c:=j mod 10;
    c:=c+1;
      s[1]:=upcase(s[1]);
      s[c]:=upcase(s[c]);
      j:=j div 10;
    end;
  end;
 
for i := 1 to length(s) do
  write(s[i]);
end.

@Puporev · 06.02.2015, 17:28

Pascal

var
  s:string;
  n,i: byte;
begin
writeln('введите строку из 5 слов, разделенных пробелами:');
readln(s);
s:=' '+s;
n:=length(s);
for i:=1 to n do
if(s[i]<>' ')and(s[i-1]=' ') then
s[i]:=upcase(s[i]);
delete(s,1,1);
write(s);
end.

	06.02.2015, 17:28