Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
vitman89
Форумчанин
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:21     Подсчет количества слов (отредактировать код)
  #1
Отредактируйте программу.ТЗ:Посчитать в строке символов количество слов, написанных латинскими буквами. Слова в строке разделены пробелами, в конце текста точка.Сейчас если ввести "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.
AdAgent
Объявления
20.11.2013, 18:21
newyork7776
Форумчанин
300 / 293 / 31
Регистрация: 21.05.2013
Сообщений: 1,070
20.11.2013, 18:37
  #2
а число считать или нет?
vitman89
Форумчанин
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:41  [ТС]
  #3
newyork7776, не понял.нужно только посчитать сколько латинских слов было написано,а не количество пробелов.
newyork7776
Форумчанин
300 / 293 / 31
Регистрация: 21.05.2013
Сообщений: 1,070
20.11.2013, 18:43
  #4
да а если в лат слове есть цифра то к+1 или нет?
vitman89
Форумчанин
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:46  [ТС]
  #5
newyork7776, да,если с лат словом цифра то тоже добавлять.
"slovo1" ты же так имел ввиду?
newyork7776
Форумчанин
300 / 293 / 31
Регистрация: 21.05.2013
Сообщений: 1,070
20.11.2013, 18:51
  #6
Цитата Сообщение от vitman89 Посмотреть сообщение
"slovo1" ты же так имел ввиду?
именно
vitman89
Форумчанин
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 18:52  [ТС]
  #7
newyork7776, можешь отредактировать?
newyork7776
Форумчанин
300 / 293 / 31
Регистрация: 21.05.2013
Сообщений: 1,070
20.11.2013, 22:48
  #8
12,13 строка
Cyborg Drone
Модератор
1677 / 1381 / 187
Регистрация: 17.08.2012
Сообщений: 3,637
20.11.2013, 23:04
  #9
Цитата Сообщение от vitman89 Посмотреть сообщение
количество слов, написанных латинскими буквами
Цитата Сообщение от vitman89 Посмотреть сообщение
Podschet_probelov (s);
программа не соответствует заданию. Кто писал?
vitman89
Форумчанин
1 / 1 / 0
Регистрация: 24.03.2013
Сообщений: 89
20.11.2013, 23:07  [ТС]
  #10
Cyborg Drone, кто то с форума)точно не помню.Можешь исправить?
Cyborg Drone
Модератор
1677 / 1381 / 187
Регистрация: 17.08.2012
Сообщений: 3,637
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.
Yandex
Объявления
21.11.2013, 00:46
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Подсчет количества слов
Отредактируйте программу.ТЗ:Посчитать в строке символов количество слов, написанных латинскими буквами. Слова в строке разделены пробелами, в конце текста точка.Сейчас если ввести "sdfвыа ваыва" то...
Pascal ABC vitman89 06.11.2013 19:19
Pascal ABC Подсчет количества слов
Добрый день.Можете отредактировать программу.Само задание это подсчет количества латинских слов.У меня почему то он считает только пробелы. program Project4; var s: string; Procedure...
Pascal ABC vitman89 07.07.2013 20:50
C (СИ) Реализовать подсчет количества слов из определенного количества букв в строке
Как на языке си реализовать подсчет количества слов из, например, трех букв в строке?
C для начинающих Pashq4 19.05.2013 13:37
C++ Подсчет количества слов
С клавиатуры вводится строка. Составить программу, которая подсчитывает количество слов, имеющих нечетную длину; вводит на экран частоту вхождения каждой буквы; удаляет текст, который размещен в...
С++ для начинающих Slipknot666 27.11.2012 02:25
Turbo Pascal Подсчет количества слов
Помогите пожалуйста! Необходимо подсчитать количество слов, оканчивающихся на ЕЕ в нечетных абзацах и на О в четных. Katelinna, правила не для вас писаны? не создавате дблей тем в разделе и в...
Turbo Pascal Katelinna 12.11.2012 01:11
C++ Подсчет количества слов
Допустим, дана строка: "129 s23 ertr 234 0 e" Как подсчитать количество слов, состоящих только из латинских букв?
С++ для начинающих CoreF 17.10.2011 02:03
Pascal Файлы (подсчет количества слов)
Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.
Pascal (Паскаль) Laines 09.04.2010 19:24
Опции темы

Текущее время: 10:42. Часовой пояс GMT +4.

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