Hilfe bei Turbo PAscal

Hallo liebe Community,

ich brauche eure Hilfe.
Im Informatik Unterricht sollen wir jetzt einen taschenrechner progammieren. Ich habe da schon einmal angefange, komme jetzt aber irgendiwe nicht weiter.
Könnt Ihr mir da bitte weiterhelfen?

Danke im voraus.

Gruß
Sorber



Bisheriges Script:


program rechner;

var
a,b : real;
c : char;
d: real;

begin


writeln ('Bitte geben Sie die erste Zahl ein');
read(a);

write ('Bitte geben Sie die Rechenoperation ein, die Sie ausfuehren lassen wollen.');
writeln ('Moeglichkeiten: +,-,*,/,Qudratl');
read(c);

if
c= +
Then begin writeln ('Bitte geben Sie den zweiten Summanden an.');
read(b);
d:=a+b;
writeln('Ergebnis Ihrer Rechnung:', d );




if c= -
Then begin
writeln ('Bitte geben Sie den Subtrahenten ein.');
read(b);
d:=a-b;
writeln('Ergebnis Ihrer Rechnung:', d );


if c= *
Then begin
writeln ('Bitte geben Sie den zweiten Faktor ein.');
read(b);
d:=a*b;
writeln('Ergebnis Ihrer Rechnung:', d );



if c= /
Then begin
writeln ('Bitte geben Sie den Divisor ein.');
read(b);
d:=a/b;
writeln('Ergebnis Ihrer Rechnung:', d );


if c="Qudrat"
Then begin
d:= a*a;
writeln ('Ergebnis Ihrer Rechnung', d);

end.

 

Und was ist jetzt konkret das Problem?

 

beim compilieren sagt mir tubo.exe immer beim THEN nahc der if bedingung:
"Error 42 : Error in Expression"

 

Ist der Code in deinem Beitrag etwa 1:1 aus der .pas Datei kopiert?

- ...
- Nach jedem begin muss auch mal ein end; kommen.
- Warum fünf mal "if-then"? Nimm lieber case.

 

nja das mit case hab Ich noch nicht gewusst.

wäre ganz cool wenn du mich mal bei icq adden könntest.
Meine nummer hab ich dir per PN geschrieben

 

Kann ich machen, aber dieses konkrete Thema sollte hier in diesem Thread weiter behandelt werden. Ist nicht gut wenn man einen Thread in der Luft hängen lässt und auf IM oder Mail umsteigt.

 

if <bedingung> then
begin
// anweisungen wenn <bedingung> zutrifft
end else begin
// anweisungen wenn <bedingung> nicht zutrifft
end;
wobei der else zweig optional ist.

in deinem fall also:
if c='+' Then
begin
writeln ('Bitte geben Sie den zweiten Summanden an.');
read(b);
d:=a+b;
writeln('Ergebnis Ihrer Rechnung:', d );
end;
beachte auch die einfachen hochkomma ' um das +! (was übrigens der grund für den fehler ist)

btw c="Quadrat" ist lötzinn! c ist vom typ char und kann daher nur genau 1 zeichen aufnehmen.

 

Wenn c vom Typ Char ist, dann muss es so aussehen:

if c = '-' then ....

Also Hochkomma benutzen.

btw: if ist schneller als case (ob man den Unterschied bemerkt ist eine andere Frage).

 

Aber ab 3 Wahlmöglichkeiten aufwärts bedeutet das unnötige Codezeilen.

 

Es hat eben alles seine zwei Seiten :-)

 

Ok also erstmal danke für den Hinweis.

Habe den Quellcode nun nochmal überarbeitet und das Programm wird nun zumindest schon einmal vollständig compiliert.

Jetzt hab ich aber immernoch ein Problem:
wenn ich das Programm dann ausführe kann ich zwar die erste Zahl eingeben, danach beendet sich das Programm aber selbstständig.
Wäre nett wenn ihr mich ncohmals supporten könntet.

Momentaner Quellcode:
program rechner;

var
a,b : real;
c : char;
d: real;

begin


writeln ('Bitte geben Sie die erste Zahl ein');
read(a);

write ('Bitte geben Sie die Rechenoperation ein, die Sie ausfuehren lassen wollen.');
write ('Moeglichkeiten: +,-,*,/');
writeln ('wenn Sie das Qudrat der eingegebenen Zahl bestimmen lassen wollen tippen Sie biite q ein'?;
read(c);

if
c= '+' Then
begin writeln ('Bitte geben Sie den zweiten Summanden ein.');
read(b);
d:=a+b;
writeln('Ergebnis Ihrer Rechnung:', d );
end;



if c= '-' Then
begin
writeln ('Bitte geben Sie den Subtrahenten ein.');
read(b);
d:=a-b;
writeln('Ergebnis Ihrer Rechnung:', d );
end;

if c= '*' Then
begin
writeln ('Bitte geben Sie den zweiten Faktor ein.');
read(b);
d:=a*b;
writeln('Ergebnis Ihrer Rechnung:', d );
end;


if c= '/' Then
begin
writeln ('Bitte geben Sie den Divisor ein.');
read(b);
d:=a/b;
writeln('Ergebnis Ihrer Rechnung:', d );
end;

if c='q' Then
begin
d:= a*a;
writeln ('Ergebnis Ihrer Rechnung', d);
end;


end.

Gruß
Sorber

 

Versuch es mal mit readln statt read. Musst dann halt nach der Eingabe des Buchstabens Enter drücken.

 

das liegt an deinen read()'s ersetze sie mal durch readln

edit zu spät

 

Du musst nicht:
if c= /
sondern:
if c= '/'

schreiben

Gruß Alexander


PS. Oh, das wurde ja schon korrigiert....

 

also ich besuche eine htl .. und jetz haben wir mit dem programmieren in ainf begonnen .. und ich habe ein paar schwierigkeiten ..

bei mir kommt auch immer ein fehler mit if und then .. und ich hab das jetz gelsen mit case .. wie tu ich das anwenden ??

wenn mir jem helfen kann er wär sehr wichtig weil wir am freitag eine schriftliche wiederholung haben und eine verzweifelte anfängerin bin ..!