Example code in pascal that will convert numbers into words?

Answer 1

function conv2(x:integer):string;forward;

function conv3(x:integer):string;forward;

{***********Fonction_1*************}

function conv1(x:integer):string;

var temp:string;

begin

if (x>19) and (x<100) then conv2(x)

else if (x>100) then conv3(x)

else begin

case x of

1:temp:='un ';

2:temp:='deux ';

3:temp:='trois ';

4:temp:='quatre ';

5:temp:='cinq ';

6:temp:='six ';

7:temp:='sept ';

8:temp:='huit ';

9:temp:='neuf ';

10:temp:='dix ';

11:temp:='onze ';

12:temp:='douze ';

13:temp:='treize ';

14:temp:='quatorze ';

15:temp:='quinze ';

16:temp:='seize ';

17:temp:='dix sept ';

18:temp:='dix huit ';

19:temp:='dix neuf ';

end;

conv1:=temp;

end;

end;

{*************Fonction_2******************}

function conv2(x:integer):string;

var temp:string;

z,y:integer;

begin

if (x<20) then conv1(x)

else if (x>100)then conv3(x)

else begin

z:=x div 10; {= pour garder la partie gauche de x [4]5}

y:=x mod 10; {= pour garder la partie droite de x 4[5]}

if y=0 then

begin

case z of

2:temp:='vingt ';

3:temp:='trente ';

4:temp:='quarante ';

5:temp:='cinquante ';

6:temp:='soixante ';

7:temp:='soixante diz ';

8:temp:='quatre vingt ';

9:temp:='quatre vingt dix ';

end;

end

else

if y=1 then

begin

case z of

2:temp:='vingt et un ';

3:temp:='trente et un ';

4:temp:='quarante et un ';

5:temp:='cinquante et un ';

6:temp:='soixante et un ';

7:temp:='soixante et onze ';

8:temp:='quatre vingt et un ';

9:temp:='quatre vingt et onze ';

end;

end

else

begin

case z of

2:temp:='vingt '+conv1(y);

3:temp:='trente '+conv1(y);

4:temp:='quarante '+conv1(y);

5:temp:='cinquante '+conv1(y);

6:temp:='soixante '+conv1(y);

7:temp:='soixante '+conv1(10+y);

8:temp:='quatre vingt '+conv1(y);

9:temp:='quatre vingt '+conv1(10+y);

end;

end;

conv2:=temp;

end;

end;

{****************fonction_3*******************}

function conv3(x:integer):string;

var temp:string;

z,y:integer;

begin

if (x>19) and (x<100) then conv3:=conv2(x)

else if (x<20)then conv3:=conv1(x)

else begin

z:=x div 100; {= pour garder la partie gauche de x [1]45}

y:=x mod 100; {= pour garder la partie droite de x 1[45]}

case z of

1:temp:='cent ';

2..9:temp:=conv1(z)+'cents ';

end;

case y of

1..19: temp:=temp+conv1(y);

20..99:temp:=temp+conv2(y);

end;

conv3:=temp;

end;

end;

{**********Fin des fonctions de la conversion***********}

Begin

{----# Initialisation #-------}

debut:

ClrScr;

i:=1;

bool:=true;

{-----# Selection de type du produit #------}

while bool=true do

begin

clrscr;

New(tab[i]);

writeln;writeln;

Writeln(' le type du produit ');

writeln(' 1.Aliment/Détergent');

writeln(' 2.Electromenager');

writeln(' 3.Meuble');

writeln(' 4.Autre');

write(' FAITES VOTRE CHOIX : ');

readln(c);

case c of

'1':tab[i]^.TVA:=(5/100);

'2':tab[i]^.TVA:=(15/100);

'3':tab[i]^.TVA:=(20/100);

'4':tab[i]^.TVA:=(10/100)

else

goto debut; {-------- si c () 1..4 retour au debut }

end;

{------# Lire les attributs de chaque produit #-------}

writeln;

writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³Numero de Produit ³ ³');

writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³Designation ³ ³');

writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³PrixUnitaire ³ ³');

writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³Quantite ³ ³');

writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

writeln;

with tab[i]^ do

begin

gotoxy(38,13);

writeln(i);

num:=i;

gotoxy(38,16);

readln(design);

gotoxy(38,19);

readln(prixU);

gotoxy(38,22);

readln(Qt);

end;

writeln;

writeln(' ³Y a t-il d''autre produit?o/n ³ ³');

gotoxy(49,23);

c:=readkey;

if c='o' then

begin

bool:=true;

i:=i+1;

end

else

bool:=false;

end;

{-------# Calculer les prixHT et TTC de chaque produit #-------}

for j:=1 to i do

begin

with tab[j]^ do

begin

prixHT:=prixU*Qt;

prixTTC:=prixHT+prixHT*TVA;

end;

end;

{----# Calculer le total HT et TTC de la facture #----}

totalHT:=0;

totalTTC:=0;

for j:=1 to i do

begin

with tab[j]^ do

begin

totalHT:=totalHT+prixHT;

totalTTC:=totalTTC+prixTTC;

end;

end;

{-------------------# Affichage de la facture #---------------------}

writeln;writeln;

textcolor(2);

writeln(' ÚÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³Num³Designation³Prix Unitaire³QUANTITE³TVA %³ PrixHT ³ PrixTTC ³');

writeln(' ÃÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄ´');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³');

writeln(' ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ');

writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿');

writeln(' ³TOTAL HT ³ ³');

writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄ´');

writeln(' ³TOTAL TTC ³ ³');

writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ');

textbackground(blue);

textcolor(14);

for j:=1 to i do

begin

with tab[j]^ do

begin

gotoxy(12,j+3);

writeln(num:2);

gotoxy(16,j+3);

writeln(design);

gotoxy(29,j+3);

writeln(PrixU:2:2);

gotoxy(45,j+3);

writeln(Qt:0:0);

gotoxy(53,j+3);

writeln(TVA*100:0:0);

gotoxy(58,j+3);

writeln(PrixHT:2:2);

gotoxy(70,j+3);

writeln(PrixTTC:2:2);

end;

end;

gotoxy(69,21);

writeln(totalHT:2:2,' DA');

gotoxy(69,23);

writeln(totalTTC:2:2,' DA');

{-------#conversion#--------}

milles:='';

cents:='';

a:=trunc(totalTTC);

b:=frac(totalTTC);

d:=trunc(b*100);

x:=a div 1000;

if x=0 then milles:=''

else if x=1 then milles:='mille '

else milles:=conv3(x)+'milles ';

y:=a mod 1000;

if y=0 then cents:=''

else cents:=conv3(y);

resultat:=milles+cents;

gotoxy(1,24);

writeln('Arrèt la facture à la somme :');

write(resultat,'DA ');

if d=0 then writeln('')

else

if d=1 then writeln('et un centime')

else

writeln('et ',conv3(d),'centimes');

readln;

end.

Answer 2

Here is an example Pascal code snippet that converts a number into words:

program NumberToWords;

var
  num: integer;

begin
  write('Enter a number: ');
  readln(num);

  case num of
    1: writeln('One');
    2: writeln('Two');
    // add more cases for other numbers here
  else
    writeln('Number not supported');
  end;

  readln;
end.

You can extend the case statement to handle more numbers and their corresponding words.