Advertisement
Guest User

Untitled

a guest
Feb 7th, 2016
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. function zadanie3(tabA,tabB,ma,mb,n)
  2. tabC is array[max(ma,mb)][2]
  3.  
  4. begin
  5. max=0;
  6. if(ma>mb)then
  7. begin
  8. max=ma
  9. end
  10. else
  11. max=mb
  12. end
  13. for wiersze:=0...max-1 step1
  14. begin
  15. for kolumna:=0...1 step1
  16. begin
  17. tabC[wiersze][kolumna]=0
  18. end
  19. end
  20.  
  21. kolumna:=0
  22. for wiersze:=0...max-1 step1
  23. begin
  24. if (tabA[wiersze]>tabB[wiersze])
  25. begin
  26. tabC[wiersz]=tabA[wiersz]
  27. end
  28. else
  29. begin
  30. tabC[wiersze]=tabB[wiersze]
  31. end
  32. end
  33. return tabC
  34. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement