prije else neide ";"
znaci neide
if uvjet then naredba;
else naredba;
nego
if uvjet then naredba
else naredba;
ok jesam
al opet samo se pojavi dole ona poruka..ocito neradi program-meni..
A jesi nesposoban... Pa što ti poruka kaže? Icon file not found (please change it in Project Options). Što ona nisi išao u Project Options i odabrao datoteku s ikonom? Mislim, ono... Izbornik Project > Project Options, klik na gumb Load Icon (s Dev-Pascalom dolaze neke ikone smještene u mapu C:\Dev-Pas\Icons), učitaš ikonu, kompajliraš i gotovo.
da bio sam tu al nisam mogo nac te ikone..hvala..di cu znat ucim jos uvjek..
evo sad mi je proradilo...
al mislim da nesto u pisanju programa ne valja!
znaci ovo mi dode kad upisem broj koji nije djeljiv sa 7..
ili sam ja krivo shvatio!
evo sad mi je proradilo...
al mislim da nesto u pisanju programa ne valja!
znaci ovo mi dode kad upisem broj koji nije djeljiv sa 7..
ili sam ja krivo shvatio!
Jesi pogledao izvorni kod programa kojeg si kompajlirao i pokrenuo? Jel ga razumiješ? Onda bi ti trebalo biti jasno da piše upravo ono što bi trebalo pisati - po tom izvornom kodu.
ne razumijem bas sve..
evo kod pa boldano ne kuzim..
program xxx ;
var a:integer;
begin
writeln('Upiši neki broj...');
readln(a);
if a mod 7 = 0 then
writeln('Broj je djeljiv sa 7!')
else
if a/7>=a div 7 + 0.5 then
writeln('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7+1)
else
writeln ('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7);
readln;
end.
ovo zaokruzeno...na koji nnacin zaokruzeno??
i za mod nisam siguran..
ne razumijem bas sve..
evo kod pa boldano ne kuzim..
program xxx ;
var a:integer;
begin
writeln('Upiši neki broj...');
readln(a);
if a mod 7 = 0 then
writeln('Broj je djeljiv sa 7!')
else
if a/7>=a div 7 + 0.5 then
writeln('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7+1)
else
writeln ('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7);
readln;
end.
ovo zaokruzeno...na koji nnacin zaokruzeno??
Ispiši si koliko ti iznosi a/7, koliko a div 7 + 0.5, koliko a div 7 + 1, koliko a div 7. Pa probaj malo povezati stvari. Pazi - s a/7 dobiš decimalni broj, dok s a div 7 dobiš cijeli broj (decimale se odrežu). Malo istraži sve to. Ako ti to ne odgovara, zaokružuj funkcijom Round ili reži decimale s funkcijom Trunc.
mozda bi i povezao, da znam sta uopce radi funkcija div.
i zasto a div 7 +1 i a div 7 + 0.5?
round funkcija ide ovako
znaci ako dode 7.5 onda zaokruzi na 8?
ako je npr 3.4 zaokruzi na 3?
mozda bi i povezao, da znam sta uopce radi funkcija div.
LOL. Pa to su osnove osnova. div nije funkcija - div je operator, isto kao što imaš operatore +, -, /, *, @, ^, >, <, =...
/ je operator za dijeljelje kod kojeg je rezultat broj s decimalnom točkom
div je operator za dijeljenje kod kojeg je rezultat cijeli broj (decimalni dio rezultata se jednostavno ukloni - dakle, kao da si napravio Trunc(a/b) - to je isto kao a div b).
znaci ako dode 7.5 onda zaokruzi na 8?
ako je npr 3.4 zaokruzi na 3?
Kao prvo - već sam jednom napisao kako radi funkcija round i ne mislim se ponavljati. Kao drugo - zašto me to pitaš? Zar ne znaš napisati tu jednu liniju koda koja će ti ispisati round za 3.4 i round za 7.5? Učiš programirati - a to znači da za ono što te zanima, jednostavno napišeš program i vidiš rezultat! To je sastavni dio programiranja! Mislim - gdje je tu kraj? Hoćeš me pitati koliko je Round(0)? Koliko je round(0.4999990)? NAPIŠI LINIJU KODA I SAM VIDI!
neznam
pokusao sam..
program round;
var a:real;
begin
writeln('napisi jedan decimalni broj: ');
readln(a);
round a;
readln;
end.
totalni sam pocetnik..to sam poceo jer pisemo ispit, a imamo profesora koji nista nezna.pitam ga prof. sta sam krivo napisao u ovom programu.
on gleda minut dva i kaze neznam.. ja KOJI K?? nemos to rec uceniku..mislim..
a ovo div nismo radili u skoli, tako da prvi put cujem danas za to!
var a:real;
begin
writeln('napisi jedan decimalni broj: ');
readln(a);
round a;
readln;
end.
Shvaćaš da tvoj program ne radi baš ništa (osim što učitava broj - ali s njim ništa ne radi)? Što je round? Round je funkcija koja prima jedan argument, zar ne? Kako se pišu funkcije?
rezultat := ImeFunkcije(argument1, argument2, argument3...);
A što ti imaš? round a; A to ne znači apsolutno ništa - to je sintaktička pogreška. A bila bi i semantička pogreška, jer pozivaš funkciju, ali ništa ne radiš s njezinim rezultatom.
Shodno tome, jasno je da se funkcija mora pozivati u obliku: round(a) - pri čemu ona vraća rezultat. A što ćemo s rezultatom? Pa možemo ga pospremiti natrag u varijablu a, pa bi imali a := round(a);. Ili ga možemo odmah ispisati, pa bismo imali WriteLn(round(a));
Primijeti također da ti NIGDJE u svom programu nisi ispisao rezultat! Čemu ti onda služi taj program, ako ne znaš koju vrijednost je vratila funkcija round?!
Jesi sad malo bolje pohvatao stvari?
i kako bi onda izgledao taj kod na kraju?
program nekixyz;
var
a:real;
begin
WriteLn('Upisi jedan decimalni broj: ');
ReadLn(a);
a := Round(a);
WriteLn('Zaokružena vrijednost tog broja je: ', a);
end.
meni nece radit program..
probao sam na kraj stavit readln; al opet nece..
edit- sad radi!
e..nesto nikako ne kuzim..
vjezbam malo da mi ude u glavu sta bolje..
pa evo slike..
zelim da mi se napise tekst, pa rezlutat i poslje rezultata da mi se ispise jos neki tekst!
samo mi javlja gresku, pa neznam sta cinim krivo!
eo slke
Ne znamo ni mi s obzirom da nisi napisao KOJU grešku ti javlja. Zbilja ne kužim zašto ljudi ne napišu o kojoj greški je riječ - pa na kraju krajeva smisao opisa greške je da pokuša objasniti što je krivo. Mislim - izostaviš ključnu stvar.
Iako je u ovom konkretnom primjeru jasno - malo bolje pogledaj drugi WriteLn. Zašto su desna zagrada i ; crveni?! A u prvom WriteLn-u nisu - tamo su crni, kakvi i trebaju biti. Nešto si zaboravio...
Edit - evo, baš sam probao napraviti istu grešku koju si i ti napravio - a poruka? Fatal: String exceeds line - mislim da je već ta informacija dovoljna (uz broj linije na kojoj je greška napravljena!) sasvim dovoljno da skopčaš gdje je greška i s čim greška barem ima okvirne veze.
da evo..zaboravio sam '
tako da sad sam uspio:D
e pokusavam napravit program koji izracunava kv. jednadzbu..
sad me zanima kako korjen? na kvadrat je ako se ne varam sqr(a) to je a na kvadrat..
sad me zanima kako korjen da napisem.
sqrt(a)
http://www.templetons.com/brad/alice/language/language8.html
manje od 5 sekundi googlanja, ccc
sqrt je korijen, a pow je kvadrat.
tako je u c-u, u pascalu je vjerojatno slično/isto.
sqrt(a)
http://www.templetons.com/brad/alice/language/language8.html
manje od 5 sekundi googlanja, ccc
a googlao sam..5minuta:D
edit:sta je na kraju za kvadrat - pow ili sqr?
a googlao sam..5minuta:D
Ponekad treba znati i sto tocno zapravo trazis
googlanje slijedecih pojmova:
pascal math functions
mi je kao prvi rezultat dalo onaj link koji sam ti proslijedio... 
sqrt je korijen, a pow je kvadrat.
tako je u c-u, u pascalu je vjerojatno slično/isto.
Pow je x na y, zar ne? A to nije nužno kvadrat. U Pascalu ne postoji takva funkcija - ali ljudi su napisali svoje. Za kvadrat u Pascalu postoji funkcija sqr - prilično nepotrebna, s obzirom da je kvadrat = broj * broj.
Ne budeš uspjel napraviti zadatak koji bi ti radio za bilo koje brojeve.Možeš napraviti samo kvadratnu koja ima integer rezultate.
Ne budeš uspjel napraviti zadatak koji bi ti radio za bilo koje brojeve.Možeš napraviti samo kvadratnu koja ima integer rezultate.
hmm...ne kuzim bas sta si zelio rec..al nisam uspio napravit program za kv jed. zato jer neznam kako da izbaci 2 rjsenja-x1 i x2!
Ne budeš uspjel napraviti zadatak koji bi ti radio za bilo koje brojeve.Možeš napraviti samo kvadratnu koja ima integer rezultate.
hmm...ne kuzim bas sta si zelio rec..al nisam uspio napravit program za kv jed. zato jer neznam kako da izbaci 2 rjsenja-x1 i x2!
alo, evo naletih i ja, evo nes sam sklepo za kvadratnu jednadzbu (valjda radi kak spada, nisam iso provjeravat)
program kv_jed;
uses crt;
var a,b,c:integer;
d,x1,x2,r1,r2:real;
begin
writeln('upisi koeficijente jednadzbe');
write('a= '); readln(a);
write('b= '); readln(b);
write('c= '); readln(c);
d:=sqr(b)-4*a*c;
writeln('diskriminanta je ',d:0:2);
r1:=(0-b)/(2*a);
r2:=sqrt(abs(d))/(2*a);
if (d=0) then
begin
writeln('dvostruko rjesenje:');
writeln('x1 = x2 = ',r1:0:2);
end;
if (d>0) then
begin
writeln('dva rjesenja:');
x1:=r1+r2; x2:=r1-r2;
writeln('x1 = ',x1:0:2);
writeln('x2 = ',x2:0:2);
end;
if (d<0) then
begin
writeln('dva kompleksna rjesenja:');
writeln('x1 = ',r1:0:2,'+',r2:0:2,'i');
writeln('x2 = ',r2:0:2,'+',r2:0:2,'i');
end;
readkey;
end.
program Kvadratna; var a,b,c,D:real; x1r,x1i,x2r,x2i:real; begin writeln('Unesite koeficijente kvadratne jednacine'); write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); D:=sqr(b)-4*a*c; if D>=0 then begin x1r:=(-b+sqrt(D))/(2*a); x2r:=(-b-sqrt(D))/(2*a); x1i:=0;x2i:=0; end else begin x1r:=-b/(2*a); x2r:=x1r; x1i:=sqrt(-D)/(2*a); x2i:=-sqrt(-D)/(2*a); end; writeln('x1=',x1r:0:2,'+',abs(x1i):0:2,'i'); writeln('x2=',x2r:0:2,'-',abs(x2i):0:2,'i'); readln;end.
e sta se tice ovog zadatka..
Napisi program koji ce odrediti dali je neki broj djeljiv s 7. U slucaju da je, ispisuje se poruka, 'broj je djeljiv s 8'. Ako nije, ispisuje se rezultat
tog dijeljenja zaokruzen na najblizi cijeli broj.
ide ovako kod..
program djeljivsa7;
var a:integer;
begin
writeln('Upiši neki broj...');
readln(a);
if a mod 7 = 0
then
writeln('Broj je djeljiv sa 7!')
else
a:=Trunc(a/7);
writeln ('Rezultat dijeljenja sa 7 zaokruženo na najmanji cijeli broj je ',a);
readln;
end.
sad mi nije jasno ovaj 3. red na slici...
edit- sta se tice ove kvadratne..komplicirano je ..nebi to jos mogo napravit..
Pa 37 podeljeno sa 7 je 5,285 i zaokruzeno na manji broj sa trunc je 5. Sta tu nije jasno?
Pa 37 podeljeno sa 7 je 5,285 i zaokruzeno na manji broj sa trunc je 5. Sta tu nije jasno?
ovo najmanji me buni xDDD
EDIT!!!!!!!
sta se nebi u ovom programu umjesto trunc naredbe(ili kak se to kaze) trebala koristit round?
jer ipak pise u zadatku da se zaokruzi na najblizi cijeli broj! tako da ako je 3.6 onda da zaokruzi na 4, ako je 3.4 nek zaokruzi na 3!
ispravite ako se varam:D
program djeljivsa7;
var a:integer;
begin
writeln('Upiši neki broj...');
readln(a);
if a mod 7 = 0
then
writeln('Broj je djeljiv sa 7!')
else
a:=Trunc(a/7);
writeln ('Rezultat dijeljenja sa 7 zaokruženo na najmanji cijeli broj je ',a);
readln;
end.
Primer nije tacan, u pravu si, ali pitao si za njega. Treba koristiti round ili resenje sa trunc koje sam ranije stavio, na strani 9, ali evo opet
program xxx ;
var a:integer;
begin
writeln('Upiši neki broj...');
readln(a);
if a mod 7 = 0 then
writeln('Broj je djeljiv sa 7!')
else
if a/7>=a div 7 + 0.5 then
writeln('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7+1)
else
writeln ('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7);
readln;
end.
