SEGITIGA

PENGGUNAAN ALAT PERAGA
SEGITIGA, DAERAH SEGITIGA, DAN MACAM-MACAM SEGITIGA

Pokok Bahasan : Geometri
Sub Pokok Bahasan : Segitiga
Jenjang Pendidikan : SMP / MTs
Kelas / Semester : VII / I
Indikator : 1. Menentukan jenis segitiga
berdasarkan panjang sisi-sisinya.
2. Menentukan jenis segitiga
berdasarkan besar sudutnya.
3. Menentukan jenis segitiga.
berdasarkan panjang sisi-sisinya
dan besar sudutnya.

I. Bentuk Alat Peraga
A. Segitiga dan macamnya
1. Jenis Segitiga Ditinjau dari Panjang Sisi-sisinya
(i). Segitiga sama kaki
Contoh:segitiga dengan ukuran 15cm, 20cm, 20cm.
(ii). Segitiga sama sisi
Contoh:segitiga dengan ukuran 20cm, 20cm, 20cm.
(iii). Segitiga sembarang
Contoh:segitiga dengan ukuran 15cm, 20cm, 24cm.

A.

Gambar 1.1 Jenis Segitiga Ditinjau dari Panjang Sisi-sisinya
2. Jenis Segitiga Ditinjau dari Besar sudutnya
(i). Segitiga lancip
Contoh:segitiga dengan ukuran 15cm, 20cm, 24cm
(ii). Segitiga siku-siku
Contoh:segitiga dengan ukuran 15cm, 20cm, 25cm
(iii). Segitiga tumpul
Contoh:segitiga dengan ukuran 12cm, 18cm, 25cm … continue reading this entry.

Iklan

MORSE

kata “morse” berasal dari nama penciptanya yaitu Samuel F.B. Morse. morse ditemukan pada tahun 1835,namun baru dapat diterima untuk dipergunakan di seluruh dunia tahun 1851 dalam konverensi Internasional.

penggunaan morse itu sendiri dapat dilakukan dengan berbagai cara, antara lain :
1. Suara, yaitu dengan menggunakan peluit
2. Sinar, yaitu dengan menggunakan senter
3. Tulisan, yaitu dengan menggunakan titik (.) dan strip (-)
4. Bendera, yaitu dengan menggunakan bendera morse

terkadang kita merasa kesulitan untuk menghafal atau mengingat kembali isyarat morse. Berikut ini tips menghapal morse dengan cepat. Lihat gambar di bawah ini :

Petunjuk Penggunaan : … continue reading this entry.

program peserta kursus

program peserta_kursus;
uses wincrt;
var
n,i,tot:longint;
nm,kd:array[1..10] of string;
no,byr:array[1..10] of longint;
begin
write(‘berapa jumlah data yang ingin di input?’);readln(n); … continue reading this entry.

program penjumlahan

Program Penjumlahan_Deret_Bilangan_Bulat;

Uses Wincrt;

Var

bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;

jumlah1,jumlah2,jumlah_akhir:longint;

Begin

Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);

Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);

If bilangan_akhir=bilangan_awal then write (bilangan_awal)

else begin

jumlah_akhir:=0;

jumlah1:=0;

jumlah2:=0;

bilangan_setelah_awal:=bilangan_awal+1;

bilangan_penolong1:=0;

bilangan_penolong2:=0;

Write (bilangan_awal);

Repeat

jumlah2:=jumlah2+bilangan_penolong2;

bilangan_penolong2:=bilangan_penolong2+1;

Until bilangan_penolong2>=bilangan_awal;

Repeat

jumlah1:=jumlah1+bilangan_penolong1;

bilangan_penolong1:=bilangan_penolong1+1;

Until bilangan_penolong1>bilangan_akhir;

Repeat

Write (‘ + ‘,bilangan_setelah_awal);

bilangan_setelah_awal:=bilangan_setelah_awal+1;

jumlah_akhir:=jumlah1-jumlah2;

Until bilangan_setelah_awal>bilangan_akhir;

Write (‘ = ‘,jumlah_akhir);

end

End.

program perulangan dengan rekursi

Program Latihan_Rekursi_2;

Uses Wincrt;

Procedure Rekursi(a:integer);

Var

y:integer;

Begin

If a<10 then

Begin

Writeln(‘Pascal’);

Writeln;

a:=a+1;

Rekursi(a);

End;

End;

Var

x:integer;

Begin

Writeln(‘Berapa batas awalnya?’);Readln(x);

Rekursi(x);

End.

program konversi ukuran

program meter;

uses wincrt;

var a,b,c:real;

begin

write(‘masukkan dalam milimeter= ‘);readln(a);

b:=a/10;

c:=a/1000;

write(b:5:2,’ centimeter’);

write(c:5:2,’ meter’);

end.

program perulangan nama

program nama;

uses wincrt;

var i,x:integer;

begin

i:=1;

write(‘masukkan bilangan=’);readln(x);

repeat

write(i,’ ‘);

writeln(‘wahyu’);

i:=i+1;

until i>x;

end.

program diskriminan

program deskrimin ;

uses wincrt;

var a,b,c,d,x1,x2,z1,z2 : real;

begin

writeln (‘masukkan nilai a : ‘);readln (a);

writeln (‘masukkan nilai b : ‘);readln (b);

writeln (‘masukkan nilai c : ‘);readln (c);

d:= b*b-4*a*c;

if a=0 then write (‘bukan persamaan kuadrat’) else

if d=0 then

begin

x1:=-b/2*a;

writeln (‘akar-akarnya sama,yaitu x1=x2’,x1:2:2);

end else

if d>0 then

begin

x1:=(-b+sqrt(d))/(2*a) ;

x2:=(-b-sqrt(d))/(2*a);

writeln (‘x1’,x1:2:2);

writeln (‘x2’,x2:2:2);

end else

if d<0 then

begin

writeln(‘akar-akarnya imajiner’);

end;

end.

program membaca angka

program terbilang;

uses wincrt;

var a,b,c:integer;

begin

write(‘masukkan angka= ‘);read(a);

b:=a div 10;

c:=a mod 10;

writeln;

if b=2 then write(‘dua’) else

if b=3 then write(‘tiga’) else

if b=4 then write(’empat’) else

if b=5 then write(‘lima’) else

if b=6 then write(‘enam’) else

if b=7 then write(‘tujuh’) else

if b=8 then write(‘delapan’) else

if b=9 then write(‘sembilan’);

if b>1 then write(‘ puluh ‘);

if c=2 then write(‘dua’) else

if c=3 then write(‘tiga’) else

if c=4 then write(’empat’) else

if c=5 then write(‘lima’) else

if c=6 then write(‘enam’) else

if c=7 then write(‘tujuh’) else

if c=8 then write(‘delapan’) else

if c=9 then write(‘sembilan’) else

if (b<>1) and (c=1) then write(‘satu’) else

if c>0 then write(‘ ‘);

if c=0 then write(‘nol’) else

if (b=1) and (c=1) then write(‘sebelas’) else

if (b=1) and (c<>1) then write(‘belas’);

end.

program nama dan nim

program repeat_until;

uses wincrt;

var nama:string;

nim:integer;

pilih:char;

begin

repeat

CLRSCR;

write(‘masukkan nama= ‘);readln(nama);

write(‘masukkan nim= ‘);readln(nim);

write(‘anda ingin mengulang (Y/T)? ‘);readln(pilih);

until pilih=’t’;

write(‘selesai’);

end.

« Older entries