proste som dostal zadanie od ucitelky v pascala zadat avypocitat ze:
Vypocitat korene kvadratickej rovnice v R.
som druham na sps.
spravil som to ako tak aale dostal som trojku apovedala nam ze ked to prinesiem napisane na paieri spravne a lepsie tak mi da lepsiu znamku..takz epo mote niekto lebo sa neztmozem na viac...
teda som sa ani na viac nezmohol na hodine..lebo som len ottcoril subor nejakeho ziaka a on to tam mal napisane ten sucin sucet rozdiel aatm som to trosku upravil a zato mi dala 3..takze nemam ani sajnu ako to ma byt
treba mi to mas uz na papiery uz vo strvrtok...takze cely tyzden cakam na dobtu dusu:-)
pomoc s pascalom(treba spravit jeden priklad)
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Kód: Vybrať všetko
program KvadRov;
uses CRT;
var a,b,c,x1,x2,D:real;
begin
Write ('Zadaj a: ');
read(a);
Write ('Zadaj b: ');
read(b);
Write ('Zadaj c: ');
read(c);
D:=sqr(b)-4*a*c;
if D<0 then write ('Rovnica nema riesenie');
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
if x1<>x2 then write('Korene rovnice su : ',x1:0:3,' ',x2:0:3) else write ('Rovnica ma jeden koren: ',x1:0:3);
repeat until keypressed;
end.-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
audiotrack: par drobnosti
pouzitie kniznice CRT, kedze neviem na akej urovni ma ten chalan vediet programovat, tak by som CRT vypusti a nasledne repeat until keypressed by som nahradil cez readln
ak pozna/ucili sa pouzivat crt tak by bolo dobre na zaciatok dat aj clrscr aby to nejak vyzeralo
a za dalsie vypis korenov x1 x2, treba medzi ne medzeru lebo takto su vypisane za sebou takze nieco taketo:
write('koren x1: ',x1:4:2,' koren x2: ',x2:4:2);
-pocet miest podla lubovole
a najzavaznejsia chyba:
ak je Diskriminant mensi ako 0 napise ze rovnica nema riesenie ale zaroven nastane chyba kedze tam mas odmocninu zo zaporneho cisla takze treba takto
...
if d < 0 then writeln('rovnica nema riesenie ') else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
if x1= x2 then write('rovnica ma jeden koren : ',x1:4:2) else write('koren x1: ',x1:4:2,' koren x2: ',x2:4:2);
end;
readln;
end.
pozn. osobne by som to spravil este trosku inac a to tak ze by som rozdelil program na 3 casti a to takto:
if d<0 then write('rovnica nema riesenie v R ');
if d=0 then
begin
x:=....
write ('koren: ',x);
if d>0 then
begin
x1:=....
x2:=....
write(koren x1: ',x1,' koren x2: ',x2);
end;
troska dlhsie ale maximalne prehladne a otvorene pre dalsie upravy
//audiotrack: neviem kedy si čítal môj post, lebo hneď po odoslaní som ho zeditoval a pridal som tam tú mezderu.. K tej podmienke: hej, trochu som to unáhlil,
som lama.
pouzitie kniznice CRT, kedze neviem na akej urovni ma ten chalan vediet programovat, tak by som CRT vypusti a nasledne repeat until keypressed by som nahradil cez readln
ak pozna/ucili sa pouzivat crt tak by bolo dobre na zaciatok dat aj clrscr aby to nejak vyzeralo
a za dalsie vypis korenov x1 x2, treba medzi ne medzeru lebo takto su vypisane za sebou takze nieco taketo:
write('koren x1: ',x1:4:2,' koren x2: ',x2:4:2);
-pocet miest podla lubovole
a najzavaznejsia chyba:
ak je Diskriminant mensi ako 0 napise ze rovnica nema riesenie ale zaroven nastane chyba kedze tam mas odmocninu zo zaporneho cisla takze treba takto
...
if d < 0 then writeln('rovnica nema riesenie ') else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
if x1= x2 then write('rovnica ma jeden koren : ',x1:4:2) else write('koren x1: ',x1:4:2,' koren x2: ',x2:4:2);
end;
readln;
end.
pozn. osobne by som to spravil este trosku inac a to tak ze by som rozdelil program na 3 casti a to takto:
if d<0 then write('rovnica nema riesenie v R ');
if d=0 then
begin
x:=....
write ('koren: ',x);
if d>0 then
begin
x1:=....
x2:=....
write(koren x1: ',x1,' koren x2: ',x2);
end;
troska dlhsie ale maximalne prehladne a otvorene pre dalsie upravy
//audiotrack: neviem kedy si čítal môj post, lebo hneď po odoslaní som ho zeditoval a pridal som tam tú mezderu.. K tej podmienke: hej, trochu som to unáhlil,
som lama.takto by to mohlo vyzerat
funkcne to je
chcel som to dat do prolohy, ale
funkcne to je
chcel som to dat do prolohy, ale
tak prikladam zrdojak:Prípona pas nie je povolená
Kód: Vybrať všetko
program KvadRov;
uses CRT;
var a,b,c,x1,x2,D:real;
begin
clrscr;
Write ('Zadaj a: ');
readln(a);
Write ('Zadaj b: ');
readln(b);
Write ('Zadaj c: ');
readln(c);
D:=sqr(b)-4*a*c;
if D < 0 then write ('Rovnica nema riesenie');
if D = 0 then
begin
x1:=(-b)/(2*a);
write('rovnica ma jeden koren: ',x1:4:2);
end;
if D > 0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
write('korene kvadratickej rovnice su: x=',x1:4:2, ' y=',x2:4:2);
end;
readln;
end.
-
mastermind
VIP
- Príspevky: 4810
- Registrovaný: 09 feb 2005, 13:17