Помогите начинающему составить программу!!!

← →
roman_ln © (2006-05-16 11:55) [0]

Разработать программу которая по русскому названию числа формирует его числовой эквивалент??? Или наоборот по числу формируется русское название...

← →
Sergey13 © (2006-05-16 11:58) [1]

Второго в инете можно найти кучу. Первое - а нафига такое надо?

← →
Сергей М. © (2006-05-16 11:58) [2]

Сумму-то озвучь, студент..

← →
Kolan © (2006-05-16 11:59) [3]

Вопрос в чем. Именно: Не знаешь что -такое if, case? Не знаешь как по русски пишется 1, 102, 15?
Уточни...

← →
Сергей М. © (2006-05-16 12:02) [4]

> по русскому названию числа

"Штука зелени" - это тоже своего рода "русское название числа" ..

Как изволишь перевести это в Double ?

← →
roman_ln © (2006-05-16 12:34) [5]

Ну например так(англ. вариант):
Может есть готовый алгоритм(а не такой грамозкий)?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
If edit1.Text="1" then edit2.Text:="one"
else
if edit1.Text="2" then edit2.Text:="two"
else
...
If edit1.Text="twenty" then edit2.Text:="20"
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

← →
MsGuns © (2006-05-16 12:38) [6]

>begin
If edit1.Text="1" then edit2.Text:="one"
else
if edit1.Text="2" then edit2.Text:="two"
else
...
If edit1.Text="twenty" then edit2.Text:="20"
end;

Засстрелиться ! Т.е. для перевода миллиона надо миллион раз написать в программе это if else ?

Я бы автору такого шедевра посоветовал серьезно задумался о переквалификации. Например, в дворники.

← →
Сергей М. © (2006-05-16 12:39) [7]

> roman_ln © (16.05.06 12:34) [5]
>
> Ну например так(англ. вариант):

Ну если именно так, то (рус. вариант)

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
If edit1.Text="1" then edit2.Text:="адын"
else
if edit1.Text="2" then edit2.Text:="два"
else
...
If edit1.Text="двадцать" then edit2.Text:="20"
end;

← →
Sergey13 © (2006-05-16 12:41) [8]

2 [5] roman_ln © (16.05.06 12:34)
А зачем, все таки из сторки в число переводить?

If edit1.Text="тринадцать миллионов двести сорок одна тысяча пятьсот сорок четыре" then edit2.Text:="13 241 544"
8-)

← →
roman_ln © (2006-05-16 12:48) [9]

Задание у меня такое …
Просто код написал и ужаснулся, а ни чего дельного в голову не лезет….
Вот я и спрашиваю есть ли готовые алгоритмы …???
MsGuns умничать может каждый, вот посоветовать что ни будь дельное…

← →
Sergey13 © (2006-05-16 12:54) [10]

2 [9] roman_ln © (16.05.06 12:48)
>Задание у меня такое …

Тогда надо разбирать строку, учитывая падежи и т.п. Типа искать "миллионов", "тысяч", "ста", "сот" и т.д. Трудность тут как раз в падежах - "десять тысяч" и "четыре тысячи".

← →
roman_ln © (2006-05-16 12:58) [11]

Да нет Сергей можно обойтись интервалом 0...50

← →
zorik © (2006-05-16 12:59) [12]

Состав сначала матрицу с рускими названиями, но не всех чисел. а порядков, т.е.: "ноль", "один", ..., "девять"; "десять", "одинадцать", ..., "девятнадцать"; "двадцать", "тридцать", "девяносто"; "сто", "двести", ..., "дявятсот". Потом пробуй разбирать число по его порядку. Для начала от 0 до 9, потом 0 до 99 и т.д... Дерзай!

← →
Sergey13 © (2006-05-16 13:01) [13]

2[11] roman_ln © (16.05.06 12:58)
Тогда и "алгоритм" из [5] roman_ln © (16.05.06 12:34) с пивком потянет. 8-)

← →
Игорь Шевченко © (2006-05-16 13:08) [14]

> MsGuns умничать может каждый, вот посоветовать что ни будь
> дельное…

