PROGRAM SIN COS PADA PASCAL
Ini contoh program dari guru algoritmaku, namanya Pak Bambang :D
uses crt;
Var
X : Integer;
Sinus,
Cosinus : Real;
Begin
clrscr;
Writeln('========================');
Writeln(' X Sinus Cosinus ');
Writeln('------------------------');
X := 0;
While X <=360 do
Begin
Sinus := Sin(X/57.2958);
Cosinus := Cos(X/57.2958);
Writeln(X:5,Sinus:10:5,Cosinus:10:5);
X := X + 30;
End;
Writeln('==========================');
readln;
End.
sumber : Pak Bambang :)
Diposting oleh
Lutvi Andriani
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar