уторак, 15. март 2011.

Sabrianje dva broja unos sa tastature

program sabiranje_dva_broja;
uses crt;
var
  x,y:integer;
  z:real;
 begin
  clrscr();
  // Bojanje teksta u programu
   TextColor(Red);
    Writeln('Hello');
   TextColor(White);
    Writeln('world');

  // Dodeljivnaje vrednosti
  Writeln('Unesi te broj x');
  Write('x=');
  readln(x);

   Writeln('Unesi te broj y');
  Write('y=');
  readln(y);

  z:=x+y;
      TextColor(Green);
   writeln ('Suma=',z:0:3);

   //Pomeranje teksta na odredjenu lokaciju po kordinatama
   GoToXY(10,5);
   Writeln('Hello na drugom mestu');

   readln;
   readln;
  end.

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

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