Jednostavno pitanje-pascal??????

Jednostavno pitanje-pascal?????? 01.04.2005. u 21:51 · pre 262 meseca #1

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.

Potpis

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

Re: Jednostavno pitanje-pascal?????? 01.04.2005. u 22:59 · pre 262 meseca #2

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.

Re: Jednostavno pitanje-pascal?????? 01.04.2005. u 23:02 · pre 262 meseca #3

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.

Re: Jednostavno pitanje-pascal?????? 01.04.2005. u 23:09 · pre 262 meseca #4

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

Potpis

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

Re: Jednostavno pitanje-pascal?????? 01.04.2005. u 23:20 · pre 262 meseca #5

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

file.zip52.73k

Re: Jednostavno pitanje-pascal?????? 02.04.2005. u 00:32 · pre 262 meseca #6

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

Potpis

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

Re: Jednostavno pitanje-pascal?????? 02.04.2005. u 00:53 · pre 262 meseca #7

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

Re: Jednostavno pitanje-pascal?????? 02.04.2005. u 11:39 · pre 262 meseca #8

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

Potpis

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

Re: Jednostavno pitanje-pascal?????? 02.04.2005. u 15:04 · pre 262 meseca #9

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.

Re: Jednostavno pitanje-pascal?????? 02.04.2005. u 17:08 · pre 262 meseca #10

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

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme