Za SHARP PC 1401

13: "H" INPUT "L=";L,"L1";J1,"x1";X1,"y1";Y1:J2=Y1:IF X1

14: K1=J1:K2=J2:Y2=Y1:X2=X1:INPUT"L2";K1,"x2";X2,"y2";y2:k2=y2: IF X2

15: J=Y1-J1-X1/L*(J2-J1):K=Y2-K1-X2/L*(K2-K1)

20: A=X2/L:B=1-A:G=X1/L:D=1-G

25: IF G>=A LET F1=G:F2=B:F3=A

30: IF A>G LET F1=A:F2=D:F3=G

35: I=J1*(2*K1+K2)+J2*(K1+2*K2)+K*(J1*(1+B)+J2*(1+A))+J*(K1*(1+D)+K2*(1+G))

40: IF J*K<>0 LET I=I+J*K/F2/F1*(2*F1-SQU F1 - SQU F3)

45: I=I/6*L: PRINT I: GOTO "H

Legenda podatkov:

^e `elimo diagram integrirati kar samega s seboj, pri podatku L2 pritisnemo ENTER.

^e `elimo `e podani prvi diagram integrirati ponovno, pri podatku L pritisnemo ENTER.