E,gore si nešto krivo napisao,pogledaj,nešto si pobrkao.EDIT:riješio sam,daj mail da ti pošaljem baš exe datoteku jer ti kod ništa ne znači.Kad ti piše E+027 npr. to ti znači nešto*1027
Pa i kod mi znači.
Moram naučit te potencije.
Ako je kg onda je *10-27kg, a ako su grami onda *10-24g.
OK,ja sam pretpostavio da je masa u kilogramima.
Korisnik upisuje 10 brojeva, a program ispisuje sumu djeljivih s 3.Jel mi netko može ovo pokazati kako se riješava sa while petljom
U osnovi želiš pretočiti petlju for i := 1 to 10 do u while petlju, zar ne?
i := 1;
while i <= 10 do
begin
...
...
Inc(i);
end;
Ovako bih ja(isprike ako bude sintatičkih greški,nisam spec. za Pascal :) )
sum := 0;
kv := 0;
while(kv < > 10) do begin
readln(x);
if( x MOD 3 = 0 ) then sum:=sum+x;
kv:=kv+1;
end;
Evo ti.
EDIT:Sorry,već su prije riješili.
program forum;var x,i,s:integer;beginwriteln('Upisi 10 brojeva');i:=1;s:=0;while i<=10 do begin readln(x); if (x mod 3) = 0 then s:=s+x; i:=i+1; end;writeln('Suma djeljivih s 3 je ',s);readln;end.
Zašto <>? Ako ideš od 1 do 10, onda normalno da ćeš gledati je li < ili <=. Jest da će efekt biti isti ako pazimo da se uvećava uvijek samo za 1, ali to što si napravio nije uputno raditi. Tebi je cilj doći do nekog broja, dakle gledati dok je brojač manji (ili jednak) od tog broja, a ne vrtjeti petlju dok je brojač različit od nekog broja (tu onda taj broj u osnovi i nema funkciju maksimalnog broja).
I još jedan komentar - okrugle zagrade su ti suvišne.
Okrugle zagrade -> navika,ništa loše u njoj 
kv <> 10 -> slažem se,eto tu radi,općenito je bolje koristiti <=,zbog stepova i tog
hvala decki puno bas sam se razmisljao kako da napravim u while petlji a nikako nisam uspjevao.Hvala puno
e pozz
zelim naucit pascal programiranje
tj zelim ucit jer pisemo ispit iz toga za 2 tjedna!
buduci da imamo profesora koji nista ne objasni tako ni mi nista neznamo.
pa ako ima neko tutorijale za totalne pocetnike bio bi jako zahvalan!
pozz
Može li me netko ispraviti ?
Što radim krivo ?
Izbaci mi error74: Constant and case types don't match
program peti;
var a,b:integer;
begin
writeln('unesi cijeli broj');readln(a);
b:=a mod 10;
case b of
'0':writeln('broj',a,'je djeljiv sa brojevima 2,5 i 10');
'5':writeln('broj',a,'je djeljiv sa brojem 5');
end;
readln;
end.
Može li me netko ispraviti ?
Što radim krivo ?
Izbaci mi error74: Constant and case types don't match
program peti;
var a,b:integer;
begin
writeln('unesi cijeli broj');readln(a);
b:=a mod 10;
case b of
'0':writeln('broj',a,'je djeljiv sa brojevima 2,5 i 10');
'5':writeln('broj',a,'je djeljiv sa brojem 5');
end;
readln;
end.
Zašto si kod case stavio navodnike?
program neki;
var a,b:integer;
begin
writeln('unesi cijeli broj');
readln(a);
b:=a mod 10;
case b of
0:writeln('Broj ',a,' je djeljiv sa brojevima 2,5 i 10!');
5:writeln('Broj ',a,' je djeljiv sa brojem 5!');
end;
readln;
end.
Eto.
Može li me netko ispraviti ?
Što radim krivo ?
Izbaci mi error74: Constant and case types don't match
program peti;
var a,b:integer;
begin
writeln('unesi cijeli broj');readln(a);
b:=a mod 10;
case b of
'0':writeln('broj',a,'je djeljiv sa brojevima 2,5 i 10');
'5':writeln('broj',a,'je djeljiv sa brojem 5');
end;
readln;
end.
Zašto si kod case stavio navodnike?
ispravio sam to ali mi opet javlja error
Pogle što je kolega @Plahi stavio.
Probaj skopirati mju verziju u pascal, kompajliraj i pokreni...( neće ti raditi vjerojatno jer ti se pascal zblesiral, ponekad nakon ispravljene greške, kompajlira kao da je još uvijek greška, pa ga moraš restartati.)
e pozz.
evo poceo sam u pascalu jer pisemo za 2 tjedna malo manje..
uglavnom imam problem
napisem program i kad idem run dode mi ovo i ne zeli pokrenuti program
stvarno neznam sta je ovo.
evo slike
HTC Desire Android
da hvala al opet isti eror mi dode
znac idem run i onda me pita da spremim taj program...
da hvala al opet isti eror mi dode
znac idem run i onda me pita da spremim taj program...
Pa spremi ga...
jesam iako neznam di, jer nis ne kuzim u ovom prastarom exploreru il sta je to, spremio sam!
jesam iako neznam di, jer nis ne kuzim u ovom prastarom exploreru il sta je to, spremio sam!
Ok i sada compile- compile pa run
nemogu kliknut compile - compile jer je onako siv, pa nemogu kliknut.
Ajmo ovako. Procedura sve ispočetka.
File - New
program forum;
var a,b,o,p:integer;
begin
writeln('Upiši duljine stranica');
readln(a,b);
o:=a+b;
p:=a*b;
writeln('Površina je ',p,' a opseg ',o);
readln;
end.
Popravio sam ti neke greške ;)
Compile - compile
spremi kao Name - nekoime
run - run
HTC Desire Android
Da, a i kod ispisa varijable o mu je falio zarez ispred...
kad idem compile opet isto dode
eo ss
EDIT:
eo radi sad kad sam stavio forum;
kad idem compile opet isto dode
eo ss
iza program forum;
evo jos jedan
pa ako moze isto da pojasnite i to hvalaaaa :D
mozda sam dosadan al jbg :D
napisi program koji ce izracunati slobodan prostor na dvdu ako se na njega snimi datoteka odredene
velicine. velicinu datoteke izrazi u mb, a velicinu praznog prostora na dvdu izrazit cemo u mb i kb.
