07.05.2014, 11:04 | #1 (permalink) |
Новичок
Регистрация: 28.04.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа с символьными данными
задача звучит так: Программа, отделяющая из введенной строки символов отдельные слова (пробел - символ-разделитель) и выводящую их перечень. Заранее спасибо! |
07.05.2014, 11:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же вы можете найти интересующую вас информацию в аналогичных топиках Программа на Си ДК Панасоник, диск с данными Помогите выбрать ноутбук с сильным звуком и хорошими техническими данными |
07.05.2014, 11:30 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var S:string; i,N:integer; W:Array[1..128] of String; Begin writeln('Enter the string: '); readln(S); N:=1; i:=0; Repeat Inc(i); W[N]:=''; While (S[i]<>' ') and (i<=Length(S)) do begin W[N]:=W[N]+S[i]; Inc(i); end; If S[i]=' ' then Inc(N); Until i>=Length(S); For i:=1 to N do Writeln(W[i]); Readln End. |
|
07.05.2014, 11:56 | #3 (permalink) | |
Новичок
Регистрация: 28.04.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
07.05.2014, 13:03 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
И да, вроде этот идиотский АВС не любит открытых строк. Попробуйте поставить, например S:String[200]; W:Array[1..10] of String[10]; Может быть, так сожрет? |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|