Дан 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) са тастатуре наћи најмањи.

Advertisements

Оставите одговор

Попуните детаље испод или притисните на иконицу да бисте се пријавили:

WordPress.com лого

Коментаришет користећи свој WordPress.com налог. Одјавите се / Промени )

Слика на Твитеру

Коментаришет користећи свој Twitter налог. Одјавите се / Промени )

Фејсбукова фотографија

Коментаришет користећи свој Facebook налог. Одјавите се / Промени )

Google+ photo

Коментаришет користећи свој Google+ налог. Одјавите се / Промени )

Повезивање са %s