Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вот так тема про PASCAL, Please 
:(
    Опции темы
dead
Дата 11.6.2006, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Здравствуйте!
У меня к вам такая прозьба:
Помогите пожалуйста сделать 2 программы (на ПАСКАЛЕ):
1) Дано натуральное число n. Подсчитать кол-во букв k в последнем её слове.
2) Дан текстовый файл. Подсчитать кол-во предложений в этом файле.
Тем кто отзовется большое спасибо!!! 
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(dead @  11.6.2006,  20:12 Найти цитируемый пост)
1) Дано натуральное число n. Подсчитать кол-во букв k в последнем её слове.

Начал "врубаться" в задание и в такие дебри залез... Поясни пожалуйста, что нужно smile

Цитата(dead @  11.6.2006,  20:12 Найти цитируемый пост)
2) Дан текстовый файл. Подсчитать кол-во предложений в этом файле.

Надеюсь на Delphi в консоли подойдёт? Если что переделаем как надо:
Код
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f: TextFile;
  c: Integer = 0;
  s: string;
begin
  AssignFile(f, 'C:\VideoEditor.log');
  FileMode := fmOpenRead;
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 then
    while not EOF(f) do
      begin
        Readln(f, s);
        Inc(c);
      end;
  Writeln('String count in file: ', c);
  ReadLn;
end.
  

Это сообщение отредактировал(а) Yanis - 11.6.2006, 19:56


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mal Hack
Дата 11.6.2006, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мудрый...
****


Профиль
Группа: Участник Клуба
Сообщений: 9926
Регистрация: 15.2.2004

Репутация: нет
Всего: 261
Цитата(Yanis @  11.6.2006,  19:56 Найти цитируемый пост)
Начал "врубаться" в задание и в такие дебри залез... Поясни пожалуйста, что нужно smile

Аффтар ацкий сотона smile)))))))))) Япоцтолом ржунимагу !!!


Цитата(Yanis @  11.6.2006,  19:56 Найти цитируемый пост)
Надеюсь на Delphi в консоли подойдёт? Если что переделаем как надо:

Ему предложения нужны. А это - количество точек.
Код полдностью писать не буду, выше уже есть, смысл сводится к тому, что читаем весь файл в одну переменную, затем считать точки в цикле, сравнивая с s[i].
 
PM ICQ   Вверх
dead
Дата 11.6.2006, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Yanis, 
Вот блин!
Я неправильно написал
1) Дана символьная строка. Подсчитать количество букв k в последнем её слове!

Добавлено @ 20:48 
Mal Hack, 
Помоги пожалуйста тоже, очень надо плиз smile  

Это сообщение отредактировал(а) dead - 11.6.2006, 20:46
PM MAIL   Вверх
dead
Дата 11.6.2006, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
сорри 

Это сообщение отредактировал(а) dead - 11.6.2006, 21:27
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(Mal Hack @  11.6.2006,  21:25 Найти цитируемый пост)
Аффтар ацкий сотона )))))))))) Япоцтолом ржунимагу !!!

 smile 

Цитата(Mal Hack @  11.6.2006,  21:25 Найти цитируемый пост)
Ему предложения нужны. А это - количество точек.
Код полдностью писать не буду, выше уже есть, смысл сводится к тому, что читаем весь файл в одну переменную, затем считать точки в цикле, сравнивая с s[i].

 smile Понял теперь smile Предложение != Строка. Спасибо за разъяснение. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dead
Дата 11.6.2006, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Yanis, 
Спасибо, что пытаешься мне помочь - прям добрый души человек!
Спасибо тебе... 
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(dead @  11.6.2006,  20:12 Найти цитируемый пост)
2) Дан текстовый файл. Подсчитать кол-во предложений в этом файле.

Тогда так:
Код
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f: TextFile;
  c: Integer = 0;
  s: string;

function DotCount(const S: string): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    if s[i] in ['.', '!', '?', ';'] then Inc(Result);
end;

