matheraum.de
Raum für Mathematik
Offene Informations- und Nachhilfegemeinschaft

Für Schüler, Studenten, Lehrer, Mathematik-Interessierte.
Hallo Gast!einloggen | registrieren ]
Startseite · Forum · Wissen · Kurse · Mitglieder · Team · Impressum
Forenbaum
^ Forenbaum
Status Mathe
  Status Schulmathe
    Status Primarstufe
    Status Mathe Klassen 5-7
    Status Mathe Klassen 8-10
    Status Oberstufenmathe
    Status Mathe-Wettbewerbe
    Status Sonstiges
  Status Hochschulmathe
    Status Uni-Analysis
    Status Uni-Lin. Algebra
    Status Algebra+Zahlentheo.
    Status Diskrete Mathematik
    Status Fachdidaktik
    Status Finanz+Versicherung
    Status Logik+Mengenlehre
    Status Numerik
    Status Uni-Stochastik
    Status Topologie+Geometrie
    Status Uni-Sonstiges
  Status Mathe-Vorkurse
    Status Organisatorisches
    Status Schule
    Status Universität
  Status Mathe-Software
    Status Derive
    Status DynaGeo
    Status FunkyPlot
    Status GeoGebra
    Status LaTeX
    Status Maple
    Status MathCad
    Status Mathematica
    Status Matlab
    Status Maxima
    Status MuPad
    Status Taschenrechner

Gezeigt werden alle Foren bis zur Tiefe 2

Navigation
 Startseite...
 Neuerdings beta neu
 Forum...
 vorwissen...
 vorkurse...
 Werkzeuge...
 Nachhilfevermittlung beta...
 Online-Spiele beta
 Suchen
 Verein...
 Impressum
Das Projekt
Server und Internetanbindung werden durch Spenden finanziert.
Organisiert wird das Projekt von unserem Koordinatorenteam.
Hunderte Mitglieder helfen ehrenamtlich in unseren moderierten Foren.
Anbieter der Seite ist der gemeinnützige Verein "Vorhilfe.de e.V.".
Partnerseiten
Dt. Schulen im Ausland: Mathe-Seiten:Weitere Fächer:

Open Source FunktionenplotterFunkyPlot: Kostenloser und quelloffener Funktionenplotter für Linux und andere Betriebssysteme
StartseiteMatheForenPascalProgamm wiederholen
Foren für weitere Schulfächer findest Du auf www.vorhilfe.de z.B. Geschichte • Erdkunde • Sozialwissenschaften • Politik/Wirtschaft
Forum "Pascal" - Progamm wiederholen
Progamm wiederholen < Pascal < Programmiersprachen < Praxis < Informatik < Vorhilfe
Ansicht: [ geschachtelt ] | ^ Forum "Pascal"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien

Progamm wiederholen: Schleifen
Status: (Frage) beantwortet Status 
Datum: 15:56 Fr 24.03.2006
Autor: MarquiseDeSade

Hallo ihr begeisterten Informatiker :O)

Also, ich habe gestern ein Programm geschrieben, mit dem man durch Eingabe der Punkte eine Geradengleichung ausgeben kann. Nun würde ich gerne ein wenig dem Unterricht vorgreifen und eine Schleife einbauen, um das Programm nicht immer neu zu starten, wenn ich denn nochmal rechnen möchte.... nur wie ??

Meine Vorkenntnisse in Turbo Pascal sind minimal, habe es erst seit dem 2. Halbjahr als Wahlfach...

Mein Vorschlag sieht so aus:

Wiederholung mit REPEAT Anweisung UNTIL Bed...
Diese Schleife wird doch solange wiederholt, bis die Until Bedingung wahr ist, oder ?? Währe das hier eine gute Lösung für mein Vorhaben(oder ist eine andere Schleife besser geeignet?)

Das Problem ist nun, dass ich nicht verstehe, wo und wie ich diese Schleife in mein Programm einfügen müste ???

