Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- real procedure Sum(k, l, u, ak);
- value l, u;
- integer k, l, u;
- real ak;
- begin
- real s;
- s := 0;
- for k := 1 step 1 until u do
- s := s + ak;
- Sum := s
- end Sum;
- ...
- Sum(i, 1, 100, V[i])
- ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement