🚀 go-pugleaf

pa...@ibbrain.ibb.waw.pl (Pawel Golik) wrote:

>Hej,
>	Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
>arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
>f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 
>	A pomyslec, ze w Basicu ZX Spectrum potrafila to funkcja Val!!!
>					Poz.
>					Pawel
To zalezy od zlozonosci wyrazenia.Dla bardziej skomplikowanych (gdy
jest kilka nawiasow) to proponuje poszukac zrodla funkcji obliczajacej
takie wyrazenia przy pomocy odwrotnej notacji polskiej.Wbrew pozorom
nie jest to skomplikowane,a mozna liczyc wyrazenia z dowolna iloscia
nawiasow (zalezy to tylko od rozmiaru stosu).
Gdzies to powiniem miec,jak mi sie uda znalez to wysle.

===================================
Adam Fiuk         (IRC,mud: PAyMoN)
mailto:pay...@zeus.polsl.gliwice.pl
===================================

In article <4o1va6$f...@parnas.mimuw.edu.pl> pa...@ibbrain.ibb.waw.pl (Pawel Golik) writes:
>        Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
>arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
>f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 

Robilem cos takiego ze studentami na cwiczeniach, ale tylko
z jednym dzialaniem, to znaczy liczba1 operator liczba2,
a nie na przyklad liczba1 operator1 liczba2 operator2 liczba3.
To ostatnie to juz wymaga rozpoznawania kolelnosci dzialan.
Aha, i ja tego nie mam (pisalem na tablicy), trzeba by zapytac
studentow, na pewno niejeden ma gdzies na dysku.

Pawel Golik wrote:
> 
>         Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie
> arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np.

Pytanie czy wsrod tych dzialan placza sie nawiasy ?
Sa dwa sposoby: od przodu i od tylu.
1.Od przodu, czyli tak jak to robi normalny kalkulator (lub 
czlowiek). To jest zrobione w Pascalu przez jakiegos mojego 
ucznia i chyba dziala.
2.Od tylu, czyli tak jak to robi kalkulator Hewlett-Packarda lub 
kazdy kompilator. Najpierw trzeba zmienic wyrazenie na zapis w 
notacji polskiej, a potem policzyc. Skomplikowane, ale szybko 
dziala. To robilem jakies 10 lat temu na liczbach zespolonych ze 
zmiennymi (do liczenia funkcji). Trzeba by sporo pozmieniac...
Jak chcesz to moge poszukac kazdej z tych funkcji. podaj tylko, 
ktory sposob Cie interesuje
Rysiek

Jesli w takim wyrazeniu placza sie nawiasy to sprawa jest dosc skomplikowana:
jeden ze sposobow to zamiana wyrazenia na Odwrotna Notacje Polska i 
wyliczenie wartosci. Jesli interesuje cie zrodlo tego w Pascalu (dosc 
sporo operatorow, obsluga bledow) to zamailuj. 

Wlodek

 

  ����������������������������������������Ŀ
  �  NNA, Nieudolny Netware Administrator  �
  �             Wlodek Gajda               �
  �      Zaklad Metod Numerycznych         �
  �         UMCS, Lublin, POLSKA           �
  ������������������������������������������

Pawel Golik (pa...@ibbrain.ibb.waw.pl) wrote:

> 	Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
> arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
> f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 
> 	A pomyslec, ze w Basicu ZX Spectrum potrafila to funkcja Val!!!


Poszukaj sobie w:

a) Turbo Pascal 4.0 (dawno temu wydana, kolor niebieski miekka okladka)
   bylo tam kompletne rozwiazanie (autor, chyba Kott ale glowy nie dam).
b) ktorys z archiwalnych numerow Bajtka (sorry, nie podam ktory, ale tak na
   oko to sprzed 5 i wiecej lat) - tez bylo to tam rozwiazane (na rekurencji).

Witek P.

P.S. Kiedys takie cos zrobilem dla dowolnego wyrazenia arytmetycznego, ale teraz 
juz nic nie pamietam (nie zajmuje sie juz TP.. :-))
Popytaj starszych kolegow - jest to sztandarowy programik, jaki sie w TP m.in. 
pisze.

pa...@ibbrain.ibb.waw.pl (Pawel Golik) wrote:

>Hej,
>	Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
>arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
>f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 
>	A pomyslec, ze w Basicu ZX Spectrum potrafila to funkcja Val!!!
Jest to w ksiazce A. Marciniaka pt.(chyba) Turbo Pascal 4.0.
Jak chcesz to napisz prywatnie to podesle gotowy modul przeklepany z
tej ksiazki. Potrafi obliczyc np. exp(1+sin(2*pi)^2)/(1+17*log(e)).
Kiedys poprostu potrzebowalem prostego kalkulatorka naukowego.


Pozdrawiam
Alex

--
e-mail: al...@geol.agh.edu.pl              University of Mining & Metallurgy
tel: (48 12) 17-38-93, fax: 33-10-71       Institute of Geophysics
==============================================================================
                 Life is brutal and full of zasadzek.
------------------------------------------------------------------------------

