[es] - Jednostavno pitanje-pascal??????

wake2525
Always Anonymous

Član broj: 51812
Poruke: 36
*.cmu.carnet.hr.

Profil

^{01.04.2005. u 20:51 - pre 231 meseci}

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.

You may stop me, but you can't stop us all..

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 21:59 - pre 231 meseci}

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.

Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 129
*.neobee.net.

Sajt: www.unicornsoft.net

Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 22:02 - pre 231 meseci}

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.

Odgovor na temu

wake2525
Always Anonymous

Član broj: 51812
Poruke: 36
*.cmu.carnet.hr.

Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 22:09 - pre 231 meseci}

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!!

You may stop me, but you can't stop us all..

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 22:20 - pre 231 meseci}

Sa FloodFill() mozes da popunis neki zatvoreni region.
U attachu imas arkanoid koji sam odavno napisao, mozda ti pomogne oko necega.

Prikačeni fajlovi

file.zip - 52.73k

Odgovor na temu

wake2525
Always Anonymous

Član broj: 51812
Poruke: 36
*.cmu.carnet.hr.

Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 23:32 - pre 231 meseci}

Odlicna je igrica,svaka cast.Kolko se dugo bavis programiranjem?

You may stop me, but you can't stop us all..

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Jednostavno pitanje-pascal??????

^{01.04.2005. u 23:53 - pre 231 meseci}

tnx :) prvi program sam napisao kada sam imao 5 godina. Znaci vec 10 godina radnog staza ;)

Odgovor na temu

wake2525
Always Anonymous

Član broj: 51812
Poruke: 36
*.cmu.carnet.hr.

Profil

Re: Jednostavno pitanje-pascal??????

^{02.04.2005. u 10:39 - pre 231 meseci}

Ono FloodFill(),
tebam upisati floodfill(x,x,x,x)-sta s tim x-evima?

You may stop me, but you can't stop us all..

Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 129
*.neobee.net.

Sajt: www.unicornsoft.net

Profil

Re: Jednostavno pitanje-pascal??????

^{02.04.2005. u 14:04 - pre 231 meseci}

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.

Odgovor na temu

wake2525
Always Anonymous

Član broj: 51812
Poruke: 36
*.cmu.carnet.hr.

Profil

Re: Jednostavno pitanje-pascal??????

^{02.04.2005. u 16:08 - pre 231 meseci}

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??

You may stop me, but you can't stop us all..

Odgovor na temu