Вывести число прописью

@paandoo · Регистрация: 11.05.2012

Author24 — интернет-сервис помощи студентам

Необходимо сохдать программу, которай при вводе любого числа выводит его буквами.
например, при вводе цифры 4 выводит ЧЕТЫРЕ и т.д.

@TaYgA · 27.09.2012, 22:04

Всё очеь просто! Достаточно использовать Case! Допустим у тебя на форме есть Edit (для ввода цифры), Lable (для вывода результата) и Botton. При нажатии кнопки пропиши:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
    a: Integer;
    b: String;
begin
  a:=StrToInt(Edit.Text);   // Присвоить значение Edit переменной а
  Case a of                      // Прописываем все возможные варианты
    0: b:='Ноль';
    1: b:='Один';
    ....
    10: b:='Десять';
  end;
  Lable.Caption:=b;           // Выводим результат в Lable
end;

Одиночка · 27.09.2012, 22:11

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

@Askoo · 30.09.2012, 18:59

Сообщение от TaYgA

Всё очеь просто! Достаточно использовать Case! Допустим у тебя на форме есть Edit (для ввода цифры), Lable (для вывода результата) и Botton.

Да, но если требуется, к примеру, числа до 99, не будем же мы в case печатать 100 строк)

@paandoo 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
		1
	Вывести число прописью 27.09.2012, 19:44. Показов 6454. Ответов 3 Метки нет (Все метки) Необходимо сохдать программу, которай при вводе любого числа выводит его буквами. например, при вводе цифры 4 выводит ЧЕТЫРЕ и т.д. 0

@Askoo 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 12
	30.09.2012, 18:59	4
	Сообщение от TaYgA Всё очеь просто! Достаточно использовать Case! Допустим у тебя на форме есть Edit (для ввода цифры), Lable (для вывода результата) и Botton. Да, но если требуется, к примеру, числа до 99, не будем же мы в case печатать 100 строк) 0