2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.

07.10.2010, 20:58. Показов 2983. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
на turbo pascal надо сделать программу с употреблением оператора case
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.10.2010, 20:58
Ответы с готовыми решениями:

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа. Добавлено через 2 минуты ...

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа
составить программу,которая для любого натурального числа печатает количество цифр в записи этого числа. предполагается,Что исходное число...

Составить программу,которая для любого натурального числа печатает количество цифр в записи этого числа
Помагите решить такую штукенцию=) Составить программу,которая для любого натурального числа печатает количество цифр в записи этого...

4
 Аватар для Mawrat
13113 / 5894 / 1708
Регистрация: 19.09.2009
Сообщений: 8,809
07.10.2010, 21:17
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Project1;
 
var
  i, Num : Longint;
  Base : Byte;
  S, StrNum : String;
begin
  repeat
    Writeln('Задайте целое число:');
    Readln(Num);
    repeat
      Writeln('Задайте основание системы счисления 2..16:');
      Readln(Base);
      if not (Base in [2..16]) then begin
        Writeln('Основание системы счисления должно быть в диапазоне: 2..16.');
        Writeln('Повторите ввод.');
      end;
    until Base in [2..16];
 
    StrNum := '';
    i := 0;
    repeat
      i := i + 1;
      case Num mod Base of
        0  : StrNum := '0' + StrNum;
        1  : StrNum := '1' + StrNum;
        2  : StrNum := '2' + StrNum;
        3  : StrNum := '3' + StrNum;
        4  : StrNum := '4' + StrNum;
        5  : StrNum := '5' + StrNum;
        6  : StrNum := '6' + StrNum;
        7  : StrNum := '7' + StrNum;
        8  : StrNum := '8' + StrNum;
        9  : StrNum := '9' + StrNum;
        10 : StrNum := 'A' + StrNum;
        11 : StrNum := 'B' + StrNum;
        12 : StrNum := 'C' + StrNum;
        13 : StrNum := 'D' + StrNum;
        14 : StrNum := 'E' + StrNum;
        15 : StrNum := 'F' + StrNum;
      end;
      Num := Num div Base;
    until Num = 0;
 
    Writeln('Ответ.');
    Writeln('Заданное число в системе счисления по основанию ', Base);
    Writeln('имеет вид: ', StrNum);
    Writeln('и содержит ', i, ' цифр.');
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
07.10.2010, 21:31
Mawrat, А зачем ему системы счисления? Наверное что-то типа
case n of
0..9:write('1');
10..99:write('2');
.........
1
4181 / 1830 / 219
Регистрация: 06.10.2010
Сообщений: 4,120
07.10.2010, 21:36
поднимался этот вопрос
 Комментарий модератора 
Удалена ссылка на сторонний форум, да и абсолютно не по теме.
0
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
07.10.2010, 22:30  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
Mawrat, А зачем ему системы счисления? Наверное что-то типа
case n of
0..9:write('1');
10..99:write('2');
.........
да да, этот вариант лучше. До этого чет замудренно сильно
Огромное спасибО!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.10.2010, 22:30
Помогаю со студенческими работами здесь

Для любого натурального числа напечатать количество цифр в записи этого числа
для любого натурального числа напечатать количество цифр в записи этого числа на Си (Тема:Циклы в Си.)

Программа, печатающая для любого натурального числа 1-1000 количество цифр в записи этого числа
Помогите, пожалуйста, составить код Delphi (вывод значений в Memo при нажатии кнопки) для следующих задач: Программа, которая для...

Для любого натурального числа напечатать количество цифр в его записи
вот задача,составить программу которая для любого натурального числа печатает количество цифр в записи это числа,не могу найти ошибку...

Составить программу для нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке
помогите кто нибудь,пожалуйста,я на сайте первый раз,низнаю к кому обратиться..помогите написать прогу на языке с++ вот задание. ...

Составить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке
Решите задачу используя рекурсивную подпрограмму Составить программу нахождения числа, которое образуется из данного натурального...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru