Дан 2

7. Са тастатуре уписати број. Ако је већи од нуле написати „BROJ JE POZITIVAN“.

PROGRAM broj;
VAR  a: Real;
BEGIN
  Write('Unesite broj ');
  Readln(a);
  IF a > 0 THEN
               begin
    Writeln('POZITIVAN');
               End;
  Readln;
END.

8. Написати програм за испис успеха на основу просека који се уноси.

 

PROGRAM uspeh;
VAR oc: REAL;
BEGIN
  Writeln('Unesite prosek ');
  Readln(oc);
  IF oc < 1.5 THEN
begin
 Writeln('Nedovoljan');
End;
  IF (oc >= 1.5) and (oc < 2.5) THEN 
begin
Writeln('Dovoljan');
End;
  IF (oc >= 2.5) and (oc < 3.5) THEN 
begin
Writeln('Dobar');
End;
  IF (oc >= 3.5) and (oc < 4.5) THEN 
begin
Writeln('Vrlo dobar');
End;
  IF (oc >= 4.5) THEN 
begin
Writeln('Odlican');
End;
  Readln;
END.

9. Проверити да ли је унети број позитиван, негативан или нула. 

PROGRAM broj1;
VAR a : Real;
BEGIN
  Write('Vas broj ');
  Readln(a);
  IF a > 0 THEN
        begin
    Writeln('POZITIVAN');
        end;
 IF a = 0 THEN
        begin     
    Writeln('JEDNAK JE NULI');
        end;
IF a < 0 THEN
        begin
    Writeln('NEGATIVAN');
        end;
     Readln; 
END.

Задаци за вежбање

10. Унети Х и написати да ли је паран или непаран број?

11. Написати програм за одређивање апсолутне вредности унетог броја Х.

12. Од два уписана броја (a, b) са тастатуре наћи већи.

13. Од три уписана броја (a, b, c) са тастатуре наћи најмањи.

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