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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2015, 16:19   #1
максич
 
Регистрация: 11.12.2015
Сообщений: 5
По умолчанию Pascal. Использовать функции/процедуры

7. Описать функцию next без параметров, которая считывает из введённой строки первую литеру, отличную от пробела, и объявляет ее своим значением. Использовать эту функцию для подсчета k -- количества отличных от пробела литер текста, который задан во входной строке и за которой следует точка.
максич вне форума Ответить с цитированием
Старый 11.12.2015, 16:23   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Я правильно понимаю: Использование глобальной переменной допустимо?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.12.2015, 16:29   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

если я правильно понял задание:
Код:
function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.12.2015, 19:11   #4
максич
 
Регистрация: 11.12.2015
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
если я правильно понял задание:
Код:
function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;
а можете полный код расписать пожалуйста
максич вне форума Ответить с цитированием
Старый 12.12.2015, 09:51   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

извольте:
Код:
function next:char;
var ch:char;
begin
  repeat
    Read(ch)
  until ch<>' ';
  next := ch
end;

var 
  k:integer;
begin
  k:=0;
  Write('Введите строку литер с завершающей точкой в конце:');
  while next<>'.' do Inc(k);
  WriteLn('число непробельных литер = ',k);
end.
p.s. не проверял...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возможно ли подключить dll без дополнительного описания, какие именно функции и процедуры я буду использовать? Klaxwork Общие вопросы Delphi 23 30.04.2014 12:21
Как использовать ListBox внутри своей функции\процедуры calypso C++ Builder 1 29.05.2013 17:37
Функция минимума. Разработанные процедуры и функции поместить в отдельном модуле, который использовать в основной программе(Delphi zia Помощь студентам 5 15.12.2012 19:03
процедуры и функции(pascal) wormiks40 Помощь студентам 2 20.04.2012 06:51
Процедуры и функции (Pascal) P1RoG Помощь студентам 2 29.04.2010 03:44