Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Pascal.
1.Определить количество слов в предложении.
2.Определить какая буква в строке встречается чаще: первая или последняя.
3. Написать программу меняющую слово "Петр" на "Иван".

Ответ оставил Гость

Для подсчёта слов в предложении, вот код:

program Slova;
var
 s: string;
 r,i:integer;
begin
 writeln(Введите ваше предложение);
 readln(s);
 s:=s+ ;
 for i:=1 to length(s)-1 do
 if (s<> ) and (s[i+1]= ) then
 r:=r+1;
 writeln(В предложении ,r, слов. );
 readln;
end.

Какая буква встречается чаще

Program Bykv;
Var s:String;
    i,k1,k2:byte;
Begin
    write(Введите строку: );readln(s);
    For i:=2 to Length(s)-1 do
     if s[i]=s[1] then inc(k1)
      else if s[i]=s[Length(s)] then inc(k2);
    writeln(Первая буква встречается ,k1);
    writeln(Последняя буква встречается ,k2);
    writeln(Вывод:);
    if k1>k2 then writeln(Первая буква встречается чаще)
     else if k1     writeln(Последняя буква чаще)
      else writeln(Одинаково);
    readln;
End.

Изменить слово петя на иван в строке

program test;
var s,t,z,p:string;j:integer;
begin
writeln(Введите ваше предложение);
readln(s);
write(Введите слово которое хотите заменить: );
readln(t);
write(Введите замену слову: , t, <> );
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.