PAyMoN wrote:
> 
> pa...@ibbrain.ibb.waw.pl (Pawel Golik) wrote:
> 
> >Hej,
> >       Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie
> >arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np.
> >f('2*2') = 4 itp. Moze gdzies lezy cos takiego?
> >       A pomyslec, ze w Basicu ZX Spectrum potrafila to funkcja Val!!!
> >                                       Poz.
> >                                       Pawel
> To zalezy od zlozonosci wyrazenia.Dla bardziej skomplikowanych (gdy
> jest kilka nawiasow) to proponuje poszukac zrodla funkcji obliczajacej
> takie wyrazenia przy pomocy odwrotnej notacji polskiej.Wbrew pozorom
> nie jest to skomplikowane,a mozna liczyc wyrazenia z dowolna iloscia
> nawiasow (zalezy to tylko od rozmiaru stosu).
> Gdzies to powiniem miec,jak mi sie uda znalez to wysle.
> 
> ===================================
> Adam Fiuk         (IRC,mud: PAyMoN)
> mailto:pay...@zeus.polsl.gliwice.pl
> ===================================


Cos takiego bylo w ksiazce Waita i Goose'a (?) "Narzedzia 
programistyczne
w Pascalu". Interpretuje dowolnej dlugosci wyrazenie z nawiasami.

                            Ryszard Gralinski (ry...@malkom.pl)

Aleksander Cianciara (al...@slc1.geol.agh.edu.pl) wrote:
: pa...@ibbrain.ibb.waw.pl (Pawel Golik) wrote:
: 
: >Hej,
: >	Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
: >arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
: >f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 

Mam taki modulik pod Pascalem do analizy wejsciowego lancucha na drzewko
skladajace sie z podstawowych elementow. Dopuszcza zmienne :)
Jak ktos da znac to mu podesle :)
A w ogole to polecam lex'a i yacc'a pod Unixem do pisania takich rzeczy :)

	Wojtek
	froe...@phys.uni.torun.pl

On 27 May 1996, Wojciech Froelich wrote:

> Aleksander Cianciara (al...@slc1.geol.agh.edu.pl) wrote:
> : pa...@ibbrain.ibb.waw.pl (Pawel Golik) wrote:
> : 
> : >Hej,
> : >	Potrzebuje procedury Pascalowej, ktora przeksztalci wyrazenie 
> : >arytmetyczne (tylko cztery podst. dzialania) zapisane w stringu na liczbe. Np. 
> : >f('2*2') = 4 itp. Moze gdzies lezy cos takiego? 
> 
> Mam taki modulik pod Pascalem do analizy wejsciowego lancucha na drzewko
> skladajace sie z podstawowych elementow. Dopuszcza zmienne :)
> Jak ktos da znac to mu podesle :)
> A w ogole to polecam lex'a i yacc'a pod Unixem do pisania takich rzeczy :)

 Hej, a moze pobawcie sie TPLex i TPYacc - shareware, dziala z Paszczalem 
i Delphi, naprawde O.K. Bylo kajs w sieci.


           "Kazda dostatecznie zaawansowana technologia
            niczym szczegolnym nie rozni sie od magii"

           Jacek Kijewski, c556...@smokie.elka.pg.gda.pl

On Mon, 27 May 1996, Jacek Kijewski wrote:
> 
>  Hej, a moze pobawcie sie TPLex i TPYacc - shareware, dziala z Paszczalem 
> i Delphi, naprawde O.K. Bylo kajs w sieci.
> 
> 
>            "Kazda dostatecznie zaawansowana technologia
>             niczym szczegolnym nie rozni sie od magii"
> 
>            Jacek Kijewski, c556...@smokie.elka.pg.gda.pl
> 
 A gdzie ??
                      __       __
                     /  \     /  \
                     \ # \_O_/ # /
Pozdrowienia         /    \ /    \
                     |    / \    |               Butter
                      \  /   \  /
                       \/     \/      c3...@risc1.isi.wat.waw.pl

On Sat, 1 Jun 1996, Motyl Marcin wrote:

> On Mon, 27 May 1996, Jacek Kijewski wrote:
> >  Hej, a moze pobawcie sie TPLex i TPYacc - shareware, dziala z Paszczalem 
> > i Delphi, naprawde O.K. Bylo kajs w sieci.
>  A gdzie ??

 Jakbym wiedzial, to bym napisal... Nie pamietam...


           "Kazda dostatecznie zaawansowana technologia
            niczym szczegolnym nie rozni sie od magii"

           Jacek Kijewski, c556...@smokie.elka.pg.gda.pl

On Fri, 24 May 1996, Wlodek Gajda wrote:

[ciach]
Ja mam cos takiego, napisalem niedawno a teraz zastanawiam sie, czyby 
tego nie wyslac do PC-kuriera? Listing w Pascalu (mam jeszcze wersje w C, 
jak ktos chce, to niech do mnie napisze) zalaczam w formacie mime (uzywam 
pine'a i tak mi wygodniej, sorry).

Milego pascalowania,

Witek Piskorz

--------------------------------------------------------
Life after death? It's like terminate but stay resident!
--------------------------------------------------------