Задание в Pascal ABC

@Gromperk · Регистрация: 10.12.2015

Author24 — интернет-сервис помощи студентам

Дана строка. Группы символов, разделённых пробелами (одним или несколькими) и не содержащим пробелов внутри себя будем называть словами. Подсчитать количество слов в данной последовательности. Помогите, пожалуйста.

@иван я · 10.12.2015, 18:26

Gromperk,

Pascal

Program forum;
 uses crt;
 var
  s :String;
   i,j:integer;
begin
j:=1;
  clrscr;
  Write('Введите строку: ');
  readln(s);
  for i:=1 to Length(s) do
     begin
     if(s[i]=' ')then Delete(s,i,1)
     else if(s[i]<>' ')and (s[i+1]=' ') then    j:=j+1;
     end;
      if(s[length(s)]=' ') then j:=j-1;
  writeln('количество строк: ',j);
end.

@Gromperk · 10.12.2015, 18:42 **[ТС]**

Пишет, что находиться вне границ массива.

@иван я · 10.12.2015, 18:45

Gromperk, какого массива? тут массив не используется. у меня все нормально работает.

@иван я · 10.12.2015, 19:02

Gromperk, работает? нашли ошибку?

@Gromperk · 10.12.2015, 19:07 **[ТС]**

Но у меня ошибка

@иван я · 10.12.2015, 19:11

Gromperk, у вас точно паскаль ABC?

@Gromperk · 10.12.2015, 19:16 **[ТС]**

Да , Pascal ABC.NET

@иван я · 10.12.2015, 19:34

Gromperk, попробуй скачать простой паскаль ABC. Не ABC.NET, а именно ABC. Потому что я делал в обычном ABC. В ABC.NET я не работал.

Добавлено через 16 минут
Gromperk, скачали?

@Gromperk · 10.12.2015, 19:59 **[ТС]**

Да, работает , спасибо.

@иван я · 10.12.2015, 20:46

Gromperk, если не трудно нажми на кнопку спасибо.

@Gromperk 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 17
		1
	Задание в Pascal ABC 10.12.2015, 14:30. Показов 1682. Ответов 10 Метки нет (Все метки) Дана строка. Группы символов, разделённых пробелами (одним или несколькими) и не содержащим пробелов внутри себя будем называть словами. Подсчитать количество слов в данной последовательности. Помогите, пожалуйста. 0

@Gromperk 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 17
	10.12.2015, 18:42 [ТС]	3
	Пишет, что находиться вне границ массива. 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	10.12.2015, 18:45	4
	Gromperk, какого массива? тут массив не используется. у меня все нормально работает. Миниатюры 1

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	10.12.2015, 19:02	5
	Gromperk, работает? нашли ошибку? 1

@Gromperk 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 17
	10.12.2015, 19:07 [ТС]	6
	Но у меня ошибка Миниатюры 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	10.12.2015, 19:11	7
	Gromperk, у вас точно паскаль ABC? 1

@Gromperk 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 17
	10.12.2015, 19:16 [ТС]	8
	Да , Pascal ABC.NET 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	10.12.2015, 19:34	9
	Gromperk, попробуй скачать простой паскаль ABC. Не ABC.NET, а именно ABC. Потому что я делал в обычном ABC. В ABC.NET я не работал. Добавлено через 16 минут Gromperk, скачали? 1

@Gromperk 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 17
	10.12.2015, 19:59 [ТС]	10
	Да, работает , спасибо. 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	10.12.2015, 20:46	11
	Gromperk, если не трудно нажми на кнопку спасибо. 2

Задание в Pascal ABC

Решение