Korisnički Kontrolni Panel
Pogledajte svoj profil
Pogledajte svoje postove
ČPP
Prijavite se

Matematički forum na kojem možete da diskutujete o raznim matematičkim oblastima, pomognete drugima oko rešavanja zadataka, a i da dobijete pomoć kada vam zatreba


















Index stranica OSTALE MATEMATIČKE OBLASTI MATEMATIKA U INFORMATICI MATEMATIKA U PROGRAMIRANJU

[Pascal] If... then petlje

[Pascal] If... then petlje

Postod Miladin Jovic » Subota, 25. Oktobar 2014, 23:31

Kaki bi se radilo kad imamo više uslova tj. ako bi ovako glasio zadatak:
Izračunati [inlmath]z=\ln x^2+\ln y^{-2}[/inlmath] ako za realne brojeve [inlmath]x[/inlmath] i [inlmath]y[/inlmath], ako je "oblast definisanosti" [inlmath]|x|\ge 2[/inlmath] i [inlmath]|y|\ge 2[/inlmath].

Treba rešiti bez upotrebe [inlmath]\mathrm{abs}[/inlmath] funkcije.
Imamo više uslova, rj. uslove po [inlmath]x[/inlmath] i [inlmath]y[/inlmath]. Ima li neko ideju?
Zaslužni forumaš
 
Postovi: 370
Zahvalio se: 243 puta
Pohvaljen: 123 puta

Sharuj ovu temu na:

Share on Facebook Facebook Share on Twitter Twitter Share on MySpace MySpace Share on Google+ Google+

Re: [Pascal] If... then petlje

Postod Gamma » Subota, 25. Oktobar 2014, 23:56

Ne razumijem baš kako ovo misliš raditi preko uslova.Napiši taj cod što si radio. A kada imaš više uslova uvjek primjenjuj CASE.
Gamma  OFFLINE
 
Postovi: 1009
Zahvalio se: 183 puta
Pohvaljen: 238 puta

Re: [Pascal] If... then petlje

Postod Miladin Jovic » Nedelja, 26. Oktobar 2014, 09:17

Kôd: Obeleži sve
program funkcija;
Var x,y,z:real;
Begin
readln(x,y)

E sad za uslove ne znam kako može sa if kad imamo više. A kako bi išlo sa case pošto do toga još nismo stigli?
Zaslužni forumaš
 
Postovi: 370
Zahvalio se: 243 puta
Pohvaljen: 123 puta

Re: [Pascal] If... then petlje

Postod Milovan » Nedelja, 26. Oktobar 2014, 11:02

Evo sa if, else, then, a bez abs...

Kôd: Obeleži sve
Program Funkcija;
var x,y,z:real;
begin
    writeln('Unesite vrednosti x i y');
    readln(x,y);
    if (x<2) and (x>-2) then writeln('nije definisano')
    else
    begin
        if (y<2) and (y>-2) then writeln('nije definisano')
        else
        begin
            z:= ...;
            writeln(z);
        end;
    end;
    readln;
end.
Korisnikov avatar
Milovan  OFFLINE
 
Postovi: 568
Zahvalio se: 356 puta
Pohvaljen: 697 puta

Re:[Pascal] If... then petlje

Postod Miladin Jovic » Nedelja, 26. Oktobar 2014, 12:26

Zapravo ovako glasi zadatak:
[dispmath]z=\begin{cases}
\ln x^2+\ln y^{-2} & |x|\ge 2,\;|y|\ge 2\\
|y-x|\cdot y & -2<x<y<2\\
\max (x,y) & \mathrm{inače}
\end{cases}[/dispmath]
Mislio sam da mogu nekako da uklopim ovu prvu stavku u zadatak, ali ne ide... Zato sam samo pitao za nju.
Zaslužni forumaš
 
Postovi: 370
Zahvalio se: 243 puta
Pohvaljen: 123 puta

Re: [Pascal] If... then petlje

Postod Gamma » Nedelja, 26. Oktobar 2014, 13:12

Mislio sam da u ovome tvome programu se može preko case. Ali kada sam vidio šta traži u ovome slučaju ne može. Inače case nekada zna dobro da skrati muke.Predpostavljam ovo ostalo ti je jasno. Ali meni nije šta ti znači ovo ˝ina će˝. Kažeš ne možeš da prvu stavku uklopiš u zadatak. Ne znam šta ti tu nije jasno ne možeš da uklopiš u uslov ili šta već? Ovo sa logaritmom po bazi [inlmath]e[/inlmath] ni bi trebalo da bude problem jer koliko ja znam pascal ima [inlmath]\ln[/inlmath] funkciju.Samo dovršiš ovo što je Milovan uradio i onda tako za svaki uslov pojedinačno.
Gamma  OFFLINE
 
