Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  h
Language: PASCAL
Code:
program
  Main;
label 
Verteiler,Start;
var
  frage,name,antwort: string ;
zahl1,zahl2,ergebnis: integer ;
zahl3:real;
anweisung: char;
begin
 writeln('Hallo');
 writeln('Wie heisst du ?');
 readln(name);
 writeln('Hallo',name);
 writeln('Dies ist ein voll  funktionstûchtiger Taschenrechner');
Start:
 writeln('Gib nun deine erste Zahl ein');
 readln(zahl1);
Verteiler:
 writeln(zahl1);
 writeln('Möchtest du addieren(a), subtrahieren(s), multiplizieren(m) oder dividieren(d)?');
 readln(anweisung) ;
  If anweisung='a' then
   begin
   writeln('Gebe jetzt die zweite Zahl zum addieren ein.');
   readln(Zahl2);
writeln(zahl1,' + ',zahl2,' = ',zahl1+zahl2);
   zahl3 :=zahl1+ zahl2 ;
   zahl1:=zahl3;
   end
  Else
   begin
   If anweisung='s' then
    begin
    writeln('gebe den subtrahent ein');
    readln(zahl2);
    writeln(zahl1,' - ',zahl2,' = ',zahl1-zahl2);
   zahl3:=zahl1-zahl2 ;
   zahl1:=zahl3;
    end
   else
    begin
    If anweisung='m' then
     begin
     writeln('gebe den Multiplikator  ein');
    readln(zahl2);
    writeln(zahl1,' * ',zahl2,' = ',zahl1*zahl2);
zahl3:=zahl1*zahl2 ;
   zahl1:=zahl3;
     end
    else
     If anweisung='d' then
      begin
      writeln('gebe den divident ein');
    readln(zahl2);
    writeln(zahl1,' / ',zahl2,' = ',zahl1/zahl2) ;
   zahl3:=zahl1/zahl2 ;
   zahl1:=zahl3;
      end
   end
  end;
writeln('Willst du weiterrechnen?');
Readln(antwort);
If (antwort='Ja') or (antwort='ja') then
Goto Verteiler;
writeln('Willst du von vorne beginnen?');
Readln(Antwort);
If (antwort='Ja') or (antwort='ja') then
Goto Start;
Else
begin
 writeln('Dein Ergebnis ist',zahl3);
writeln('Vielen Dank für die Benutzung');
end
readln
end.
Comments: