Вопрос по информатике:
Добавить в программу подсчет слов.
Program Stroka;
var S;S1 : string ;
p : intenger ; <номер пробела>
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do (пока есть пробелы)
begin
S1 := copy(s,1,P); <копирует слово>
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
end;
S<1> := up case(S<1>);
writeln(s)
readln;
end.
- 17.08.2018 17:56
- Информатика
- remove_red_eye 19587
- thumb_up 16
Ответы и объяснения 2
//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
- 18.08.2018 08:17
- thumb_up 34
//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
- 19.08.2018 19:04
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.