Programalama > PASCAL

Etiketler: türkçe, sayi, yazar, (1-99)

Ort. 0
Puan ver:
program sayiyaz;
uses crt;
var sayi,b1,b2:integer;

procedure onlar(s:integer);
begin
  case s of
    1:write('ON');
    2:write('Y˜RM˜');
    3:write('OTUZ');
    4:write('KIRK');
    5:write('ELL˜');
    6:write('ALTMIž');
    7:write('YETM˜ž');
    8:write('SEKSEN');
    9:write('DOKSAN');
  end;
end;

procedure birler(k:integer);
begin
  case k of
    1:write('BIR');
    2:write('˜K˜');
    3:write('š€');
    4:write('D™RT');
    5:write('BEž');
    6:write('ALTI');
    7:write('YED˜');
    8:write('SEK˜Z');
    9:write('DOKUZ');
  end;
end;

Begin

  clrscr;
  write('1-99 Arasnda bir say giriniz :');
  readln(sayi);
  if sayi<9 then birler(sayi);
  if sayi mod 10=0 then onlar(trunc(sayi/10));
  if (sayi>9) and (sayi mod 10<>0) then
  begin
    b1:=trunc(sayi/10);
    onlar(b1);
    b2:=sayi-10*b1;
    birler(b2);
  end;
  repeat until keypressed;

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 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.