Zdravim,
Potreboval by som naprogramovat, ale nejako sa neviem pohnut v pascale.
Mam takyto priklad:
y=(x2+1)/(x2-1)
(x2 znaci, ze x je na druhu)
Za kazdu pomoc dakujem.
program nasobenie;
uses crt;
var x,y:double;
begin
x:=0;
y:=0;
writeln("Zadaj x: ");
readln(x);
y=(sqr(x)+1) / (sqr(x) -1)
writeln("Vysledok je ", y:4:2);
end
Hádam tak nejako :D
Možno som sa niekde v syntaxi pomylil
Dik za odpoved Deviant :)
V programe su nejake 3 chyby, no neviem kde moze byt :-/
este sa spytam k nejakym zapisom. Preco je x,y:double ?
To sqr pred X znamena, ze to X je na druhu ?
writeln("Vysledok je ", y:4:2); Preco y:4:2 ?
Dik za odpovede.
Deviant celkom si sa trafil :)
Shaaira tu to mas :
program nasobenie;
uses crt;
var x,y:double;
begin
x:=0;
y:=0;
writeln('Zadaj x: ');
readln(x);
y:=(sqr(x)+1)/(sqr(x) -1);
writeln('Vysledok je ', y:4:2);
end.
a len tak pre zaujimavost http://sulo.stary-gympel.sk/programovanie/ (http://sulo.stary-gympel.sk/programovanie/) kukni si to :)
neviem sice aky si odbor ale toto je ozaj dost jednoduche ako aj pascal tak neviem co budes porabat neskor pri zadani :)
double - typ premennej
Diki chlapy za cas a pomoc, este vypracujem nejako vyvojovy diagram a snad to budem mat v cajku.
(https://www.tu-ke.com/forum/proxy.php?request=http%3A%2F%2Fimg560.imageshack.us%2Fimg560%2F3949%2Fdiagram.th.jpg&hash=e380e6715e2a282b2f30902cdbac5ba61109bef6) (http://img560.imageshack.us/i/diagram.jpg/)
to x sa nesmie rovnat 1 nie nule :-/
vstup: x,y: real
vystup:delenie:real
metoda:delenie (x²+1) : (x²-1)
no tak neviem ci ten diagram je spravne ah:
tak som sa s tym vyhral a pridal tam jednu podmienku aby to nehadzalo error ked zadam 1
program delenie;
uses crt;
var x,y: real;
begin
x:=0;
y:=0;
writeln('Zadaj x: ');
readln(x);
if (x=1) then
begin
writeln('Nemozes delit nulou');
end
else
begin
y:=(x*x+1)/(x*x-1);
writeln('y= ',y);
end;
end.
Caute,
prosim Vas viete sa mi nato pozriet,ze ci to mam dobre?
Zadanie:Zostavte program pre vypocet vysky domu podla dlzky tiena domu a tyce o znamej vyske...
Program:
program zadanie;
var a,b,x,y:integer;
begin
writeln('Upozornenie! Zadane hodnoty su v metroch.');
writeln('Zadaj vysku tyce: ');
readln(a);
writeln('Zadaj dlzku tiena tyce: ');
readln(b);
writeln('Zadaj dlzku tiena domu: ');
readln(y);
writeln;
x:=0;
x:=(a*y)/b;
writeln('Vyska domu je: ',x:3:1);
readln;
end.
Skuste to dakto dat do Pascalu,lebo mi tam same chyby pise :(
namiesto integer tam daj double,
inak to je dobre ale ci sa tak rata vyska domu netusim :)
este jedna vec preco zakladas novu temu ked tu uz jedna tema na PASCAL JE ??
Sorrko,este som asi opity :o
Vedel by niekto spraviť toto zadanie v pascaly...
Pre načítanie a,b,c tabulujte funkcie y=sin(x), y=2,4x, y=3x/2 a y=x pričom x€<a,b> a krok výpočtu je c.Výsledok tlačte v tabuľke.
kolko ponukas ? PM
kua dalsi dilino co nevie citat uz tu su 2 temy na pascal a ty zalozis dalsiu bu
Tak sa ospravedlňujem.... ale vedel by to niekto spraviť lebo ja som dilino do pascalu. Vopred ďakujem za kladne odpovede... ;)
vedel mi niekto poradit s tymto :
zostavte program pre vypocet N hodnot f-cie z=3+x+2/(y-5) pre x <0,4> a y<0,5>??? je to ine ako tabelovat ci? kedze mam zadane intervaly...
za kazdu radu dakujem...:)
Quote from: D1l1n0 on 25.11.2010, 05:01:51
Tak sa ospravedlňujem.... ale vedel by to niekto spraviť lebo ja som dilino do pascalu. Vopred ďakujem za kladne odpovede... ;)
Luk1ti napisal aby si sa mu ozval cez PM tak nevahaj a napis mu. Ja na to nemam cas aby som sa zabaval s pascalom
Quote from: D1l1n0 on 25.11.2010, 01:36:10
Vedel by niekto spraviť toto zadanie v pascaly...
Pre načítanie a,b,c tabulujte funkcie y=sin(x), y=2,4x, y=3x/2 a y=x pričom x€<a,b> a krok výpočtu je c.Výsledok tlačte v tabuľke.
tak napr pre y = x to bu nejako takto
program nasobenie;
uses crt;
var x,y,c,a,b:double;
begin
writeln('Zadaj a,b,c: ');
readln(a,b,c);
while (a<=b) do begin
y:=a;
a:=a+c;
writeln('x = ',x,' y = ',y);
end;
end.
mozes tam pridat nejake podmienky na overenie ci a< b a podobne veci, ale tak asi nejak by to malo vyzerat
Zdravim :)
mam takyto priklad no neviem si s nim rady :-X
PR.
Oddialte program pre vypocet a tlac hodnot funkcie y=x+z+0,5 ak x patri <0,2> z patri <0,2> so spolocnym krokom pre x a z , to je k=0,2
za radu vdaka vopred
Zdravim mam problem so zadanim neviem sa s tym ani pohnut.
Odlaďte program pre výpočet a tlač hodnôt, ak poznáte objem piatich kociek a súčasne zistite dĺžku hrany kocky.
HELP!!!!!!!!!!!!!!!!!!!
Quote from: sabina121 on 07.12.2010, 04:53:31
Zdravim mam problem so zadanim neviem sa s tym ani pohnut.
Odlaďte program pre výpočet a tlač hodnôt, ak poznáte objem piatich kociek a súčasne zistite dĺžku hrany kocky.
HELP!!!!!!!!!!!!!!!!!!!
no neviem ci som to spravne pochopil, ale objem jednej kocky je a*a*a tak objem piatych bude 5 * a*a*a no a ked ty poznas ten objem tych 5 kociek tak hranu a vypocitas ako a = tredia odmocnina z (v/5), pokial viem tak tretia odmocnina nema v pascale fukciu tak budes musiet pouzit logaritmy a exponenenty :D
cize a:= exp((1/3)*ln(v/5)) tak nejak ak som ta spravne pochopil