Question

Chodzi oczywiście o Free Pascal'a :)

Witam mam za zadanie napisać program któy bedzie liczył sinusa z przedziału od 0 do 360 co 10 stopni . Czyli sinus dla 10,20,30 ... itd. Mam narazie tyle :

program sinus;
var a:integer;
c,b,x:extended;
begin
writeln('Dla jakiego kĄta chcesz obliczy† sin');
readln(a);
b:=a*(Pi/180);

c:=Sin(b);
writeln('wynosi ',sin(c):0:1);

readln;
end.

Problem w tym , że mój program liczy tylko dla liczby podanej przez usera , czy mógłby mi ktoś przerobić mój program na wersje podaną wyżej, czyli co 10 stopni . Próbowałęm zastosować pętlę ale nic nie wychodziło ,chyba jestem na to za głupi . Proszę o pomoc .:) Z góry dzięki .

Answer 1

program sinus;
var a:integer;
plik:text;
c,b,x:extended;
licznik:integer;
begin

for licznik:=0 to 360 do
begin
if ((licznik mod 10) = 0) then
begin
b:=licznik*(Pi/180);
c:=Sin(b);
writeln(licznik,' = ',sin(c):0:1);
end;
end;

readln;
end.