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.

program coklat

program coklat;
uses crt;
var
x,y,n,k : longint;
begin clrscr;
write ('==jumlah coklat yang akan dibagikan :');
readln (x);

k := 0;
n := 1;
for y := 1 to (n*10000) do begin

k := k+1;
if x>= k then begin
n := n+1
end;
end;
writeln (' ');
writeln ('bebek pertama yang tidak mendapat coklat ');
writeln ('bebek dengan nomor urut :',n);

readln;
end.

program bintang-menurun

program bintang2;
uses crt;
var i,j,n : integer;
begin clrscr;

write ('===program bintang2===');
readln (n);

for i := 0 to n do begin
for j := i+1 to n do begin
write(' * ');
end;
writeln;
end;

writeln ('by:dolpiana yolanda');
readln;
end.

program bintang 7*7

program bintang1;
uses crt;
var
n,y,z : integer;
begin clrscr;
write ('===program bintang===');
readln (n);
writeln (' ');

for y := 1 to n do begin
for z := 1 to n do begin
write (' * ');
end;
writeln;
end;

writeln (' ');
writeln ('by:dolpiana yolanda');
readln;
end.

Doaku

Smua ku lakukan demi mama-papaku & adik2ku,

smga Tuhan mmbrikan aku mujizat agr aku dpt mmbhgiakn mrka,mnjdi hrpan kluargaku,mnjdi hrpan negaraku,mnjdi hrapan gerejaku...

Smga yg kulakukan tdk sia2 & mmbuahkn hsil yg baik,

mlwati hal yg mllahkn & bru x ini aku mrsakn Tuhan slalu brsmaku,
aku tdk dbwt mngeluh & ptus asa,malahan Tuhan udah bwt aku smkin brsmgat dlm mggapai smuanya...

Cita2 utk skolah di luar negri dgn mndptkn beasiswa adlh hrapanku,smga aku bsa mwjudkn ini,aku pngen mngenal dunia luar & beradaptasi dgn mrka...

Bapaku,bundaku,yesusku & roh kudus,bntu aku mwjdkn ini smua agr aku bsa mmprbaiki ekonomi kluarga,agr aku mnjdi anak yg lyak hdir di dunia ini...
Amin