trigonometri

uses crt;
var
a,b,c,d,e,f,alfa : real;


begin
clrscr;
write('sudut : ');
read(alfa);


if alfa=0 then
begin
writeln('sin : 0.00');
writeln('cos : 1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : 1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;

if alfa=90 then
begin
writeln('sin : 1.00');
writeln('cos : 0.00');
writeln('tan : tak hingga');
writeln('cotan : 0.00');
writeln('sec : tak hingga');
writeln('cosec : 1.00');
readkey;
exit;
end;

if alfa=180 then
begin
writeln('sin : 0.00');
writeln('cos : -1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : -1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;

if alfa=270 then
begin
writeln('sin : -1.00');
writeln('cos : 0.00');
writeln('tan : tak hingga');
writeln('cotan : 0.00');
writeln('sec : tak hingga');
writeln('cosec : -1.00');
readkey;
exit;
end;

if alfa=360 then
begin
writeln('sin : 0.00');
writeln('cos : 1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : 1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;


a := sin (alfa*pi/180);
b := cos (alfa*pi/180);
c := a/b;
d := b/a;
e := 1/ b;
f := 1/ a;


if a=-0.00 then a:=0.00;
if b=-0.00 then b:=0.00;
if c=-0.00 then c:=0.00;
if d=-0.00 then d:=0.00;
if e=-0.00 then e:=0.00;
if f=-0.00 then f:=0.00;


writeln('sin : ',a:0:2);
writeln('cos : ',b:0:2);
writeln('tan : ',c:0:2);
writeln('cotan : ',d:0:2);
writeln('sec : ',e:0:2);
writeln('cosec : ',f:0:2);

readkey;

end.

program kotak

program kotak;
uses
crt;
var i, j: integer;
m: integer;
begin
readln(m);
for i:=1 to m do
begin
for j:=1 to m do
if(i=1) or (i=m) or (j=1) or (j=m)
then write ('*')
else write (' ');
writeln;
end;
readln;
end.

pascal2

program satu;
uses crt;
var
n: integer;
begin
clrscr;
write('masukkan nilai n: '); readln(n);
if(n>=100) then begin
n:=n mod 10;
if(n>=50) then
n:=n div 5
else
n:=n+2;
end;
n:=n*4;
writeln(n);
readln;
end.

pascal1

program dua;
uses crt;
var
n: integer;
begin
clrscr;
write('masukkan nilai n: '); readln(n);
if (n>=30) and (n<=100) then begin n:=(n+10) mod 20; if (n<=20) then n:=n mod 5; if (n>=30) then
n:=n mod 4
else
n:=n mod 5;
end
else
n:=n mod 6;
n:=n+5;
writeln(n);
readln;
end.

algoritma

AP4 111401085 TUGAS02


* Not 2 = -3

Jawab :
2 = 0000 0010
operator NOT akan mengubah nilai bitwise yang bernilai 1 menjadi 0.
0 menjadi 1.Jadi hasilnya adalah 1111 1101.Bit yang paling kiri adalah sign bit,0 adalah positif,1 adalah negatif.Pada pascal menggunakan cara komplemen dua,yaitu bila nilainya negatif,diartikan dengan cara mengurangi nilai biner tersebut dengan satu kemudian nilai bit dibalik,dan bila nilainya positif diartikan dengan positif (bila bilangannya nol) dan negative 1.Not 2 = -3
Bukti:
2 = 0000 0010
0000 0010
(negasi)
1 111 1101

*jika angka pertama 1, maka hasil bernilai negatif dan dikurang 1.
*jika angka pertama 0, maka hasil bernilai positif dan dijumlah 1.

(-) 1111 1101
1 _
(-) 1111 1100

(-) 1111 1100
(negasi)
(-) 0000 0011
(-) 0000 0011 = -3
Jadi, terbukti bahwa not 2 = -3

*Not 3 = -4
Bukti:
3 = 0000 0011
0000 0011
(negasi)
1 111 1100



(-) 1111 1100
1 _
(-) 1111 1011

(-) 1111 1011
(negasi)
(-) 0000 0100
(-) 0000 0100 = -4
Jadi, terbukti bahwa not 3 = -4

*Not 4 = -5Not 4 = -5
Bukti:
4 = 0000 0100
0000 0100
(negasi)
1 111 1011


(-) 1111 1011
1 _
(-) 1111 1010

(-) 1111 1010
(negasi)
(-) 0000 0101
(-) 0000 0100 = -5
Jadi, terbukti bahwa not 4 = -5

*Not 5 = -6Not 5 = -6
Bukti:
5 = 0000 0101
0000 0101
(negasi)
1 111 1010


(-) 1111 1010
1 _
(-) 1111 1001

(-) 1111 1001
(negasi)
(-) 0000 0110
(-) 0000 0110 = -6
Jadi, terbukti bahwa not 5 = -6

*Not 6 = -7Not 6 = -7
Bukti:
6 = 0000 0110
0000 0110
(negasi)
1 111 1001


(-) 1111 1001
1 _
(-) 1111 1000

(-) 1111 1000
(negasi)
(-) 0000 0111
(-) 0000 0111 = -7
Jadi, terbukti bahwa not 6 = -7

*Not 7 = -8Not 7 = -8
Bukti:
7 = 0000 0111
0000 0111
(negasi)
1 111 1000


(-) 1111 1000
1 _
(-) 1111 0111

(-) 1111 0111
(negasi)
(-) 0000 1000
(-) 0000 1000 = -8
Jadi, terbukti bahwa not 7 = -8




Nama : Dolpiana Yolanda S
Nim : 111401085
Kom B
AP 4

not 2=-3

1.Pertanyaan:Mengapa not 2=-3?
jawabannya:2=0000 0010
operator NOT akan mengubah nilai bitwise tadi yang bernilai 1 menjadi 0.0 menjadi 1.jadi hasilnya adalah
1111 1101
Bit yang paling kiriadalah sign bit,0 adalah positif,1 adalah negatif.Turbo pascal menggunakan cara komplemen dua,yaitu bila nilainya negatif,diartikan sebagai
1111 1101(dikurang 1)
1 -
1111 1100
kemudian nilai bit dibalik lagi
0000 0011-->3
karena tadi sign bnit nya negatif,maka hasilnya jadi -3

program pola angka

program polaangka;
uses
crt;
var
inp,i,a,t : integer;
begin
clrscr;
readln (inp);
t:=inp;
for i:=0 to inp do
begin
write(i,':');
for a:=0 to (t-i) do
begin
write(a);
end;
writeln;
end;
readkey;
end.