Вопрос по информатике:
Помогите изменить код 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.
- 23.06.2018 22:53
- Информатика
- remove_red_eye 3385
- thumb_up 25
Ответы и объяснения 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
begin
while (i<=length(s)) and (s[i]=' ') do inc(i);
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.
- 24.06.2018 19:22
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.