Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
03.06.2012, 07:35   #1
RaTaR
Новичок
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 11
Посчитать количество цифр в числе через оператор for / Pascal (Паскаль)

Задача самая простая - сколько цифр в натуральном числе, вводимом с клавиатуры. Но вот оператор, которым необходимо это найти для меня как дремучий лес. Да и на форуме я такого решения что-то не нашел
03.06.2012, 07:35
AdAgent
Объявления
03.06.2012, 08:32   #2
CodeR
Фрилансер
2939 / 2440 / 121
Регистрация: 08.02.2012
Сообщений: 4,553
Записей в блоге: 1
Посчитать количество цифр в числе через оператор for

Код Pascal
1
2
3
4
5
6
7
8
9
10
Var n,i:integer;
Begin
    write('Введите число: ');readln(n);
    For i:=1 to 10 do
     Begin
      n:=n div 10;
      if n=0 then break;
     End;
    writeln('В числе ',i,' цифр');
End.
Другие темы раздела
Pascal Дана последовательность. Найти сумму чисел последовательности до первого положительного
3. Дана последовательность n*3-{8}^{2}, где n меняется от 1 до 10. Найти сумму чисел последовательности до первого положительного. Элементы и номера последовательности вывести в табличном виде. Спасибо большое! А как сделать, чтобы элементы и номера последовательности были выведены в табличном...
Pascal Протабулировать функцию. Найти первое значение функции больше а
2. Протабулировать функцию y={x}^{2}+2x-8.. Найти первое значение функции больше {a}^{}. Помогите, пожалуйста. Кто понимает.:-| кто-нибудь знает?
03.06.2012, 13:14  [ТС]   #3
RaTaR
Новичок
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 11
Посчитать количество цифр в числе через оператор for

Спасибо за ответ, но у меня вопрос For i:=1 to 10 do если поставить значение здесь занчение не 10, а, например, 20, то программа перестаёт работать. Почему?
03.06.2012, 15:24   #4
Puporev
Модератор
42128 / 30647 / 1764
Регистрация: 18.05.2008
Сообщений: 65,199
Посчитать количество цифр в числе через оператор for

Ничего не перестает, хоть
i:=1 to 1000 do
break прерывает цикл как только кончаются цифры
Миниатюры
Посчитать количество цифр в числе через оператор for  
03.06.2012, 15:24
AdAgent
Объявления
03.06.2012, 15:41  [ТС]   #5
RaTaR
Новичок
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 11
Посчитать количество цифр в числе через оператор for

Это я понял, но введи больше 10 цифр и увидишь, у меня по крайней мере так, что если ввожу больше 10 цифр выдаёт ошибку на 3 строке.
03.06.2012, 16:06   #6
Puporev
Модератор
42128 / 30647 / 1764
Регистрация: 18.05.2008
Сообщений: 65,199
Посчитать количество цифр в числе через оператор for

RaTaR, Так нужно знать что наибольшее число типа integer в Турбо Паскале=32767, в других Паскалях= Longint=2147483647или не более 10 цифр.
А вообще Вы писали не про это, а
Цитата Сообщение от RaTaR Посмотреть сообщение
For i:=1 to 10 do если поставить значение здесь занчение не 10, а, например, 20, то программа перестаёт работать.
Мозг иногда использовать нужно, хотя.....
03.06.2012, 16:25  [ТС]   #7
RaTaR
Новичок
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 11
Посчитать количество цифр в числе через оператор for

Спасибо за ответ, но не нужно оскорбления про мозг в мой адрес предъявлять, я пока что только учусь в колледже и вот изучаю паскаль лабы на while и repeat написал без пробелем, а вот на for такая проблема возникала.
03.06.2012, 16:42   #8
Puporev
Модератор
42128 / 30647 / 1764
Регистрация: 18.05.2008
Сообщений: 65,199
Посчитать количество цифр в числе через оператор for / Pascal (Паскаль)

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

Добавлено через 36 секунд
Цитата Сообщение от RaTaR Посмотреть сообщение
но не нужно оскорбления про мозг в мой адрес
Вышел на паперть, терпи...
03.06.2012, 16:42
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Python Как посчитать количество цифр в числе?
Для каждого пункта напишите функцию, возвращающую ответ. 0) Дано число, посчитайте количество цифр в числе. Например, 123456 -> 6 Подсказка: обратите внимание на то, что деление целочисленного значения на целочисленное значение является целочисленным, т.е. в результате отбрасывается дробная...
Python masasc 23.11.2013 22:37
Pascal ABC как посчитать количество цифр в числе?
как посчитать количество цифр в числе?
Pascal ABC Programka 17.09.2013 04:03
PHP Посчитать количество цифр в натуральном числе
Помогите подкорректировать код <?php $number=1212; $a=gettype($number); function get($number) { if ($a=integer){ $length = (int) log10($number)+1;} else {
PHP для начинающих log in 20.05.2013 21:52
Delphi Посчитать количество цифр в десятичном числе
Написать программу, подсчитывающую количество различных цифр в десятичной записи натурального числа n. Помогите пожалуйста решить задачу!
Delphi для начинающих Жансая 13.01.2012 05:54
C++ нужно посчитать количество цифр 4 и 9 в данном числе
например, чтобы при вводе числа 14599 программа выдавала 3 помогите пожалуйста
С++ для начинающих edj 05.10.2011 21:37
Опции темы

Текущее время: 18:35. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.