Programalama > PASCAL

Etiketler: 9999, kadar, olan, rakamsal, ifadeleri

Ort. 0
Puan ver:
uses wincrt;
var
a,y,b:string;
sayi:array[1..20]of string;
s,uzn:integer;
begin
write('BIR SAYI GIRINIZ:');
readln(a);
uzn:=length(a);
if uzn<=4 then begin
for s:=1 to uzn do begin
if a[s]='1' then sayi[s]:='bir';
if a[s]='2' then sayi[s]:='iki';
if a[s]='3' then sayi[s]:='uc';
if a[s]='4' then sayi[s]:='dort';
if a[s]='5' then sayi[s]:='bes';
if a[s]='6' then sayi[s]:='alti';
if a[s]='7' then sayi[s]:='yedi';
if a[s]='8' then sayi[s]:='sekiz';
if a[s]='9' then sayi[s]:='dokuz';

if a[uzn-1]='1' then sayi[uzn-1]:='on';
if a[uzn-1]='2' then sayi[uzn-1]:='yirmi';
if a[uzn-1]='3' then sayi[uzn-1]:='otuz';
if a[uzn-1]='4' then sayi[uzn-1]:='kirk';
if a[uzn-1]='5' then sayi[uzn-1]:='elli';
if a[uzn-1]='6' then sayi[uzn-1]:='altmis';
if a[uzn-1]='7' then sayi[uzn-1]:='yetmis';
if a[uzn-1]='8' then sayi[uzn-1]:='seksen';
if a[uzn-1]='9' then sayi[uzn-1]:='doksan';


end;
end;
if uzn=1 then writeln(sayi[1]);
{*********************************************************}
if uzn=2 then writeln(sayi[uzn-1]+sayi[uzn]);
{*********************************************************}
if uzn=3 then if a[1]='1' then begin
if a[1]='0' then y:='' else y:='yuz';
writeln(y+sayi[uzn-1]+sayi[uzn]);
end
else
begin
if a[1]='0' then y:='' else y:='yuz';
writeln(sayi[1]+y+sayi[uzn-1]+sayi[uzn]);
end;
{*********************************************************copyright hacker by infaz***unbl0ck.team}
if uzn=4 then begin
       if a[1]='1' then begin
if a[2]='0' then begin y:=''; end
else begin y:='yuz'; end;
if a[2]='1' then sayi[2]:='';
writeln('bin'+sayi[2]+y+sayi[uzn-1]+sayi[uzn]);
end
else
begin
if a[2]='0' then begin y:=''; sayi[2]:=''; end
else begin y:='yuz'; end;
if a[1]='0' then begin b:='';  end
else begin b:='bin'; end;
if a[2]='1' then sayi[2]:='';
writeln(sayi[1]+b+sayi[2]+y+sayi[uzn-1]+sayi[uzn]);
end;
end;

end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.