http://www.ln.ua/~openxs/articles/smart-questions-ru.html

читать наизусть.

← →
MetalFan © (2006-05-16 13:15) [15]

{ **** UBPFD *********** by delphibase.endimus.com **** >> Перевод целого неотрицательного числа из строкового представления в прописное дык выше было, не попавшее туда будет в примере примечание: код легко расширяется как на знак входных данных так и на диапазон Зависимости: ничего сверхестественного Автор: Александр Copyright: default Дата: 14 февраля 2004 г. ***************************************************** } const Mas1: array["0".."9", 1..3] of string = (("", "", ""), ("сто ", "", "один "), ("двести ", "двадцать ", "два "), ("триста ", "тридцать ", "три "), ("четыреста ", "сорок ", "четыре "), ("пятьсот ", "пятьдесят ", "пять "), ("шестьсот ", "шестьдесят ", "шесть "), ("семьсот ", "семьдесят ", "семь "), ("восемьсот ", "восемьдесят ", "восемь "), ("девятьсот ", "девяносто ", "девять ")); Mas2: array["0".."9"] of string = ("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать "); Mas3: array["1".."2"] of string = ("одна ", "две "); Mas4: array["0".."9", 1..4] of string = (("", "тысяч ", "миллионов ", "миллиардов "), ("", "тысяча ", "миллион ", "миллиард "), ("", "тысячи ", "миллиона ", "миллиарда "), ("", "тысячи ", "миллиона ", "миллиарда "), ("", "тысячи ", "миллиона ", "миллиарда "), ("", "тысяч ", "миллионов ", "миллиардов "), ("", "тысяч ", "миллионов ", "миллиардов "), ("", "тысяч ", "миллионов ", "миллиардов "), ("", "тысяч ", "миллионов ", "миллиардов "), ("", "тысяч ", "миллионов ", "миллиардов ")); function GetRepresentationInWords(S: string): string; var i: Byte; Str: PChar; begin Result := ""; if S = "" then Exit; for i := 1 to Length(S) do if S[i] <> "0" then Break; if i = Length(S) + 1 then begin Result := "Ноль"; Exit end; Str := @S[1]; while Length(S) mod 3 <> 0 do Insert("0", S, 1); for i := Length(S) div 3 downto 1 do begin if (Str[0] = "0") and (Str[1] = "0") and (Str[2] = "0") then begin Inc(Str, 3); Continue; end; Result := Result + Mas1[Str[0], 1]; if Str[1] = "1" then Result := Result + Mas2[Str[2]] + Mas4["0", i] else begin Result := Result + Mas1[Str[1], 2]; if (i = 2) and (Str[2] in ["1".."2"]) then Result := Result + Mas3[Str[2]] else Result := Result + Mas1[Str[2], 3]; Result := Result + Mas4[Str[2], i]; end; Inc(Str, 3) end; SetLength(Result, Length(Result) - 1) end; Пример использования: Memo1.Lines.Text := GetRepresentationInWords(IntToStr(High(Cardinal)));

← →
MetalFan © (2006-05-16 13:18) [16]

ах да, взято отсюда:
http://delphiworld.narod.ru/base/int_to_string.html

MetalFan огромное спасибо!!!
Вот это вещь :о)

2 roman_ln
да вообще delphiworld полезная вещь! жаль давно не обновлялась...

