Potrzebny program w Pascalu

[naprafde]

Bardzo ale to bardzo jest mi potrzebny taki oto programik:

Wpisujemy liczbe np.123 a programy zwraca nam to w takiej postaci:
jeden*dwa*trzy (koniecznie oddzielone gwiazdkami)

Program oparty na funkcjach i procedurach.
Dodam tylko ze program potrzebny jest mi na zaliczenie...
Z góry dziękuje!

[Sniper]

wczytaj dane jako string (1234)
z stringa do tablicy po znaku przenies (to może byc procedura np do dzielenia)

potem 2 procedura np wyswietl

if 0 -> wypisz zero
.
.
.
if 9 -> wypisz dziewiec
wypisz gwiazdka

proscizna

[naprafde]

A mogłbys mi to napisac? Czy nie? Tylko pytam

[Sniper]

późno, spiący jestem - zobaczymy

[naprafde]

Z góry dziękuje!Nie musisz przeciez teraz pisac...

[Sniper]

piwko otworzyłem - z wawą gadam z z-ciem gadam - czytam forum - zobaczymy co urodze

[naprafde]

Niezle!Tylko nie pij ciepłego piwa

[Sniper]

dobra spiacy jestem ale z tego juz powinienes zrobic generalnie wszystko zrobiłęm zrób jakies wodotryski bajery etc- zreszta co tam chcesz

[naprafde]

Dzieki stary-nawet nie wiesz ze uratowałeś mi zycie! Masz u mnie browarek! Jakby co to podaj adres- wysle poczta

[Sniper]

Beczkowóz ja jestem z zagłebia )) a tak tu sie juz utarło ze pisze ludziom progzy na zaliczonka - jezeli cos poprawic to powiedz o co biega bo jak widzisz konstrukcja progzu jest skompikownan jak budowa cepa i mozna go upiekszyc - o ile o to ci biegało z tego co zrozumiałem ))

[naprafde]

Dzieki- upieksze teraz sam i bedzie super!O to własnie mi chodziło!Jeszcze raz dzieki!

[Sniper]

zawsze do usług od tego jest to forum mnie pomogli ja pomogłem )

[Sniper]

ps.)
Zauważyłem że troche żle pokazuje na końcu tzn za duzo fwiazdek jest na koncu i lekko go zmodyfikowałem :
program blooop;

uses Crt;

var liczba : string[40];
i :integer;

procedure pokaz_liczbe(i:integer);
begin
if liczba[i]='0' then write('zero*');
if liczba[i]='1' then write('jeden*');
if liczba[i]='2' then write('dwa*');
if liczba[i]='3' then write('trzy*');
if liczba[i]='4' then write('cztery*');
if liczba[i]='5' then write('pięć*');
if liczba[i]='6' then write('sześć*');
if liczba[i]='7' then write('siedem*');
if liczba[i]='8' then write('osiem*');
if liczba[i]='9' then write('dziewięć*');
end;

begin

clrscr;
write('Podaj liczbe ?');readln(liczba);
writeln;
i:=0;
write('*');
repeat
i:=i+1;
pokaz_liczbe(i);
until liczba[i]<('0');
readkey;
end.

istnieje tez mozliwosci konca tzn until ( bierze narazie jak cos jest mniejsze od 0 tzn w sumie różne mozna dac tak kiedy natknie sie na znak entera lub eof nie pamietam kodu ( o ile pamietam to $0d$0a ) ale łba nie dam sobie opciąc

[naprafde]

To juz kosmetyka! Dzieki wielkie!

[naprafde]

Kurcze a da sie zeby czytał tez po kropce?
A dodam ze to program dot. pieniedzy dlatego potrzebne jeszcze "złote" i "grosze"

Np. 123.12 >>> *jeden*dwa*trzy*złote.12/100 groszy

Przepraszam za wprowadzenie w błąd...ale sam myslalem ze ma tak byc jak podałem wczesniej