С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
vitman89
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
#1

Подсчет количества слов (отредактировать код) - Pascal

20.11.2013, 18:21. Просмотров 480. Ответов 10
Метки нет (Все метки)

Отредактируйте программу.ТЗ:Посчитать в строке символов количество слов, написанных латинскими буквами. Слова в строке разделены пробелами, в конце текста точка.Сейчас если ввести "sdfвыа ваыва" то программы выдаст что введено 2 слова вместо одного.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Project4;
 
var s: string;  
 
 
  Procedure Podschet_probelov (s: string);
   var   k, i: integer;
  begin
  s := ' ' + s;
  k:=0;         
  for i := 1 to length(s) do        
    if (s[i] = ' ')and(s[i+1]<>' ') then k := k + 1;     
  writeln(k);
  readln;
end;
 
 
Begin
   write('введите слова:');
   readln(s);
   Podschet_probelov (s);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2013, 18:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Подсчет количества слов (отредактировать код) (Pascal):

Файлы (подсчет количества слов) - Pascal
Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.

Подсчет количества слов в файле - Pascal
Напишите программу, которая считает количество слов в файле input.txt . Словом называется последовательность непробельных символов,...

Прокомментировать код для подсчёта количества слов в тексте - Pascal
Есть программа для подсчёта количества слов в тексте. Var f:text; s:string; k:integer; Begin ...

подсчет количества цифр - Pascal
собственно текст задачи: Первая и вторая строки входного файла(можно вводить с клавиатуры, а не файлом) содержат начало и конец...

Подсчет количества чисел в диапозоне... - Pascal
Вводятся ненулевые целые числа, конец ввода - число 0. Подсчитать количество чисел вне диапазона . Подскажите пожалуйста как...

нахождение вектора (отредактировать код) - Pascal
Здравствуйте.Помогите отредактировать программу.ТЗ:Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор,...

10
newyork7776
350 / 343 / 80
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
20.11.2013, 18:37 #2
а число считать или нет?
0
vitman89
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:41  [ТС] #3
newyork7776, не понял.нужно только посчитать сколько латинских слов было написано,а не количество пробелов.
0
newyork7776
350 / 343 / 80
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
20.11.2013, 18:43 #4
да а если в лат слове есть цифра то к+1 или нет?
0
vitman89
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:46  [ТС] #5
newyork7776, да,если с лат словом цифра то тоже добавлять.
"slovo1" ты же так имел ввиду?
0
newyork7776
350 / 343 / 80
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
20.11.2013, 18:51 #6
Цитата Сообщение от vitman89 Посмотреть сообщение
"slovo1" ты же так имел ввиду?
именно
1
vitman89
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:52  [ТС] #7
newyork7776, можешь отредактировать?
0
newyork7776
350 / 343 / 80
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
20.11.2013, 22:48 #8
12,13 строка
0
Cyborg Drone
Модератор
4783 / 2950 / 1179
Регистрация: 17.08.2012
Сообщений: 9,420
20.11.2013, 23:04 #9
Цитата Сообщение от vitman89 Посмотреть сообщение
количество слов, написанных латинскими буквами
Цитата Сообщение от vitman89 Посмотреть сообщение
Podschet_probelov (s);
программа не соответствует заданию. Кто писал?
1
vitman89
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 23:07  [ТС] #10
Cyborg Drone, кто то с форума)точно не помню.Можешь исправить?
0
Cyborg Drone
Модератор
4783 / 2950 / 1179
Регистрация: 17.08.2012
Сообщений: 9,420
21.11.2013, 00:46 #11
Нет. Исправлять не буду.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program latin;
 
var s, w: string;
    i, n: integer;
    f: boolean;
 
begin
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1); //оставляем по одному пробелу
  n := 0; //счётчик латинских слов
  while pos(' ', s) > 0 do //пока не кончатся слова
    begin
      w := copy(s, 1, pos(' ', s)); //копируем слово в буфер
      delete(s, 1, pos(' ', s)); //удаляем слово из строки
      f := true; //пока считаем, что латынь
      for i := 1 to length(w) - 1 do //просматриваем слово, пробел не учитываем
        if not(w[i] in ['A'..'Z', 'a'..'z']) then //если буква не латинская,
          begin
            f := false; //это не латынь
            break //и прекращаем просматривать слово
          end;
      if f then n := n + 1 //если латынь, подсчитываем
    end;
  writeln('Latin words: ', n); //voila!
  readln
end.
0
21.11.2013, 00:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2013, 00:46
Привет! Вот еще темы с ответами:

Подсчет количества произведенных операций программы - Pascal
Собственно имеется программа по вычислению суммы значений функции, но программа еще должна сама подсчитать сколько действий было выполнено...

Подсчет количества разных элементов массива - Pascal
В массиве N подсчитать количество разных чисел помогите ,пожалуйста,буду признателен.

Подсчет количества одинаковых цифр в числе - Pascal
Программа подсчета одинаковых цифр в числе.

Подсчет количества гласных букв в строке - Pascal
Помогите решить задачу: написать программу подсчета гласных букв во веденном предложении.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.