Pascal (spojene temy)

[Shaaira]

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.

[dEVIANT]

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

Možno som sa niekde v syntaxi pomylil

[Shaaira]

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.

[hrmill]

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/ 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

[Shaaira]

Diki chlapy za cas a pomoc, este vypracujem nejako vyvojovy diagram a snad to budem mat v cajku.

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  
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.

[brady]

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

[hrmill]

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 ??

[brady]

Sorrko,este som asi opity 

[D1l1n0]

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.

[Luk1]

kolko ponukas ? PM

[hrmill]

kua dalsi dilino co nevie citat uz tu su 2 temy na pascal a ty zalozis dalsiu 

[D1l1n0]

Tak sa  ospravedlňujem....  ale vedel by to niekto spraviť lebo ja som dilino do pascalu. Vopred ďakujem za kladne odpovede... 

[manetzsky]

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...

[hrmill]

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 

[Luk1]

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 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

[Shaaira]

Zdravim 
mam takyto priklad no neviem si s nim rady
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

[sabina121]

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!!!!!!!!!!!!!!!!!!!

[Luk1]

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
cize a:= exp((1/3)*ln(v/5)) tak nejak ak som ta spravne pochopil