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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача на CASE 
V
    Опции темы
digitech
Дата 21.4.2007, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
Определите количество символов, из которых состоит целое положительное число X.  

Как решить эту задачу через CASE? Подскажите...
PM MAIL   Вверх
try_to_get
  Дата 21.4.2007, 12:10 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
Код

program Num;
var
  X: Integer;
begin
  repeat
    WriteLn('Введите целое положительное число: ');
    ReadLn(X);
  until X > 0;
  WriteLn('Кол-во символов ');
  case X of
    0..9: writeln('= 1');
    10..99: writeln('= 2');
    100..999: writeln('= 3');
  else
    writeln('больше 3');
  end;
end.


Это сообщение отредактировал(а) try_to_get - 21.4.2007, 12:12


--------------------
Алгоритм не роскошь, а средство достижения цели!
user posted image
PM MAIL   Вверх
ivashkanet
Дата 21.4.2007, 12:36 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: нет
Всего: 149
Целая часть от десятичного логарифма числа прибавить 1 даст тебе количество цифр этого числа


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 21.4.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Цитата(ivashkanet @  21.4.2007,  12:36 Найти цитируемый пост)
Целая часть от десятичного логарифма числа прибавить 1 даст тебе количество цифр этого числа

  ИМХО пример учебный на изучение оператора case, потому пример приведенный 
try_to_get, в данном случае верный.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivashkanet
Дата 21.4.2007, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: нет
Всего: 149
Alexeis, так я ж не спорю  smile 
Я просто привел вариант smile
P.S. Тем более, я прочитал "не используя CASE"  smile 


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
digitech
Дата 21.4.2007, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
Спасибо что подсказали.
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.1049 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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