Jak to napisać [Pascal]

Question

Nie wiem jak zapisać to żeby działało....

program funkcje_trygonometryczne;
uses crt;
var a,b,c,odp,sin,cos:longint;
begin
clrscr;
       writeln('Trygonometria - sinus, cosinus, tangens, cotangens');
       writeln('Wprowadz dlugosci: przyprostokatnej przeciwleglej - a');
       writeln('                   przyprostokatnej przyleglej - b');
       writeln('                   przeciwprostokatnej - c');
       readln(a,b,c);
       repeat
       writeln('Co chcesz obliczyc sin-1, cos-2, tg-3 czy ctg-4 ? 0-wyjscie ');
       readln(odp);

       case odp of
       1:writeln('Sinus', a/c);
       2:writeln('Cosinus', b/c);
       3:writeln('Tangens', a/b);
       4:writeln('Cotangens', b/a);
       end;
       until odp=0;

       Writeln('Wyliczenie sinusa');
       writeln('Podaj sinus');
       readln(sin);
       writeln(sin*sin+cos*cos=1);
       if sin<>0 then begin
       writeln(cos'='SQRT(1-sin*sin));
       end;
readkey;
end.

 

Answer 1

Linijka 28 

writeln('cos = ',SQRT(1-sin*sin));

26 to w nawiasie weź w ' ', a zmienne sin i cos double.

Comments

dodam do tego że nie wiadomo co miałes na myśłi

w tym poleceniu :

 writeln(sin*sin+cos*cos=1);

---

Ja to zrozumiałem tak, że chciał wypisać wzór na jedynkę trygonometryczną, ale zapomniał dać tego w ' '.

---

mrcnsct zrozumiałeś mnie po prostu trzeba umieć matmę jeremus ;)