fb:porticula NoPaste
Pythagoras
Uploader: | ytwinky |
Datum/Zeit: | 01.09.2007 18:56:20 |
Dim As Double a, b, c
screen 18,32
Print "Dreiecksberechnung nach Pythagoras:"
Print
Input "Seite A : ", a
Print
Input "Seite B : ", b
Print
c = SQR( (a*a) + (b*b) )
print "Seite C :" ; c
Sleep