Program Pascal
Program Pascal
Čaute,
potreboval by som pomoc s týmto
zostavte program pre vypocet hodnot funkcie z=(0,5x+3,2/x)/(y+1) pre x € <0,1.5>
s krokom 0.5 a y €<0,2> s krokom 1. Vysledky x,y,z tlacte v tabulke
potrebujem normálne kod, ja podla toho ešte musím spraviť diagram a krokovaciu tabulku... + 2 zápočty zajtra, tak bol by som rád ak by niekto pomohol
ďakujem
potreboval by som pomoc s týmto
zostavte program pre vypocet hodnot funkcie z=(0,5x+3,2/x)/(y+1) pre x € <0,1.5>
s krokom 0.5 a y €<0,2> s krokom 1. Vysledky x,y,z tlacte v tabulke
potrebujem normálne kod, ja podla toho ešte musím spraviť diagram a krokovaciu tabulku... + 2 zápočty zajtra, tak bol by som rád ak by niekto pomohol
ďakujem
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Re: Program Pascal
http://www.hojko.com/citajte-pred-zaloz ... 23064.html
pravidlá platia pre každého, že máš 2 zápočty nie je ospravedlnenie. Nemal si si to nechávať na poslednú chvíľu.
pravidlá platia pre každého, že máš 2 zápočty nie je ospravedlnenie. Nemal si si to nechávať na poslednú chvíľu.
Re: Program Pascal
ďakujem, veľmi si mi pomohol 
-
Ing. Gandalf
Expert
- Príspevky: 178
- Registrovaný: 02 feb 2007, 19:46
Re: Program Pascal
Nerucim za spravnost! (Mozno som zle pochopil ulohu...
) K+ potesi. Inak IMHO x nemoze patrit do intervalu <0, 1.5>, pretoze by nastalo delenie nulou... Mas to isto dobre?
Kód: Vybrať všetko
{ Zostavte program pre vypocet hodnot funkcie z=(0,5x+3,2/x)/(y+1) pre x E <0,1.5> s krokom 0.5 a y E <0,2> s krokom 1. Vysledky x,y,z tlacte v tabulke. }
program Funkcia;
var
x, y : real;
s : string;
function Z(x, y : real): real;
begin
if x<>0 then Z := ((0.5*x)+(3.2/x))/(y+1)
else Z := -1;
end; { Z }
BEGIN
x := 0; y := 0;
writeln(' x | y | z');
while x <= 1.5 do
begin
while y <= 2 do
begin
if Z(x, y) = -1 then s := 'NULL' else Str(Z(x, y):2:2, s);
writeln(x:2:2, ' | ', y:2:2, ' | ' + s);
y := y + 1;
end;
x := x + 0.5;
y := 0;
end;
END.
Re: Program Pascal
no to som si všimol už...ten krok bude 0.5 a 1... dakujem pekne za program 
Re: Program Pascal
mozem sa spytat co znamená 
a prečo je tam práve -1 a nie 0?if Z(x, y) = -1 then s := 'NULL' else Str(Z(x, y):2:2, s);
Re: Program Pascal
lebo sa pozri co vracia funkcia z()sk*lukino napísal:mozem sa spytat co znamená a prečo je tam práve -1 a nie 0?
Re: Program Pascal
...no jasnelebo sa pozri co vracia funkcia z()
btw neviete k tomu niekto vytvorit vyvojovy diagram? staci perom na papieri a sfotit nemusite sa stym kašľať cez pc, lebo ja sa o to pokusam od včera a zatial mi to nejde
-
weroro
Flash coder
- Príspevky: 3206
- Registrovaný: 14 feb 2009, 22:34
- Bydlisko: Bratislava
- Kontaktovať používateľa:
Re: Program Pascal
Inak ja neviem ale vy si to tu vôbec neprezeráte. Môj kamoš pomocou tohto robí vývojáky do školy http://www.hojko.com/post1468764.html#p1468764
Re: Program Pascal
sikovny program lenze ja potrebujem to, čo do toho diagramu napísať, ja si ho vytvorím vo wordeweroro napísal:Inak ja neviem ale vy si to tu vôbec neprezeráte. Môj kamoš pomocou tohto robí vývojáky do školy http://www.hojko.com/post1468764.html#p1468764
//autoeditácia príspevku (14 Dec 2010, 16:47)
možte sa na to niekto mrknuť či je to dobre? pochybujem ale skusil som...
Re: Program Pascal
mas to zle ... uplne... podmienky zle ... je a je to nekonecny cyklus ... definovat premenne si musis pred cyklom mg
Re: Program Pascal
pocuj netipuj a zamysli sa nadtym tvar sa ze si "pocitac" ked ti ako pocitacu toto zada uzivatel tak co spravis ? chod po ceste a vykonavaj jednotlive kroky a kam sa dostanes ? dostanes to co chces ? nie musiš vykonavat ty tie jednotlive kroky a tak kreslit podla toho co tam potrebujes a nie ze aha nakreslim si nieco take mozno to bude dobre ...
Re: Program Pascal
chod riadok po riadku kodu ...
spravil som vo Visiu taky narychlo ale podla toho kodu co som ti poslal ja staci ist riadok po riadku
spravil som vo Visiu taky narychlo ale podla toho kodu co som ti poslal ja staci ist riadok po riadku
Re: Program Pascal
dakujem ti velmi pekne za pomoc