PC Ekspert Forum

PC Ekspert Forum (https://forum.pcekspert.com/index.php)
-   Web dizajn, programiranje i ostalo (https://forum.pcekspert.com/forumdisplay.php?f=39)
-   -   QBasic (https://forum.pcekspert.com/showthread.php?t=17605)

Cyber_eye 15.02.2005. 18:04

QBasic
 
ovak početnik sam u programiranju i u školi na mje profesor dao za datak da isprogramiramo u qbasicu program koji će između brojeva 100 i 120 izvući sve parne ili neparne brojeve.Kaka da to napravim?

.: Tyrael :. 15.02.2005. 18:16

Cijelobrojno dijeljenje.. dakle podijelis broj sa dva ako ima ostatak onda je neparan a ako nema onda je paran... simple as that!

bude 15.02.2005. 18:23

print "Parni brojevi:"
for n=100 to 200 step 2
print n
next n
print "Neparni brojevi:"
for m=101 to 199 step 2
print m
next m




Eto.. Nisam programirao u qBasicu 100 god :D
e da.. nemam komajler pa ako nesto ne radi javi :)

.: Tyrael :. 15.02.2005. 18:30

To je kurvinski :) ides na foru da znas da je svaki drugi broj neparan, ne izvrsava se nikakva provjera...

Iako je tocno ja ti nebi priznao to :)

bude 15.02.2005. 18:39

Citiraj:

Originally posted by .: Tyrael :.
To je kurvinski :) ides na foru da znas da je svaki drugi broj neparan, ne izvrsava se nikakva provjera...

Iako je tocno ja ti nebi priznao to :)

pa to i je bit da koristis algoritme koji ce brze obaviti nekakav posao :D


evo ovako onda

? "parni"
for n=100 to 200
if n mod 2 = 0 THEN print n
next n
? "neparni"
for n=100 to 200
if n mod 2 <> 0 THEN print n
next n

.: Tyrael :. 15.02.2005. 18:44

@bude

To je vec nesto po mom ukusu :)

Pozdrav!

bude 15.02.2005. 18:48

Ili malo s do loop petljom ;)

CLS
PRINT "Parni:"
A = 100
DO WHILE (A < 200)
PRINT A;
A = A + 2
LOOP
PRINT
PRINT "Neparni:"
A = 101
DO WHILE (A < 200)
PRINT A;
A = A + 2
LOOP

bude 15.02.2005. 19:03

Hm u c-u :D
#include

int main()
{
int n;
for (n=100;n<200;printf("%i ",n+=2));

for (n=101;n<200;printf("%i ",n+=2));


return 1;
}

Cyber_eye 15.02.2005. 22:19

Fala dečki


Sva vremena su GMT +2. Sada je 16:58.

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 1999-2024 PC Ekspert - Sva prava pridržana ISSN 1334-2940
Ad Management by RedTyger