[Turbo Pascal] Program obliczający wartość funkcji

kikus13 · Post autor: **kikus13** » 21 lut 2014, o 11:03

Napisz program obliczający wartość funkcji \(\displaystyle{ f(x)=\frac{\sqrt{x}}{\sqrt{x+4}-2}}\), gdy jest to możliwe.
Narysuj schemat blokowy.

Post autor: **loitzl9006** » 21 lut 2014, o 11:38

Kod: Zaznacz cały

program funkcja;
uses crt;
var x,y:real;
begin
 clrscr;
 writeln("Program liczacy wartosc funkcji y=sqrt(x)/(sqrt(x+4)-2) dla podanego argumentu x");
 writeln;
 writeln("Podaj wartosc x");
 readln(x);
 if x>0 then 
  begin
   y:=sqrt(x)/(sqrt(x+4)-2);
   writeln("Wartosc funkcji dla argumentu",x,"wynosi",y:8:2);
  end
  else 
  writeln("Dla argumentu",x,"funkcja y nie jest okreslona");
readln;
end.

sprawdź czy działa, dawno nie pisałem w pascalu

schemat blokowy raczej prosty jest: jak podasz \(\displaystyle{ x}\) należący do dziedziny to policzysz wartość funkcji, w przeciwnym przypadku nie da rady

kikus13 · Post autor: **kikus13** » 28 lut 2014, o 09:34

Co to znaczy y:8:2?

bartek118 · Post autor: **bartek118** » 28 lut 2014, o 10:25

Odpowiednie zaokrąglenie wyniku i wypisanie w ładnej postaci.

kikus13 · Post autor: **kikus13** » 28 lut 2014, o 11:53

Czy to na pewno jest poprawnie zapisane, bo nie mam programu, który to sprawdzi?
Prosze o pomoc.
Nie wiem też jak zapisać schemat blokowy.

bartek118 · Post autor: **bartek118** » 28 lut 2014, o 15:22

Skompiluj sobie i sprawdź.