function IntToSpelling (X : Int64) : String; var R, RTriad, TriadName : String; Ed, Dec, Dec_11_19, Hundr, Triad, TriadLevel : Integer; Y : Int64; begin R := ""; Y := Abs(X); TriadLevel := 0; while (Y > 0) do begin Inc(TriadLevel); if (TriadLevel > MaxIntSpellingTriad) then begin R := "Слишком большое число"; Exit; end; RTriad := ""; // Разберем число на тетрады Triad := Integer(Y mod 1000); Y := (Y div 1000); // Тераду разберем на сотни // Сотни Hundr := (Triad mod 1000) div 100; RTriad := Trim(RTriad) + " " + IntSpellingHundr[Hundr]; // Десятки Dec := (Triad mod 100) div 10; Dec_11_19 := Triad mod 100; // Обработаем 19 - 20 if ((Dec_11_19 >= 10) and (Dec_11_19 <= 19)) then begin Ed := 0; RTriad := Trim(RTriad) + " " + IntSpelling_11_19[Dec_11_19 - 10]; end else begin // Единицы Ed := Triad mod 10; RTriad := Trim(RTriad) + " " + IntSpellingDec[Dec]; RTriad := Trim(RTriad) + " " + IntSpellingEd[Ed, IntSpellingTriad[TriadLevel].EdNo]; end; // Определим имя и индекс тетрады if (Triad = 0) then begin TriadName := ""; end else if (Ed = 1) then begin TriadName := IntSpellingTriad[TriadLevel].Name1; end else if (Ed in [2, 3]) then begin TriadName := IntSpellingTriad[TriadLevel].Name2; end else begin TriadName := IntSpellingTriad[TriadLevel].Name5; end; // Соберем строку R := Trim(RTriad) + " " + TriadName + " " + Trim(R); end; R := Trim(R); if (Length(R) = 0) then R := "ноль"; // Приклеим минус, если надо if (X < 0) then R := "минус " + R; // Первая буква должна быть в верхнем регистре R := InitCap(R); Result := R; end;

RIntSpellingTriad = record Name1, Name2, Name5 : String; EdNo : Integer; end; IntSpellingEd : array[0..9, 1..2] of String = ( ("", ""), ("один", "одна"), ("два", "две"), ("три", "три"), ("четыре", "четыре"), ("пять", "пять"), ("шесть", "шесть"), ("семь", "семь"), ("восемь", "восемь"), ("девять", "девять") ); IntSpelling_11_19 : array[0..9] of String = ( ("десять"), ("одиннадцать"), ("двенадцать"), ("тринадцать"), ("четырнадцать"), ("пятнадцать"), ("шестнадцать"), ("семнадцать"), ("восемнадцать"), ("девятнадцать") ); IntSpellingDec : array[0..9] of String = ( (""), ("десять"), ("двадцать"), ("тридцать"), ("сорок"), ("пятьдесят"), ("шестьдесят"), ("семьдесят"), ("восемьдесят"), ("девяносто") ); IntSpellingHundr : array[0..9] of String = ( (""), ("сто"), ("двести"), ("триста"), ("четыреста"), ("пятьсот"), ("шестьсот"), ("семьсот"), ("восемьсот"), ("девятьсот") ); MaxIntSpellingTriad = 5; IntSpellingTriad : array[1..MaxIntSpellingTriad] of RIntSpellingTriad = ( (Name1:""; Name2:""; Name5:""; EdNo:1), (Name1:"тысяча"; Name2:"тысячи"; Name5:"тысяч"; EdNo:2), (Name1:"миллион"; Name2:"миллиона"; Name5:"миллионов"; EdNo:1), (Name1:"миллиард"; Name2:"миллиарда"; Name5:"миллиардов"; EdNo:1), (Name1:"триллион"; Name2:"триллиона"; Name5:"триллионов"; EdNo:1) );

>roman_ln © (16.05.06 12:48) [9]
>MsGuns умничать может каждый, вот посоветовать что ни будь дельное…

Я и советую дельное. Человеку, у которого отсутствует склонность к оптимизации и усовершенствованию (причем не обязательно в программировании - в любом деле), категорически противопоказано быть программистом.
Ибо все то, что он способен создать, будет ужасно ;)

2[21] MsGuns © (16.05.06 13:45)
А человек, имеющий сильную "склонность к оптимизации и усовершенствованию" рискует ничего и никогда не сделать до конца. 8-)

ЗЫ: Это я просто шутю (пытаюсь), а не спорю. 8-)

>Sergey13 © (16.05.06 13:49) [22]
>А человек, имеющий сильную "склонность к оптимизации и усовершенствованию" рискует ничего и никогда не сделать до конца. 8-)

Мерило мудрости суть МЕРА

Не мое :)

Помогите начинающему составить программу!!! Найти похожие ветки