Версия для печати темы

Автор: nesh 13.05.2007 23:18

Всем ПРИВЕТ!!!
Очень нужно несколько простеньких задач по строковым переменным:
1)Определить количество знаков препинания в строке;
2)Определить количество цифр в строке;
3)Удалить из строки символов все пробелы;
4)Определить самое длинное слово в строке.
Каждая программа должна быть отдельно и слова в них я должен вводить свои!!!
P.S. Ответы набери в поиске не принимаются, так как я все облазил в поисковике, но именно вот этих программ по строковым переменным я не нашел!!!
ЗАРАНЕЕ ОЧЕНЬ БЛАГОДАРЕН!!!!!

Автор: compiler 13.05.2007 23:24

а сам пробывал?
вроде все действительно просто.. во всех программах тебе прейдеться проходить циклом по строке и проверять условия, если верно тогда делай определенные операторы...
напоминаю, Length(s); - возращает длину строки, она тебе понадобится...

Автор: Артемий 13.05.2007 23:41

1.

var
s: string;
i,count: byte;
begin
readln(s);
 for i:=1 to length(s) do begin
  if s[i] in ['.',',',';',':','?','!'] then 
   inc(count)
 end;
writeln(count);
readln
end.

2.

var
s: string;
i,count: byte;
begin
readln(s);
 for i:=1 to length(s) do begin
  if s[i] in ['0'..'9'] then
   inc(count)
 end;
writeln(count);
readln
end.

3.

var
s: string;
i: byte;
begin
readln(s);
 for i:=1 to length(s) do begin
  if s[i] = ' ' then
   delete(s,i,1);
 end;
writeln(s);
readln
end.

Автор: Tan 13.05.2007 23:47

Артемий, а тире, ковычки, многоточие, скобки, косая черта и т.д. ведь тоже знаки препинания.

Автор: Артемий 13.05.2007 23:48

Сам хоть что-то пусть сделает!Или я нанялся все учитывать?