Дан 1

1. Написати програм за израчунавање обима правоугаоника на основу унетих страница.

PROGRAM obim;
VAR a, b, 0: REAL;
BEGIN
  READLN(a,b);
  o :=2*a + 2* b;
  WRITELN(о);
  READLN;
END.

2. За унети полупречник израчунати обим и површину круга.

 
PROGRAM krug;
VAR r, o, p: Real;
BEGIN
  Readln(r);
  o  := 2 * r * 3.14;
  p  := 3.14*r*r;
  Writeln(O);
  Writeln(P);
Readln;
END.

 

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

3. Написати програм за испис збира два унета броја

4. Написати  програм за израчунавање обима троугла на основу унетих страница троугла.

5. Ако возило пређе са X литара горива S км. Колико потроши литара горива за Y пређених километара (X, S, Y се уносе са тастатуре).

6. Написати програм за претварање D долара у евре на основу унете вредности Х, при чему је Е=X*D.

Advertisements

2 thoughts on “Дан 1

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

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

WordPress.com лого

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

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

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

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

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

Google+ photo

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

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