{"id":23346,"date":"2017-01-24T20:46:20","date_gmt":"2017-01-24T19:46:20","guid":{"rendered":"https:\/\/kmim.wm.pwr.edu.pl\/myszka\/?page_id=23346"},"modified":"2017-01-24T20:46:22","modified_gmt":"2017-01-24T19:46:22","slug":"08-zmienne","status":"publish","type":"page","link":"https:\/\/kmim.wm.pwr.edu.pl\/myszka\/projekty\/fortran-dla-uzytkownikow-mes\/08-zmienne\/","title":{"rendered":"08 Zmienne"},"content":{"rendered":"


\nZmienne to jeden z podstawowych rodzaj\u00f3w obiekt\u00f3w u\u017cywanych podczas programowania. S\u0142u\u017c\u0105 one do przechowywania r\u00f3\u017cnych, potrzebnych w trakcie oblicze\u0144, warto\u015bci. Idea zaczerpni\u0119ta zosta\u0142a z algebry, gdzie nikogo nie dziwi zapis postaci:
\n$$y=ax^2+bx+c$$
\nW powy\u017cszym r\u00f3wnaniu \\(a, b, c\\) oraz \\(x\\) i \\(y\\) to zmienne \u201eskalarne\u201d (jednowymiarowe). Na og\u00f3\u0142 nie zastanawiamy si\u0119 jakie warto\u015bci mog\u0105 one przyjmowa\u0107, ale za\u0142o\u017cenie, \u017ce s\u0105 to warto\u015bci rzeczywiste nie ogranicza w \u017caden spos\u00f3b rozwa\u017ca\u0144. Przyzwyczajeni te\u017c jeste\u015bmy dokonywa\u0107 przekszta\u0142ce\u0144 takich wyra\u017ceni, \u017ceby wyliczy\u0107 warto\u015b\u0107 miejsca zerowego \\(x\\) trzeba b\u0119dzie policzy\u0107:
\n$$\\Delta = b^2-4ac$$
\na nast\u0119pnie wyliczy\u0107 \\(x_1\\) oraz \\(x_2\\) ze wzor\u00f3w:
\n$$x_1=\\frac{-b-\\sqrt{\\Delta}}{2a}$$ i $$x_2=\\frac{-b+\\sqrt{\\Delta}}{2a}$$
\nRozwa\u017cania \u201ematematyczne\u201d (prowadzone na odpowiednio wysokim poziomie og\u00f3lno\u015bci) pozwalaj\u0105 zapomnie\u0107 o tym czy \u0394 jest dodatnie czy ujemne (je\u017celi tylko cokolwiek wiemy o liczbach zespolonych). W obliczeniach praktycznych okaza\u0107 si\u0119 mo\u017ce, \u017ce interesuj\u0105 nas wy\u0142\u0105cznie pierwiastki rzeczywiste, co spraw\u0119 mo\u017ce nieco skomplikowa\u0107. Osobno trzeba b\u0119dzie rozpatrzy\u0107 przypadek gdy \u0394 \u2265 0, a osobno gdy \u0394 < 0.
\nSpr\u00f3bujmy zaprojektowa\u0107 prost\u0105 aplikacj\u0119, kt\u00f3ra najpierw pyta o warto\u015bci \\(a, b\\) i \\(c\\), a nast\u0119pnie dokonuje wszystkich wylicze\u0144 i przedstawia wyniki. Z oczywistych wzgl\u0119d\u00f3w (budowanie aplikacji okienkowych wymaga sporej wiedzy na temat funkcjonowania \u015brodowiska graficznego Systemu Operacyjnego) b\u0119dzie to bardzo prosta aplikacja \u201etekstowa\u201d.
\nZacznijmy od naszkicowania schematu blokowego:
\n<\/a>
\nTeraz mo\u017cemy zacz\u0105\u0107 programowa\u0107. Musimy rozstrzygn\u0105\u0107 jakie zmienne b\u0119d\u0105 nam potrzebne (i jakiego typu)? Zmienne to A, B, C, DELTA<\/tt> (odpowiednik \u0394) oraz X1 i X2<\/tt>. Wszystkie zmienne b\u0119d\u0105 typu REAL<\/tt> (cho\u0107 za\u0142o\u017cenie, \u017ce b\u0119d\u0105 one typu DOUBLE PRECISION<\/tt> wcale nie b\u0119dzie karygodne).<\/p>\n

\n
1 PROGRAM PIERWIASTEK\r\n2 REAL A, B, C, DELTA, X1, X2\r\n3 WRITE(*,*) \"Podaj A\"\r\n4 READ(*,*) A\r\n5 WRITE(*,*) \"Podaj B\"\r\n6 READ(*,*) B\r\n7 WRITE(*,*) \"Podaj C\"\r\n8 READ(*,*) C\r\n9 DELTA = B * B - 4. * A * C\r\n10 IF (DELTA < 0.) THEN\r\n11   WRITE(*,*) \"Nie ma pierwiastk\u00f3w rzeczywistych!\"\r\n12 ELSE\r\n13   X1 = (-B - SQRT(DELTA))\/(2. * A)\r\n14   X2 = (-B + SQRT(DELTA))\/(2. * A)\r\n15   WRITE(*,*) \"X1=\", X1, \" X2=\", X2\r\n16 END IF\r\n17 END PROGRAM<\/pre>\n<\/div>\n
Kilka s\u0142\u00f3w obja\u015bnienia<\/p>\n