TPK algorithm: Difference between revisions

Revision as of 17:03, 15 May 2007

Revision as of 17:47, 15 May 2007

Line 9:

<code>

'''begin'''
'''integer''' i;
'''real''' y;
'''real array''' a[0:10];

'''real procedure''' f(t); '''real''' t; '''value''' t;

f'''real :=procedure''' sqrt(absf(t))+5*t^3;

'''for''' i := 0 '''step''' 1 '''untilreal''' 10t; '''dovalue''' read(a[i])t;

'''for''' i := 10 '''step'''f -1:= '''until'''sqrt(abs(t)) 0+ '''do'''5*t^3;

'''begin''' y := f(a[i]);

'''for''' i := 0 '''ifstep''' y > 4001 '''thenuntil''' write(i,10 "TOO LARGE")'''do'''

'''else''' writeread(a[i,y]);

'''for''' i := 10 '''step''' -1 '''until''' 0 '''do'''

'''end'''

'''begin''' y := f(a[i]);

'''if''' y > 400 '''then'''

write(i, "TOO LARGE")

'''else'''

write(i, y);

'''end'''

'''end'''

</code>