Помогите изменить код pascal Нужно по другому записать функцию if или вообще переписать...

Question

Помогите изменить код pascal
Нужно по другому записать функцию if или вообще переписать программу , но чтобы смысл был тот же
Заранее спасибо !
Сам код pascal :
const
t=5.0;
cl=0.9;
var
s:string;
a,i:byte;
begin
writeln('Введите ваше сообщение');
Readln(s);
For i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]<>' ') then inc(a);
a:=a+1;
writeln('Количество слов - ', a);
begin
writeln('Стоимость телеграммы ',t+cl*a,' руб');
end;
end.

Comments

Это я же просил

---

Ах-ах, учитель злобный, проверяет решение на "Антиплагиате"...

---

Только добавил счет слов в строке

---

Поменяйте имена переменных и все дела.

---

Нет , не в антиплагиате дело

---

Можно ли переделать код , не используя функцию if ?

---

if - это не функция, а условный оператор. Как можно писать программу с проверками, если в ней условия не проверять?

---

Эта программа еще и вылетать будет на последнем символе строки

---

Из-за обращения к следующему (т.е. конечному + 1) символу

---

Моя первоначальная не должна вылетать, потому что там я дописывал в конец специально лишний пробел.

Answer 1

Constt=5.0;
cl=0.9;
var 
s:string;
a,i:byte;
f:boolean;
begin
writeln('Введите ваше сообщение');
Readln(s);
a:=0;
i:=1;
while i<=length(s) do<br>begin
 while (i<=length(s)) and (s[i]=' ') do inc(i); <br> f:=(i<=length(s)) and (s[i]<>' '); 
 while f do
  begin
   inc(a);
   f:=false;
  end;
 while (i<=length(s)) and (s[i]<>' ') do inc(i);
end;
writeln('Количество слов - ', a);
writeln('Стоимость телеграммы ',t+cl*a,' руб');
end.

Comments

Можно IF заменить на boolean

---

Это усложнит код, но функция IF задействована не будет