Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/34: Рейтинг темы: голосов - 34, средняя оценка - 4.91
uwannadie
1

Пользователь вводит с клавиатуры число от 0 до 100, программа выводит число буквами

28.09.2014, 15:43. Показов 6905. Ответов 1
Метки нет (Все метки)

Пользователь вводит с клавиатуры число от 0 до 100, программа выводит число в буквенном формате
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2014, 15:43
Ответы с готовыми решениями:

Пользователь вводит натуральное число. Найти минимальную цифру этого числа и возвести введённое число в степень
Пользователь вводит натуральное число. Найти минимальную цифру этого числа и возвести введённое...

Пользователь вводит с клавиатуры 10 чисел. Программа должна определить максимальное
Пользователь вводит с клавиатуры 10 чисел. Программа должна определить максимальное.

С клавиатуры вводится число от 100 до 9999. Если число трехзначное, то найти произведение его цифр
С клавиатуры вводится число от 100 до 9999. Если число трехзначное, то найти произведение его цифр....

Написать программу, которая просит пользователя ввести число и выводит квадрат этого числа. Программа завершается тогда, когда пользователь введет 0.
Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил темы,теперь плохо понимаю....

1
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
28.09.2014, 18:48 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
54
55
56
57
58
var
  c:integer;
  sd,se,str:string;
begin
  repeat
    write('c='); readln(c);
  until c in[0..100];
  case c of
    0:str:='ноль';
    100:str:='сто';
    else
    begin
      case c of
        11:str:='одиннадцать';
        12:str:='двенадцать';
        13:str:='тринадцать';
        14:str:='четырнадцать';
        15:str:='пятнадцать';
        16:str:='шестнадцать';
        17:str:='семнадцать';
        18:str:='восемнадцать';
        19:str:='девятнадцать';
        else
        begin
          case c div 10 of
            0:sd:='';
            2:sd:='двадцать';
            3:sd:='тридцать';
            4:sd:='сорок';
            5:sd:='пятьдесят';
            6:sd:='шестьдесят';
            7:sd:='семьдесят';
            8:sd:='восемьдесят';
            9:sd:='девяносто';
          end;
          case c mod 10 of
            0:se:='';
            1:se:='один';
            2:se:='два';
            3:se:='три';
            4:se:='четыре';
            5:se:='пять';
            6:se:='шесть';
            7:se:='семь';
            8:se:='восемь';
            9:se:='девять';
          end;
          if sd='' then str:=se
          else
          if se='' then str:=sd
          else
          str:=sd+' '+se;
        end;
      end;
    end;
  end;
  writeln('Строкой: ',str);
end.
Второй способ.
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
function str(const c:integer):string;
var s:string;
begin
  case c mod 10 of
    0:s:='ноль';
    1:s:='один';
    2:s:='два';
    3:s:='три';
    4:s:='четыре';
    5:s:='пять';
    6:s:='шесть';
    7:s:='семь';
    8:s:='восемь';
    9:s:='девять';
  end;
  if (c div 10<>0) then
    str:=str(c div 10)+','+s
  else
    str:=s;
end;
var
  c:integer;
begin
  repeat
    write('c='); readln(c);
  until c in[0..100];
  writeln('Строкой: ',str(c));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2014, 18:48

Программа вводит с клавиатуры шесть раз пары чисел A и B вычисляет их сумму и выводит на экран результат
Ребяяяят,помогите пожалуйста. Ничего не понимаю. программа вводит с клавиатуры шесть раз пары...

Пользователь вводит любое число и поменять надо тоже 2 и 3 цифру с помощью integer
Пользователь вводит любое число и поменять надо тоже 2 и 3 цифру с помощью integer ! помогите...

Пользователь вводит четырехзначное число, вывести те цифры у которых 3 или более делителей
Пользователь вводит четырехзначное число, вывести те цифры у которых 3 или более делителей

Пользователь вводит число >100, программа выводит сумму цифр в числе и их среднеарифметическое
Доброго времени суток.Мне нужна ваша помощь с решением задачи. вот задача: Пользователь вводит...


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

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

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