Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.12.2010, 19:39   #1
guksm
 
Регистрация: 11.12.2010
Сообщений: 3
Сообщение Написать программу, которая считывает текст

Здравствуйте! Помогите плиз ! Очень срочно !
Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв на TURBO PASCAL-e.

Последний раз редактировалось guksm; 12.12.2010 в 10:05.
guksm вне форума
Старый 11.12.2010, 19:40   #2
dekameron
Форумчанин
 
Аватар для dekameron
 
Регистрация: 27.04.2010
Сообщений: 185
По умолчанию

сколько в нем слов,состоящих не более из четырех слов?
Помог - тырк на весы
dekameron вне форума
Старый 11.12.2010, 19:42   #3
guksm
 
Регистрация: 11.12.2010
Сообщений: 3
По умолчанию

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

Последний раз редактировалось guksm; 12.12.2010 в 10:06.
guksm вне форума
Старый 11.12.2010, 21:28   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Вы не поняли: слова состоят из букв, слогов. что вам надо?
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 11.12.2010, 21:37   #5
iBuTTHead
Пользователь
 
Регистрация: 05.11.2010
Сообщений: 35
По умолчанию

Докатились. Уже не в состоянии написать программу имеющую смысл.)) Слова состоят из букв - Бог, Слова состоят из слов - guksm
iBuTTHead вне форума
Старый 12.12.2010, 10:06   #6
guksm
 
Регистрация: 11.12.2010
Сообщений: 3
По умолчанию

Смысл задачи понятно же, ошибочка вышла - не более чем четырех букв
guksm вне форума
Старый 12.12.2010, 12:28   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Считывай построчно
Код:
while not eof(f) do begin
 readln(f,s);
 ...
end;
Где f - Text, а s - string.
И используй http://www.programmersforum.ru/showt...369#post398369
для развода строки на слова. В том же цикле проверяй длину полученного слова, и если она менее 4 то выводи на экран.
Смысл ясен?
I'm learning to live...
Stilet вне форума
Старый 12.12.2010, 13:03   #8
Mixim
Форумчанин
 
Регистрация: 29.10.2009
Сообщений: 259
Восклицание

Цитата:
Сообщение от guksm Посмотреть сообщение
Здравствуйте! Помогите плиз ! Очень срочно !
Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв на TURBO PASCAL-e.
Уже примерно год не работаю с языком Pascal\Object Pascal, но попробую...заранее извиняюсь, если будет небольшое "комбо" паскаля и C++
Код:
program my;
var f:file of string;
s:string;
CountSymbol:longint;
CountWord: longint;
begin
CountWord = 0;
Assign(f, "C:\MyFile.txt");
 while( not(eof(f)) ) do begin
    readln(f, s);
    while(CountSymbol<=length(s)) do begin
        CountSymbol=1;
        while( (s[CountSymbol]<>' ') and(CountSymbol <=length(s)) ) do
             CountSymbol = CountSymbol + 1;
         if(CountSymbol<=4)
              CountWord = CountWord + 1;
    end;
 end;
close(f);
writeln("Количество слов, состоящих из не более чем 4 символов равно", CountWord);
end.
Код примерно такой, но я его не компилировал и не проверял... может быть есть небольшие ошибки и в некоторых местах "прилеплен" язык Си\Си++, но это маловероятно. Старался писать код наиболее понятно и принципиально не использовал "транслит"
Из всех классических книг, посвященных программированию, ненавижу всего одну - русский перевод книги Роберта Седжвика-"Фундаментальные алгоритмы C++". Предпочитаю читать её в оригинале.
Mixim вне форума
Старый 05.04.2014, 16:05   #9
Lovelygirl503
Новичок
Джуниор
 
Регистрация: 20.01.2013
Сообщений: 1
По умолчанию

а на c# как написать?
Lovelygirl503 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++ написать программу которая к результату 25, добовляла и отнимала от результата, n=(1,3,9,12) ReVas Помощь студентам 9 08.11.2010 20:19
Написать программу которая создаэт текстовый файл c данними SashOK1991 Паскаль, Turbo Pascal, PascalABC.NET 0 06.06.2010 15:45
Написать программу, которая проверяет формулы на эквивалентность oksana baybuza Общие вопросы C/C++ 3 18.02.2010 19:38
Составить программу, которая читает произвольный текст Doublefaced Помощь студентам 12 21.06.2009 00:24
написать программу которая строила графики функций GeSerKo Помощь студентам 1 05.09.2008 21:03