Postovi: 1009
Zahvalio se: 183 puta
Pohvaljen: 238 puta

Re: [Pascal] If... then petlje

Postod ubavic » Nedelja, 26. Oktobar 2014, 14:25

U prvom slučaju promenljive [inlmath]x[/inlmath] i [inlmath]y[/inlmath] se nalaze van intervala [inlmath](-2,2)[/inlmath], što možeš zapisati kao [inlmath]\left((x\le -2)\lor (x\ge 2)\right)\land\left((y\le -2)\lor (y\ge 2)\right)[/inlmath]. U drugom slučaju obe promenljive se nalaze unutar intervala [inlmath](-2,2)[/inlmath], s tim što je [inlmath]x<y[/inlmath]. To bi mogao da zapišeš kao [inlmath]\left((x>-2)\lor (x<2)\right)\land\left((y>-2)\lor (y<2)\right)\land (x<y)[/inlmath]. Treći slučaj možeš jednostavno da obuhvatiš else komandom.
Korisnikov avatar
ubavic  OFFLINE
Zaslužni forumaš
 
Postovi: 529
Lokacija: Zrenjanin
Zahvalio se: 348 puta
Pohvaljen: 515 puta

Re: [Pascal] If... then petlje

Postod Miladin Jovic » Nedelja, 26. Oktobar 2014, 14:26

Gamma je napisao: Ali meni nije šta ti znači ovo ˝ina će˝. Kažeš ne možeš da prvu stavku uklopiš u zadatak. Ne znam šta ti tu nije jasno ne možeš da uklopiš u uslov ili šta već?

"Inače " znači da je poslednja f-ja definisana za sve što nije za prve dve funkcije. Trebalo bi napisati sve uslove da budu povezani sa else kako bi se došlo da je zadnja definisana za sve što nisu prve dve.
Zaslužni forumaš
 
Postovi: 370
Zahvalio se: 243 puta
Pohvaljen: 123 puta

Re: [Pascal] If... then petlje

Postod Daniel » Nedelja, 26. Oktobar 2014, 15:37

ubavic je napisao:U drugom slučaju obe promenljive se nalaze unutar intervala [inlmath](-2,2)[/inlmath], s tim što je [inlmath]x<y[/inlmath]. To bi mogao da zapišeš kao [inlmath]\left((x>-2){\color{red}\lor}(x<2)\right)\land\left((y>-2){\color{red}\lor}(y<2)\right)\land (x<y)[/inlmath].

Zapravo, svuda gde su znaci [inlmath]\lor[/inlmath], trebalo bi da stoje znaci [inlmath]\land[/inlmath].

A može se zapisati i kraće: [inlmath]x>-2\;\land\;x<y\;\land\;y<2[/inlmath], jer iz tako postavljenog uslova automatski sledi i pripadnost obe promenljive [inlmath]x[/inlmath] i [inlmath]y[/inlmath] intervalu [inlmath]\left(-2,2\right)[/inlmath].

(Osobina tranzitivnosti [inlmath]\;\Rightarrow\;[/inlmath] iz [inlmath]x>-2[/inlmath] i iz [inlmath]x<y[/inlmath] sledi i [inlmath]y>-2[/inlmath], a takođe iz [inlmath]x<y[/inlmath] i iz [inlmath]y<2[/inlmath] sledi i [inlmath]x<2[/inlmath].)
I do not fear death. I had been dead for billions and billions of years before I was born, and had not suffered the slightest inconvenience from it. – Mark Twain
Korisnikov avatar
Daniel   ONLINE
Administrator
 
Postovi: 7681
Lokacija: Beograd
Zahvalio se: 4039 puta
Pohvaljen: 4110 puta


Povratak na MATEMATIKA U PROGRAMIRANJU

Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 1 gost


Index stranicaTimObriši sve kolačiće boarda
Danas je Utorak, 20. Avgust 2019, 00:37 • Sva vremena su u UTC + 1 sat [ DST ]
Pokreće ga phpBB® Forum Software © phpBB Group
Prevod – www.CyberCom.rs