begin
  AssignFile(f, 'C:\abracadabra.txt');
  FileMode := fmOpenRead;
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 then
    while not EOF(f) do
      begin
        Readln(f, s);
        Inc(C, DotCount(s));
      end;
  Writeln('String count in file: ', c);
  ReadLn;
end.


Очень грубо, но для зачёта пойдёт smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dead
Дата 11.6.2006, 22:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Yanis, 
Работает 2 задача, а вторую знаешь как сделать? 
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(dead @  11.6.2006,  21:43 Найти цитируемый пост)
1) Дана символьная строка. Подсчитать количество букв k в последнем её слове!

Типа того:
Код
program Project1;

{$APPTYPE CONSOLE}

var
  s: string;
  i: Integer;
  c: Integer = 0;

begin
  Write('Please, input string for calculate: ');
  Readln(s);

  i := Length(s);
  while (s[i] = ' ') and (i <= Length(s)) do
    Dec(i);

  for i := i downto 1 do
    if s[i] = ' ' then Break
    else Inc(c);

  Writeln('Char count in last word: ', c);
  ReadLn;
end.


Добавлено @ 22:17 
Цитата(dead @  11.6.2006,  23:09 Найти цитируемый пост)
Работает 2 задача, а вторую знаешь как сделать? 

Ты навреное имел ввиду "первая задача" smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dead
Дата 11.6.2006, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Цитата(Yanis @ 11.6.2006,  22:15)
Цитата(dead @  11.6.2006,  21:43 Найти цитируемый пост)
1) Дана символьная строка. Подсчитать количество букв k в последнем её слове!

Типа того:
Код
program Project1;

{$APPTYPE CONSOLE}

var
  s: string;
  i: Integer;
  c: Integer = 0;

begin
  Write('Please, input string for calculate: ');
  Readln(s);

  i := Length(s);
  while (s[i] = ' ') and (i <= Length(s)) do
    Dec(i);

  for i := i downto 1 do
    if s[i] = ' ' then Break
    else Inc(c);

  Writeln('Char count in last word: ', c);
  ReadLn;
end.


Добавлено @ 22:17 
Цитата(dead @  11.6.2006,  23:09 Найти цитируемый пост)
Работает 2 задача, а вторую знаешь как сделать? 

Ты навреное имел ввиду "первая задача" smile

ТОЧНО 1

Добавлено @ 22:25 
1 здача непахает... smile 
она по идеи должна работать так:
Печатаем предложение в программу, программа проверяет предложение и определяет кол-во БУКВ "k" в последнем слове предложения!!! 
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(dead @  11.6.2006,  23:21 Найти цитируемый пост)
1 здача непахает...  
она по идеи должна работать так:
Печатаем предложение в программу, программа проверяет предложение и определяет кол-во БУКВ "k" в последнем слове предложения!!!  

Ну да так и есть. Что именно неработает? 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dead
Дата 11.6.2006, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Yanis, 
прога эта счетает сколько символов в последнем слове, а мне нужно:
Печатаем предложение в программу, программа проверяет предложение и определяет кол-во БУКВ "k" в последнем слове предложения!!!    
PM MAIL   Вверх
Yanis
Дата 11.6.2006, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
smile 
Количество символов "k" smile Что может быть проще smile
Код
program Project1;

{$APPTYPE CONSOLE}

var
  s: string;
  i: Integer;
  c: Integer = 0;

begin
  Write('Please, input string for calculate: ');
  Readln(s);

  i := Length(s);
  while (s[i] = ' ') and (i <= Length(s)) do
    Dec(i);

  for i := i downto 1 do
    if s[i] = ' ' then
      Break
    else
      if s[i] = 'k' then  Inc(c);


  Writeln('Char count in last word: ', c);
  ReadLn;
end.


P. S. Извини за тормоза. После работы ничего не работает smile

Добавлено @ 22:48 
В том числе и голова smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dead
Дата 11.6.2006, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2006

Репутация: нет
Всего: нет
Yanis, 
Спасибо тебе большое, прога эта РУЛИТ!!! 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1235 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.