Program v pascale

[Pinclak]

Ahoj. Mam jeden priklad, ale neviem ho nejako naprogramovat v pascale
Znenie prikladu: Odladte program pre vypocet a tlac hodnot funkcie y=x+z+0,5 ak x patri <0,2> a z patri <0,2> so spolocnym krokom pre x a z , to je k=0,2
za radu vdaka vopred

[galen]

Ahoj. Mam jeden priklad, ale neviem ho nejako naprogramovat v pascale
Znenie prikladu: Oddialte program pre vypocet a tlac hodnot funkcie y=x+z+0,5 ak x patri <0,2> a z patri <0,2> so spolocnym krokom pre x a z , to je k=0,2
za radu vdaka vopred

tymto ho oddalujem na dobu neurcitu
... hotovo ...

[Pinclak]

to je samozrejme len preklep

[materik]

teda, ak x a z patri <0,2>, tak to neratat?
ak ano, tak potom:

Spoiler: ukázať

Kód: Vybrať všetko

if ((x>=0 && x<=2) && (z>=0 && z<=2)) {
/*
  osetri nesplnenu podmienku, napr. chybova hlaska
*/ 
}
else { 
/*
  konkretny priklad
*/
}

ak je to naopak, tak len vymen tela podmienok
tak nejak by vyzerala podmienka v C-ecku, Pascal neovladam, prepisat si to musis sam...

[Pinclak]

X je z intervalu od 0 po 2
Z je z intervalu od 0 po 2

[galen]

2x repeat ...

Kód: Vybrať všetko

var x,y,step,z: real;
...
step:=0.2;
x:= 0;
repeat
z:=0;
repeat
y:=x+z+0,5;
write('x:',x);write(' z:',z); writeln(' y:',y);
z:=z+step;
until z>2;
x:=x+step;
until x>2;
...

[materik]

kukam, ze som si to zle vysvetlil