Hier mein Programm:

PROGRAM Geradengleichung;
uses crt;
VAR x1,x2,y1,y2,m,b:REAL;

BEGIN TextBackground(blue);
           TextColor(yellow);
           ClrScr;

WriteLn('Berechnungsprogramm für Geradengleichungen');
Write('Bitte x1 eingeben: ');
ReadLn(x1);
Write('Bitte y1 eingeben: ');
ReadLn(y1);
Write('Bitte x2 eingeben: ');
ReadLn(x2);
Write('Bitte y2 eingeben: ');
ReadLn(y2);

IF y1=y2 THEN WriteLn('y=',y1:10:2)
Else
    IF x1=x2 THEN WriteLn('Paralell zur y-Achse')
    Else
        IF (x1=x2) AND (x2=y2) THEN WriteLn('Winkelhalbierende')
        ELSE

BEGIN
m:= (y2-y1)/(x2-x1);
b:= y1-m*x1;

END;

Write('y=',m:10:2,'x   ');
IF b>=0 THEN Write('+',b:10:2);
IF b<0 THEN Write(b:10:2);
ReadLn;
END:

Ich stelle mir vor, dass jemand aufgefordert wird, 'j' oder 'n' einzutippen, nachdem er die Frage bekommt: 'Nochmal rechnen ?'

Vielen Dank
Tobias

        
Bezug
Progamm wiederholen: Tipp
Status: (Antwort) fertig Status 
Datum: 16:08 Fr 24.03.2006
Autor: Loddar

Hallo Tobias!


Du musst Dir halt genau überlegen, was alles genau wiederholt werden soll (welche Befehlszeilen). diese müssen dann durch den REPEAT ... UNTIL-Block "eingerahmt werden.


Von daher mein Vorschlag:


> PROGRAM Geradengleichung;
>  uses crt;
>  VAR x1,x2,y1,y2,m,b:REAL;
>  
> BEGIN TextBackground(blue);
>             TextColor(yellow);

REPEAT

>             ClrScr;
>  
> WriteLn('Berechnungsprogramm für Geradengleichungen');
>  Write('Bitte x1 eingeben: ');
>  ReadLn(x1);
>  Write('Bitte y1 eingeben: ');
>  ReadLn(y1);
>  Write('Bitte x2 eingeben: ');
>  ReadLn(x2);
>  Write('Bitte y2 eingeben: ');
>  ReadLn(y2);
>  
> IF y1=y2 THEN WriteLn('y=',y1:10:2)
>  Else
>      IF x1=x2 THEN WriteLn('Paralell zur y-Achse')
>      Else
>          IF (x1=x2) AND (x2=y2) THEN
> WriteLn('Winkelhalbierende')
>          ELSE
>  
> BEGIN
>  m:= (y2-y1)/(x2-x1);
>  b:= y1-m*x1;
>  
> END;
>  
> Write('y=',m:10:2,'x   ');
>  IF b>=0 THEN Write('+',b:10:2);
>  IF b<0 THEN Write(b:10:2);
>  ReadLn;

Abfrage ob nochmal?
Variable "nochmal" (sollte eine STRING- oder CHAR-Variable sein) einlesen.

UNTIL nochmal="n";


>  END:


Gruß
Loddar


Bezug
                
Bezug
Progamm wiederholen: Problem behoben
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 18:47 Fr 24.03.2006
Autor: MarquiseDeSade

Hallo Loddar :O)

Dank deiner Anregung ist die Schleife im Programm funktionsfähig. Wie stolz man als Anfänger auf so ein Progrämmchen ist :O)

Danke und noch einen schönen abend

gruß tobias

Bezug
Ansicht: [ geschachtelt ] | ^ Forum "Pascal"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien


^ Seitenanfang ^
www.matheraum.de
[ Startseite | Forum | Wissen | Kurse | Mitglieder | Team | Impressum ]