Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

[Pascal] Wypisywanie kwot słownie

02 Jan 2010 11:17 3397 11
  • Level 9  
    Witam wszystkich:D


    Czy mógł by mi ktoś przerobić ten oto program tak by zapisywał kwoty z dokładnością do dwóch miejsc po przecinku np: 35,22 = trz pie dwa dwa gr.
    Bo na razie napisałem program który czyta mi tylko liczby np: 165 692 = jed sze pie sze dzi dwa. i nie wiem jak go przerobić tak by czytał właśnie te kwoty z przecinkiem.

    Code:
    programa zadanie
    
    uses crt;
    var
     kwota:string;
     i,x,k:integer;
     a:array[0..9] of string;

    begin
    clrscr;
      a[0]:='zer';
      a[1]:='jed';
      a[2]:='dwa';
      a[3]:='trz';
      a[4]:='czt';
      a[5]:='pie';
      a[6]:='sze';
      a[7]:='sie';
      a[8]:='osi';
      a[9]:='dzi';
     writeln;
      writeln('Podaj kwote');
      readln(kwota);
     writeln;
      write('Kwota przeksztalcona: ');
     for i:=1 to length(kwota) do
      begin
       val(kwota[i],x,k);
       write(a[x],' ');
      end;
    readln;
    end.


    Z góry dzięki za pomoc:D
    [30.03.2021, darmowy webinar] Nowoczesna diagnostyka maszyn, monitorowanie i przewidywanie awarii. Zarejestruj się
  • Level 42  
    przecinek zamień na zł, na koniec dopisz gr. Tablice możesz indeksować spokojnie znakami, więc nie ma potrzeby konwersji na liczbę. Ponadto przesadzona ta konwersja - jeśli już chcesz, to wystarczy Ord(kwota[i])-Ord('0')
  • Level 22  
    Zrób warunek: Jeżeli wczytano przecinek, wypisujesz "zł", jeżeli nie to tak jak masz Val i Write.
    Po wczytaniu wszystkiego wypisz "gr" jeżeli wystąpił przecinek, jeżeli nie to wypisz "zł.
  • Level 9  
    A możecie pokazać jak ma to wyglądać bo dalej nie wiem:(
  • Level 9  
    sory ze tak mecze ale jak to ma wyglądać w moim kodzie???:(
  • Level 9  
    tylko ze nie wiem gdzie to wkleić:(