Miłość jest trudną częścią naszego życia..
Ojej w Pascalu....co prawda studiuje informatyke ale tego nie pamietam. A na kiedy to ma byc ?? Jak trzeba to zrobie :)
To zaraz zloze kompa dla kolegi sie przyjrze ksiazce z Pascala ;]
fajno miszczu :D
[code:1:]
PROGRAM Rownanie;
VAR a,f,c:integer;
BEGIN
writeln(Podaj x:);
readln(a);
c:=1/a;
f:=((sin(c*pi/180)/cos(c*pi/180))*sqrt(c);
writeln(Rozwiazanie to:,f);
end;
END. [/code:1:]
Nie mam gdzie tego przetestowac, ale powinno dzialac :).
A w ktorej lini blad pokazuje ?? Bo wiesz...ja to z glowy wszystko :)
bo tak:
zmienne dajesz integer a obliczenia na liczbach rzeczywistych wiec programpowinien wygladac:
[code:1:]PROGRAM Rownanie;
VAR a,f,c:real;
BEGIN
writeln(Podaj x:);
readln(a);
c:=1/a;
f:=((sin(c*pi/180)/cos(c*pi/180))*sqrt(c);
writeln(Rozwiazanie to:,f:10:5);
end;
END.
[/code:1:]
[code:1:]PROGRAM Rownanie;
VAR a,f,c:real;
BEGIN
writeln(Podaj x:);
readln(a);
if a=0 then
begin
writeln(nie mozna podawac 0!);
halt;
end;
c:=1/a;
f:=((sin(c*pi/180)/cos(c*pi/180)))*sqrt(c);
writeln(Rozwiazanie to:,f:10:5);
END. [/code:1:]
albo
[code:1:]PROGRAM Rownanie;
VAR a,f,c:real;
BEGIN
repeat
writeln(Podaj x:);
readln(a);
if a=0 then writeln(Podales 0, a tak nie mozna bo 0 jest brzydkie bo sie nie da przez nie dzielic!);
until a<>0;
c:=1/a;
f:=((sin(c*pi/180)/cos(c*pi/180)))*sqrt(c);
writeln(Rozwiazanie to:,f:10:5);
writeln(wcisnij enter);
readln;
END.[/code:1:]
polecam ten drugi sposob bo przynajmniej pokazesz ze znasz petle repeat ;)
spoko,troszke znam pascala,troszke c/c++ wiec jak problem to wal, nawet na PW ;)
zanotowane.pldoc.pisz.plpdf.pisz.plalheo.htw.pl