Program Pascal

Programovacie jazyky, rady, poradňa...
KingsteR
Amateur
Amateur
Príspevky: 13
Registrovaný: 02 jan 2009, 14:25
Kontaktovať používateľa:

Program Pascal

Príspevok od používateľa KingsteR »

Č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
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa audiotrack »

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.
KingsteR
Amateur
Amateur
Príspevky: 13
Registrovaný: 02 jan 2009, 14:25
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa KingsteR »

ďakujem, veľmi si mi pomohol :)
Ing. Gandalf
Expert
Expert
Príspevky: 178
Registrovaný: 02 feb 2007, 19:46

Re: Program Pascal

Príspevok od používateľa Ing. Gandalf »

Nerucim za spravnost! (Mozno som zle pochopil ulohu... :oops: ) 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.
KingsteR
Amateur
Amateur
Príspevky: 13
Registrovaný: 02 jan 2009, 14:25
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa KingsteR »

no to som si všimol už...ten krok bude 0.5 a 1... dakujem pekne za program :)
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

mozem sa spytat co znamená
if Z(x, y) = -1 then s := 'NULL' else Str(Z(x, y):2:2, s);
a prečo je tam práve -1 a nie 0? :?
c-ice
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 475
Registrovaný: 04 mar 2008, 15:18
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa c-ice »

sk*lukino napísal:mozem sa spytat co znamená a prečo je tam práve -1 a nie 0? :?
lebo sa pozri co vracia funkcia z()
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

lebo sa pozri co vracia funkcia z()
...no jasne :)

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
Flash coder
Používateľov profilový obrázok
Príspevky: 3206
Registrovaný: 14 feb 2009, 22:34
Bydlisko: Bratislava
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa weroro »

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
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

weroro 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
sikovny program lenze ja potrebujem to, čo do toho diagramu napísať, ja si ho vytvorím vo worde

//autoeditácia príspevku (14 Dec 2010, 16:47)
možte sa na to niekto mrknuť či je to dobre? pochybujem ale skusil som...
Prílohy
diagram.jpg
c-ice
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 475
Registrovaný: 04 mar 2008, 15:18
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa c-ice »

mas to zle ... uplne... podmienky zle ... je a je to nekonecny cyklus ... definovat premenne si musis pred cyklom mg
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

takto?
Prílohy
diagram.jpg
c-ice
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 475
Registrovaný: 04 mar 2008, 15:18
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa c-ice »

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 ...
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

tak som sa o to pokusil ešte raz :(
Prílohy
diagram2.jpg
c-ice
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 475
Registrovaný: 04 mar 2008, 15:18
Kontaktovať používateľa:

Re: Program Pascal

Príspevok od používateľa c-ice »

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
Prílohy
Drawing2.jpg
sk*lukino
Amateur
Amateur
Príspevky: 11
Registrovaný: 23 dec 2009, 9:40

Re: Program Pascal

Príspevok od používateľa sk*lukino »

dakujem ti velmi pekne za pomoc
Napísať odpoveď