[ wake2525 @ 01.04.2005. 20:51 ] @
Kako napisati program u pascalu koji ce:
-zbrojiti brojeve x (x+x+x+x+x.......) ako ne znamo koliko ce x-eva biti


program blabla;
var x1,x2:integer;
begin
writeln("Dva broja:");
readln(x1,x2); -a sta ako x-eva moze biti
writeln("Rezultat:",x1+x2); od 2 do 10000000??
end.

[ reiser @ 01.04.2005. 21:59 ] @
Code:

program blabla;
var
  suma, x : Integer;
begin
  repeat
    Write('Unesi broj: ');
    ReadLn(x);
    suma := suma + x;
    WriteLn('Suma: ', suma);
  until 1 <> 1;
end.


A ako treba da sve brojeve smestis u array, onda ovako :

Code:

program blabla;
var
  suma : Integer;
  xarr   : Array[1..100000] of Integer;
  totx  : Integer;
begin
  repeat
    Inc(totx);
    Write('Unesi broj: ');
    ReadLn(xarr[totx]);
    suma := suma + xarr[totx];
    WriteLn('Suma: ', suma);
  until 1 <> 1;
end.

[ IgLo @ 01.04.2005. 22:02 ] @
Ili ako hoces da prekines u nekom momentu :)

Code:

Program ZbirBrojeva;

Var
   Zbir,
   Sabirak : Real;

Begin
     Zbir := 0;
     Repeat
           Write ('Unesite sabirak (za kraj unesite 0): ');
           ReadLn (Sabirak);
           Zbir := Zbir + Sabirak;
     Until Sabirak = 0;
     WriteLn;
     WriteLn ('Zbir brojeva je: ', Zbir:2:2);
End.
[ wake2525 @ 01.04.2005. 22:09 ] @
Hvala,a sad jos jedno,moze?
Ovo bi trebalo napravit krug,a dal je moguce da pobojam povrsinu unutar kruga u jednu,a izvan njega u drugu boju?


......
var gd,gm:integer;
x,y:real;

begin

detectgraph(gd,gm);
initgraph(gd,gm,'c:\tp\bgi');
circle(100,100,100);
.......


I jos jedno:Dal je napredniji Pascal/Delphi ili C/C++???-ovo mi je jako vazno!!
[ reiser @ 01.04.2005. 22:20 ] @
Sa FloodFill() mozes da popunis neki zatvoreni region.
U attachu imas arkanoid koji sam odavno napisao, mozda ti pomogne oko necega.
[ wake2525 @ 01.04.2005. 23:32 ] @
Odlicna je igrica,svaka cast.Kolko se dugo bavis programiranjem?
[ reiser @ 01.04.2005. 23:53 ] @
tnx :) prvi program sam napisao kada sam imao 5 godina. Znaci vec 10 godina radnog staza ;)
[ wake2525 @ 02.04.2005. 10:39 ] @
Ono FloodFill(),
tebam upisati floodfill(x,x,x,x)-sta s tim x-evima?
[ IgLo @ 02.04.2005. 14:04 ] @
Nije 4 nego tri parametra:

FloodFill (x, y : integer; Border : Word);

gde su ti X i Y koordinate na ekranu odakle ce da krene popunjavanje, a Border predstavlja boju do koje se popunjava. Znaci ako imas recimo zutu kruznicu koju treba da popunis nekom bojom, X i Y stavis da budu kordinate bilo gde unutar kruznice, a Border postavis na zutu boju.
[ wake2525 @ 02.04.2005. 16:08 ] @
Daj pokazi na primjeru
npr.:napisati program koji ce pokazati 2 kruznice razlicitih boja,a pozadina da bude neke trece boje:


program krug;
uses graph,crt;
var a,b,x,y:integer;
begin
detectgraph(a,b);
initgraph(a,b,'c:\tp\bgi');
circle(200,100,100);
circle(300,100,100);
floodfill(200 +1,100+1 ,white);
floodfill(300+1,100+1 ,black);
readln;
end.

-tako sam te ja skuzio, al cini se da to nije to??