SHARE
TWEET

iabur

a guest Jun 19th, 2017 54 in 24 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. loop:-        
  2.                      read(X),
  3.     repeat,
  4. (               ( between(1,10,Increment),
  5.     write('Hello'),
  6.     write(Increment),
  7.     nl),
  8.                   Increment == X
  9.    
  10.    
  11. ).
  12.  
  13. grade_print:-
  14.     write('Enter Marks: '),
  15.     read(Mark),
  16.     (
  17.       (   Mark>100, Mark<0) ->
  18.         (
  19.         format('Invalid Input'),
  20.         nl,
  21.         format('Input Again')
  22.         );
  23.         (   Mark>=0, Mark=<33) ->
  24.         (
  25.         format('Failed')
  26.         );
  27.  
  28.      (   33 =< Mark, 100>=Mark) ->
  29.         (
  30.          format('Passed'),
  31.          nl,
  32.          format('Congratulation')
  33.      )
  34.     ).
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top