hm anfängerin...

kaetzchen · 10. Januar 2007, 18:58

Also ich hab ein schwerwiegendes Problem.... Meine Info Lehrerin kommt aus Russland und kann eigentlich niemanden Informatik vermitteln weil sie 1.meint sie muss uns nichts erklären 2. sie kann nicht wirklich deutsch.
Von daher wollt ich wissen ob mir hier jemand bisschen bei Pascal helfen kann also ich selbst kann so halb alles schreiben und so weiter aber brauch jemanden der mir wenigstens sagt ob das wasich geschrieben habe richtig ist. von daher bitte meldet euch ganz schnell. schreib nämlich morgen sogar nen test.

SoMeGuY · 10. Januar 2007, 20:37

Klar, wo ist denn genau das Problem?

kaetzchen · 10. Januar 2007, 21:26

also ich stell mal das bruchrechnungsprog mal rein was ich gemacht hab... ich willhalt nur wissen ob des richtig is

Quellcode

Program Bruchrechnung;
Var b1,b2,s,k,n1,n2,z1,z2:REAL;
Begin
b1:=z1/n1;
b2:=z2/n2;
writeln('Geben sie einen zähler und nenner ein für den ersten bruch')
readln(z1,n1)
writeln('Nun dasselbe für den 2. bruch')
readln(z2,n2)
writeln('Entscheiden sich ob die brüche addiert(1),subtrahiert(2),multipliziert(3) oder dividiert(4) werden sollen')
readln(k)
if k=1 then
s:=b1+b2
else begin
if k=2 then
s:=b1-b2
else begin
if k=3 then
s:=b1*b2
else begin
if k=4 then
s:=b1/b2
end;
end;
end;
end.
writeln('das ergebnis der rechnung ist =',k:2:2)
end.[

Alles anzeigen

darthdespotism · 10. Januar 2007, 22:01

nebenbei:
Syntax Delphi ist sehr praktisch zum lesen:

Quellcode

Program Bruchrechnung;
Var b1,b2,s,k,n1,n2,z1,z2:REAL;
Begin
b1:=z1/n1;
b2:=z2/n2;
writeln('Geben sie einen zähler und nenner ein für den ersten bruch')
readln(z1,n1)
writeln('Nun dasselbe für den 2. bruch')
readln(z2,n2)
writeln('Entscheiden sich ob die brüche addiert(1),subtrahiert(2),multipliziert(3) oder dividiert(4) werden sollen')
readln(k)
if k=1 then
s:=b1+b2
else begin
if k=2 then
s:=b1-b2
else begin
if k=3 then
s:=b1*b2
else begin
if k=4 then
s:=b1/b2
end;
end;
end;
end.
writeln('das ergebnis der rechnung ist =',k:2:2)
end.

Alles anzeigen

b1:=z1/n1;
b2:=z2/n2;

macht am anfang wenig sinn, da du zuerst n1, n2 usw. einlesen musst.
(du kannst hier keine formeln festlegen, sondern nur werte zuweisen)
für den unteren Teil wäre wohl ein case schöner wenn du das nicht aus einem Grund vermeiden willst.
Zähler und nenner sind normalerweise ganzzahlig => integer

Strichpunkte nicht vergessen!

Quellcode

Program Bruchrechnung;
var
s, b1,b2: REAL;
k,n1,n2,z1,z2: Integer;
begin
readln(z1,n1);
writeln('Nun dasselbe für den 2. bruch');
readln(z2,n2);
writeln('Entscheiden sich ob die brüche addiert(1),subtrahiert(2),multipliziert(3) oder dividiert(4) werden sollen');
readln(k);
b1:=(real)z1/n1;
b2:=(real)z2/n2;
case k of
1: s := b1 + b2;
2: s := b1-b2;
3: s:= b1*b2;
4: s := b1/b2;
end;
writeln('das ergebnis der rechnung ist =',k:2:2)
end.

Alles anzeigen

SoMeGuY · 10. Januar 2007, 22:03

Da sind noch ein paar Probleme in dem Code. Ich werde mal auflisten was mir beim drüberfliegen aufgefallen ist (Fehler und Verbesserungsvorschläge):

1. Division durch 0: Es gibt mehrere Möglichkeiten in deinem Programm durch 0 zu teilen. Da das Ergebnis nicht definiert ist und du den Fehlerfall nicht abfängst wird dein programm abbrechen.
2. Du teilst z1 durch n1 und DANACH lässt du dir überhaupt Werte geben, die Reihenfolge ist so also falsch.
3. Das Ergbnis deiner Berechnung ist eine Dezimalzahl. Ich kenne die Aufgabenstellung nicht, aber es ist oftmals gewünscht, dass das Ergebnis als Bruch ausgegeben werden soll. Wenn ja brauchst du noch mindestens eine Funktion fürs kürzen.
4. Deine Variablen sind alle vom Typen REAL. Es ist unüblich zwei Kommazahlen in einem Bruch anzugeben, ich würde da einen Integer verwenden.

SoMeGuY · 10. Januar 2007, 22:04

Da war jemand schneller...

darthdespotism · 10. Januar 2007, 22:08

Wegen Division durch 0 seh ich kein Problem:
Die Fehlermeldung, die Delphi hier automatisch erzeugt ist aussagekräftig, das Programm beenden sinnvoll

OK wenns eine andere Pascal-Version ist währe eine (andere) Fehlermeldung vll nötig

Brüche kürzen reicht nicht, man müsste die rechenarten auch umschreiben, gerade bei +/- nicht ganz trivial (aber machbar)

SoMeGuY · 10. Januar 2007, 22:33

Wenn man kürzen kann ist Addition und Subtraktion ein Kinderspiel, man muss nur die Zähler mit dem Nenner des anderen Multiplizieren und die beiden Nenner und das ganze addieren/subtrahieren. Für den Rest gibt es ja kürzen, ist ein Vierzeiler.

Zum Teilen durch 0: Ich weiß sehrwohl das Delphi Exceptions hat und die auch wunderschöne MessaBoxen erzeugen. Wenn man die aber nicht behandelt, springt Delphi autmomatisch aus der Prozedur raus. Es ist als undefiniert was in den Registern steht und damit auch das Funktionsergebnis einer Funktion. Ich bin deswegen kein Freund von unbehandelten Exceptions. Es beendet also nicht wirklich sinnvoll, viel eher macht er in einem undefinierten Zustand weiter.
Ich bin mir nicht sicher ob es Pascal ist, ich würde aber darauf tippen und wenn dem so ist hab ich noch einen 5. Hinweis: Es fehlt das benutzen der Unit crt.
Wärs Delphi würde es sich um einen Konsolenprogramm handeln (wo die Fehlerbehandlung schon etwas anders aussieht) und Delphi hätte eine Compilerdirektive {$APPTYPE CONSOLE} eingefügt die ich aber auch nirgends sehen kann.

Zur Delphi-Fehlerbehandlung in der Konsole: Nimm dieses Programm compile es mit deinem Delphi, und dann schließe Delphi und starte die .exe selber (also Doppelklick oder aus der Konsole), du wirst sehen da ists Essig mit der Fehlermeldung:

Quellcode

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b: Integer;
m: Real;
begin
a:=1;
b:=0;
m:=a/b;
writeln(m);
end.

Alles anzeigen

kaetzchen · 11. Januar 2007, 12:00

ah danke also

ich hab jetzt den test geschrieben . aber bruchrechnung kam nicht vor von daher nochmal glück gehabt. aber trotzdem weiß ich jetzt wenigstens was ich falsch gemacht hab.

Quellcode

Quellcode

Quellcode

Quellcode

Teilen

Tags