home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / amag / AM9512_2.lha / Amiga-E-Kurs / Listing1.e next >
Text File  |  1995-11-19  |  526b  |  23 lines
  1. DEF name[20]:STRING, a, b,
  2.     hilf[10]:STRING
  3.  
  4. PROC main()
  5.    WriteF('Guten Tag!\n\nBitte geben '+
  6.           'Sie Ihren Namen ein: ')
  7.    ReadStr(stdout,name)
  8.  
  9.    WriteF('Bitte geben Sie Zahl a ein: ')
  10.    ReadStr(stdout,hilf)
  11.    a:=Val(hilf,NIL)
  12.  
  13.    WriteF('Bitte geben Sie Zahl b ein: ')
  14.    ReadStr(stdout,hilf)
  15.    b:=Val(hilf,NIL)
  16.  
  17.    WriteF('\n\nIch habe für Sie, \s, ' +
  18.           'ein wenig gerechnet:\n',name)
  19.    WriteF('\d+\d = \d\n',a,b,a+b)
  20.    WriteF('\d-\d = \d\n',a,b,a-b)
  21.    WriteF('\d*\d = \d\n',a,b,a*b)
  22. ENDPROC
  23.