0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 35
1

Функция: вернуть количество слов, заканчивающихся на согласную букву

26.12.2008, 16:33. Показов 1319. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
функция countsoglend(f:text):word возвращает количество слов, заканчивающихся на согласную букву в текстовом файле f, содержащем английский текст. Это последнее задание! и самое важное для меня....
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2008, 16:33
Ответы с готовыми решениями:

Определить количество слов заканчивающихся на букву ''Q''
Вводится последовательность символов определить количество слов заканчивающихся на букву ''Q'' без...

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

Посчитать количество слов заканчивающихся на заданную букву
Дано предложение.Посчитать количество слов заканчивающихся на заданную букву,и записать эти слова в...

Определить количество слов в тексте, оканчивающихся на согласную букву
Определить количество слов в тексте, оканчивающихся на согласную букву

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.12.2008, 17:50 2
Вот что-то написал, у меня работает, погоняй, будут замечания, пиши. Что-то я смотрю это не последняя задача, еще одна появилась.
Код
функция countsoglend(f:text):word возвращает количество слов, заканчивающихся на согласную букву в текстовом файле f, содержащем английский текст. Это последнее задание! и самое важное для меня....

uses crt;
const sgl=['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t', {все согласные большие не брал, их в конце не бывает, если что, добавь}
          'v','w','x','z'];
      rz=['.',',',';',':','?','!',' '];{разделители слов, можешь добавить скобки, тире и пр.}
function Countsoglend(var f:text):word;
var k,i:word;
    g:text;
    s:string;
begin
k:=0;
reset(f);
while not eof(f) do
   begin
     readln(f,s);
     for i:=1 to length(s) do
     if (s[i] in sgl)and(s[i+1] in rz) then k:=k+1;{если конец слова и согласная}
   end;
Countsoglend:=k;
close(f);
end;
var g:text;
    s:string;
begin
clrscr;
assign(g,'text.txt');
write('Kolichestvo slov na soglasnuyu=',Countsoglend(g));
readln
end.
Добавлено через 53 секунды
Не забудь файл text создать.
1
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 35
26.12.2008, 18:47  [ТС] 3
Puporev, это последняя по зачету) а та на экзамене у меня будет.... и как на зло я на этой теме не была... так что ту совершенно не пойму как делать...
0
26.12.2008, 18:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2008, 18:47
Помогаю со студенческими работами здесь

Подсчитать количество слов, заканчивающихся на букву “z”(:
1. Выведите на экран все символы, встречающиеся в строке, без пробела. 2. Напишите программу...

Определите количество слов, заканчивающихся на заданную букву
ребята срочно нужна помощь плохо программирую на языке visual basic а тут как на зло попалась...

Количество слов начинающихся и заканчивающихся на одну и ту же букву
Разработайте программу для поиска количества слов, начинающихся и заканчивающихся на, одну и ту же...

Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву
Написать программу на С++. Дана строка, содержащая текст. Подсчитать количество слов, начинающихся...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru