Adytzu04

rotstudio

Mar 25th, 2014
486
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MODULE Program
  2.  
  3.     VAR num lungime;
  4.  
  5.     VAR num latime;
  6.  
  7.     VAR num aria;
  8.    
  9.     VAR num rez;
  10.    
  11.     VAR bool check:=FALSE;
  12.  
  13.  
  14.  
  15.     PROC main()
  16.             TPErase;  !sterge textul din consola
  17.             citeste;
  18.         IF check= TRUE THEN
  19.             TPWrite "Aria nu poate fi calculata";
  20.         ELSE
  21.              calcul lungime, latime  \o:=9;
  22.            
  23.         ENDIF
  24.             robtargets;
  25.     ENDPROC
  26.    
  27.    
  28.     PROC citeste()
  29.        
  30.         TPReadNum lungime, "Introduceti lungimea:";
  31.         TPReadNum latime, "Introduceti latimea:";
  32.         IF lungime < 0 THEN
  33.            
  34.           TPWrite "Valoarea nu poate fi negativa";
  35.             check:=TRUE;
  36.         ELSE IF latime <0 THEN
  37.            TPWrite "Valoarea nu poate fi negativa";
  38.            check:=TRUE;
  39.         ENDIF
  40.          ENDIF  
  41.          
  42.           IF check= TRUE THEN
  43.             TPWrite "Aria nu poate fi calculata";
  44.             ENDIF
  45.          
  46.        
  47.     ENDPROC    
  48.    
  49.     PROC calcul(num lungime,num latime \num o)
  50.        
  51.         VAR num z:=10;
  52.         VAR num x:=9;
  53.         rez:=z+x;
  54.         aria:=lungime*latime+o;
  55.         TPWrite "Aria unui dreptunghi este "\Num:=aria;!afisare pe teach pendant  
  56.        
  57.        TPWrite "z + x = "\Num:=rez;
  58.     ENDPROC
  59.        
  60.     PROC robtargets()
  61.         CONST robtarget p1 := [ [600, 500, 225.3], [1, 0, 0, 0], [1, 1, 0, 0], [ 11, 12.3, 9E9, 9E9, 9E9, 9E9] ];
  62.             var num rotatie;
  63.        
  64.          rotatie:=p1.rot.q1;
  65.         TPWrite "rotatie "\Num:=rotatie;
  66.          !TPWrite "rotatie "\Num:=p1.rot;
  67.         TPWrite "pozitia  robot"\pos:=p1.trans;
  68.        
  69.     ENDPROC
  70.  
  71. ENDMODULE
RAW Paste Data