среда, 27. март 2013.

2# Operatori u Paskalu


program paskal_operatori;

 uses crt;

 begin
 clrscr();
  writeln('************************ OPERATORI U PASKALU  ******************');
  writeln('****************************************************************');
  writeln();
  writeln('******* Aritmeticki operatori  ******************');

  writeln('Sabiranje');
  writeln('7 + 2=',7+2);

  writeln('Oduzimanje');
  writeln('7 - 2=',7-2);

  writeln('Mnozenje');
  writeln('7 * 2=',7*2);

  writeln('Deljenje');
  writeln('7 / 2=',7/2:6:2);

  writeln('Deljenje bez ostatka');
  writeln('7 div 2=',7 div 2);

  writeln('Ostatak pri deljenju');
  writeln('7 mod 2=',7 mod 2);


  writeln('******* Relacioni operatori ******************');

  writeln('7 > 2=',7>2);
  writeln('7 >= 2=',7>=2);

  writeln('7 < 2=',7<2);
  writeln('7 <= 2=',7<2);

  writeln('7 <> 2=',7<>2);
  writeln('7 = 2=',7=2);

 writeln('******* Bolean ili logicki operatori ******************');
 writeln();
  writeln('Logicko I AND');
  writeln('TRUE AND TRUE=',TRUE AND TRUE);
  writeln('TRUE AND FALSE=',TRUE AND FALSE);
  writeln('FALSE AND TRUE=',FALSE AND TRUE);
  writeln('FALSE AND FALSE=',FALSE AND FALSE);

  writeln();
  writeln('Logicko ILI OR');
  writeln('TRUE OR TRUE=',TRUE OR TRUE);
  writeln('TRUE OR FALSE=',TRUE OR FALSE);
  writeln('FALSE OR TRUE=',FALSE OR TRUE);
  writeln('FALSE OR FALSE=',FALSE OR FALSE);

  writeln();
  writeln('Logicko Ne NOT');
  writeln('NOT TRUE=',NOT TRUE);
  writeln('NOT FALSE=',NOT FALSE);

  readln();
 end.

Нема коментара:

Постави коментар