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

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

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

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

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

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

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

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

4
13097 / 5878 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
07.10.2010, 21:17 2
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
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
07.10.2010, 21:31 3
Mawrat, А зачем ему системы счисления? Наверное что-то типа
case n of
0..9:write('1');
10..99:write('2');
.........
1
4149 / 1803 / 213
Регистрация: 06.10.2010
Сообщений: 4,033
07.10.2010, 21:36 4
поднимался этот вопрос
 Комментарий модератора 
Удалена ссылка на сторонний форум, да и абсолютно не по теме.
0
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
07.10.2010, 22:30  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Mawrat, А зачем ему системы счисления? Наверное что-то типа
case n of
0..9:write('1');
10..99:write('2');
.........
да да, этот вариант лучше. До этого чет замудренно сильно
Огромное спасибО!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2010, 22:30
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru