Zum neuen Informatik-Forum >>
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren   ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Pascal Fragen zu parser - Seite 2
Gehe zu Seite Zurück  1, 2
 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> Pascal
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Toxman



Anmeldungsdatum: 15.02.2005
Beiträge: 42
Wohnort: Freiburg i. Brsg.

BeitragVerfasst am: 09. Apr 2005 19:31    Titel: Antworten mit Zitat

Ja, du kannst dir ein eigenes Symbol machen.
Unter Tools gibt seinen Bildeditor und unter Projekt-> Projektoptionen/Anwendung kannst du es dann aussuchen.

- Bitte aber von jetzt an pro Frage einen Trhead
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Zied



Anmeldungsdatum: 09.04.2005
Beiträge: 22

BeitragVerfasst am: 10. Apr 2005 14:30    Titel: ok Antworten mit Zitat

K, und danke für eure schnellen antworten, echt geilö^^
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Zied



Anmeldungsdatum: 09.04.2005
Beiträge: 22

BeitragVerfasst am: 10. Apr 2005 14:40    Titel: oh Antworten mit Zitat

meinst du mit tools zubehör und mit dem bildeditor Paint?

mein compiler hat sowas nämlich nicht ????
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Toxman



Anmeldungsdatum: 15.02.2005
Beiträge: 42
Wohnort: Freiburg i. Brsg.

BeitragVerfasst am: 10. Apr 2005 16:26    Titel: Antworten mit Zitat

Nö, dass müsste in der IDE sein. Ich kann nur für D6 reden, dass hab ich von der Schule. unglücklich
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Zied



Anmeldungsdatum: 09.04.2005
Beiträge: 22

BeitragVerfasst am: 10. Apr 2005 17:55    Titel: Hä? Antworten mit Zitat

Sorry ide? d6? ich bin 14... ist d6 nicht n Begriff aus der Bundeswehr?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Toxman



Anmeldungsdatum: 15.02.2005
Beiträge: 42
Wohnort: Freiburg i. Brsg.

BeitragVerfasst am: 10. Apr 2005 19:18    Titel: Antworten mit Zitat

Meinst du vielleicht T5? Das ist ein Ausdruck bei der Bundeswehr und bedeutet so viel wie absolut wie absolut untauglich. [und ich hab diese Auszeichnung bekommen]

D6 steht einfach nur für Delph 6.

SChau einfach mal oben im Balken über den Komponenten.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Pr0g



Anmeldungsdatum: 15.02.2005
Beiträge: 90
Wohnort: Düsseldorf

BeitragVerfasst am: 10. Apr 2005 19:33    Titel: Antworten mit Zitat

Vielleichts passts zum Thema, hatte in einem anderen Forum mal ein einfaches Beispiel für einen kleinen Parser geschrieben (ist aber ohne Punkt-Vor-Strich und so Sachen, Klammern könnte man auch noch einbauen, dann wohl am leichtesten per Rekursion):
Code:
program TermCalc;

uses crt;


function CalcTerm(T: String): Integer;
type
 OpsSet = set of Char;
var
 i,
 tmp,
 Sum,
 NCount,
 OCount: Integer;
 Nr: String;
 Numbers: Array [0..100] of Integer;
 Operators: Array [0..100] of Char;
 Ops: OpsSet;
begin
 Sum := 0;
 NCount := -1;
 OCount := -1;
 Nr := '';
 Ops := ['+', '-', '*', '/'];
 for i := 1 to Length(T) do
 begin
   if T[i] in Ops then
   begin
     Inc(OCount);
     Operators[OCount] := T[i];
     if Nr <> '' then
     begin
       Inc(NCount);
       val(Nr, Numbers[NCount], tmp);
       Nr := '';
     end;
   end else
     Nr := Nr + T[i];
 end;
 if Nr <> '' then
 begin
   Inc(NCount);
   val(Nr, Numbers[NCount], tmp);
 end;
 Sum := Numbers[0];
 for i := 0 to OCount do
 begin
   tmp := Numbers[i + 1];
   case Operators[i] of
     '+': Sum := Sum + tmp;
     '-': Sum := Sum - tmp;
     '*': Sum := Sum * tmp;
     '/': Sum := Sum div tmp;
   end;
 end;
 CalcTerm := Sum;
end;

var
 term: String;
 summe: Integer;

begin
 ClrScr;
 term := '1+2*4/3';
 summe := CalcTerm(term);
 WriteLn(summe);
 ReadLn;
end.

_________________
http://webcraft.org/button_ani.gif http://ohs.pr0g.net/button_ani.gif
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen AIM-Name
Zied



Anmeldungsdatum: 09.04.2005
Beiträge: 22

BeitragVerfasst am: 11. Apr 2005 15:40    Titel: mann Antworten mit Zitat

du hast es drauf!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> Pascal Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen