Wątek przeniesiony 2016-10-11 00:04 z Delphi i Pascal przez furious programming.

Nie mogę znaleźć błedu

0

f06cdc62ba.png

Nie działa ;(

program project2;

{$mode objfpc}{$H+}

var
a,b,X,Y,Pi : Real;

begin
  Pi:=3.14;
 writeln('podaj miare kata w stopniach cosinusa');
 readln (a);
 writeln('podaj miare kata w stopniach sinus');
 readln(b);
 X:=(a/180)*Pi;
 Y:=(b/180)*Pi;
 writeln('wynik wynosi:',ARCTAN(SQRT(SQR(X)*SQR(X)+SQR(Y))/ln(10));
 readln;
end.
1

No bo chyba masz za mało nawiasów w linii:

 writeln('wynik wynosi:',ARCTAN(SQRT(SQR(X)*SQR(X)+SQR(Y))/ln(10));

;)

0

fatalne formatowanie kodu , zupełnie nieczytelne
błąd masz zapewne już na etapie kompilacji , jak wcześniej zauważył @karpov , zwykły brak nawiasu

program project2;


var
  a, b, X, Y, Pi: Real;

begin
  Pi := 3.14;
  writeln('podaj miare kata w stopniach cosinusa');
  readln(a);
  writeln('podaj miare kata w stopniach sinus');
  readln(b);
  X := (a / 180) * Pi;
  Y := (b / 180) * Pi;
  writeln('wynik wynosi:', ARCTAN(SQRT(SQR(X) * SQR(X) + SQR(Y)) / ln(10)));
  readln;

end.
0
  1. zawsze formatuj kod
  2. zawsze podawaj treść komunikatu, jeśli taki występuje (chyba że robisz komuś test)
  3. przeczytaj: http://rtfm.killfile.pl/

1 użytkowników online, w tym zalogowanych: 0, gości: 1