Tugas Manajemen Sekolah

MANAJEMEN PESERTA DIDIK
Manajemen Peserta Didik (Siswa) adalah seluruh proses kegiatan yang direncanakan dan diusahakan secara sengaja serta pembinaan secara kontinu terhadap seluruh peserta didik (dalam lembaga pendidikan yang bersangkutan) agar dapat mengikuti proses belajar mengajar (PBM) secara efektif dan efisien, demi tercapainya tujuan pendidikan yang telah ditetapkan. Secara kronologis operasional, rentangan kegiatannya mulai dari penerimaan peserta didik baru sampai mereka meninggalkan sekolahnya (eksit), karena telah tamat, meninggal dunia, putus sekolah atau karena sebab-sebab lain sehingga ia tidak terdaftar lagi sebagai peserta didik sekolah tersebut.
Manajemen peserta didik menunjuk pada kegiatan-kegiatan di luar kelas dan dalam kelas. Kegiatan-kegiatan di luar kelas meliputi :
1. Penerimaan peserta didik baru meliputi: (berdasarkan nilai ujian/USBN).
a. Penyusunan panitia beserta program kerjanya
b. Sistem pendaftaran calon peserta didik secara on-line (pengumuman, tempat, waktu, syarat, dan sebagainya)
c. Penyelesaian berdasarkan nilai ujian (USBN/Ujian Sekolah Berstandar Nasional), bina lingkungan, sistem rayon, anak guru (mendapatkan tambahan nilai) dan nilai prestasi dengan kebutuhan jumlah tempat duduk yang tersedia di kelas I (satu/awal), dan jumlah per kelas 36 anak.
d. Pengumuman calon yang diterima (termasuk cadangan) secara on-line yang bekerja sama dengan UDINUS dan bersifat terbuka artinya dapat dilihat oleh semua calon peserta didik
e. Registrasi (pencatatan peserta didik baru yang positif masuk), dilakukan dengan daftar ulang : fotocopy ijazah dan SKHUN
f. Diadakan tes penjaringan untuk siswa yang akan masuk ke dalam kelas bilingual
2. Pencatatan peserta didik baru dalam Buku Induk dan Buku Mapper.
a. Format buku Induk dan Buku Mapper
b. Data yang diisikan (identitas, orang tua/wali, alamat, dan sebagainya)
c. Kelengkapan data: foto kopi surat/akta kelahiran, surat keterangan kesehatan dan sebagainya
d. Buku Mapper mengutamakan pengisiannya berdasarkan abjad
3. Pembagian seragam sekolah beserta kelengkapannya, seragam praktikum, seragam pramuka dengan tata tertib penggunaannya. Tetapi seragam tidak harus beli paket dari sekolah bisa saja membeli di luar sekolah. Hari senin-kamis menggunakan seragam putih biru, hari jum’at menggunakan seragam batik, sedangkan hari sabtu menggunakan seragam pramuka.
4. Pembagian Kartu Anggota Osis beserta Tata Tertib sekolah yang harus dipatuhi (termasuk sanksi terhadap pelanggarnya).
5. Pembinaan peserta didik dan pembinaan kesejahteraan peserta didik
a. Kesejahteraan mental/spiritual (penyediaan tempat sembahyang, BP dan sebagainya).
b. Kesejahteraan fisik (sanitasi lingkungan, LTKS, keamanan, kenyamanan sekolah dan sebagainya).
c. Kesejahteraan akademik (tersedianya perpustakaan, laboratorium, tempat belajar yang memadai, bimbingan belajar, penasehat akademik dan sebagainya).
d. Organisasi (OSIS, PNM, Koperasi, PKS, dan sebagainya).
e. Kegiatan-kegiatan ekstra kurikuler (pengembangan bakat, minat, prestasi, hobi, ekspresi, seni dan sebagainya).
f. Rekreasi, pertandingan persahabatan, acara tutup tahun, study tour dan sebagainya.
g. Orientasi studi dan pengenalan sekolah, keakraban dan sebagainya.

Kegiatan-kegiatan di dalam kelas, meliputi:
1. Pengelolaan kelas (menciptakan dan mempertahankan kondisi yang optimal bagi terjadinya PBM).
a. Menciptakan kondisi fisik kelas yang nyaman (penataan kelas, dekorasi, ventilasi, pencahayaan dan sebagainya).
b. Menciptakan kondisi non fisik kelas (kondisi sosial-emosional yang positif, kepemimpinan dan perhatian guru, sikap, suara, interelasi, antar pengajar dan peserta didik, antar pendidik dan sebagainya).
c. Disiplin dan tata tertib kelas.
2. Interaksi belajar mengajar yang positif.
3. Perhatian guru terhadap dinamika kelompok belajar, demi kelancaran CBSA.
4. Pemberian pengajaran remedial, bagi yang lambat belajar / yang memerlukan.
5. Pelaksanaan presensi secara kontinu.
6. Perhatian terhadap pelaksanaan tata tertib kelas.
7. Pelaksanaan jadwal pelajaran secara tertib.
8. Pembentukan pengurus kelas dan pengorganisasian kelas.
9. Penyediaan alat/media belajar lainnya.
10. Penyediaan alat/bahan penunjang belajar lainnya.
Dalam kegiatan manajemen peserta didik ada beberapa hal yang sangat penting, yaitu Pembinaan Peserta Didik, Menangkal Kenakalan Anak/Remaja (Juvenile delinquency) dan Penanggulangan Penyalahgunaan Narkotika, ganja, morfin, alcohol dan sebagainya.
PEMBINAAN PESERTA DIDIK
Pada hakekatnya, tujuan dan pembinaan dan pengembangan peserta didik itu sesuai dengan Tujuan Pendidikan Nasional. Indonesia yang tercantum dalam GBHN. Peserta didik sebagai kader penerus perjuangan bangsa dan pembangunan nasional, harus dipersiapkan sebaik-baiknya serta dihindarkan dari segala kendala yang merusaknya, dengan memberikan bekal secukupnya dalam kepemimpinan Pancasila, pengetahuan, keterampilan, kesegaran jasmani, keteguhan iman, kekuatan mental, patriotism, idealisme, kepribadian, nasional, kesadaran nasional, daya kreasi dan budi pekerja luhur serta penghayatan dan pengamalan Pancasila.
Maksud pembinaan peserta didik adalah mengusahakan agar mereka dapat tumbuh dan berkembang sebagai manusia seutuhnya sesuai tujuan pendidikan nasional berdasarkan Pancasila. Tujuan pembinaan peserta didik adalah meningkatkan peran serta dan inisiatifnya untuk menjaga dan membina sekolah sebagai wiyatamandala, sehingga terhindar dari usaha pengaruh yang bertentangan dengan kebudayaan nasional, menumbuhkan daya tangkal terhadap pengaruh negatif yang datang dari luar lingkungan sekolah; memantapkan kegiatan kokurikuler dan ekstrakurikuler dalam menunjang pencapaian kurikulum; meningkatkan apreslasi dan penghayatan seni; menumbuhkan sikap berbangsa dan bernegara; meneruskan dan mengembangkan jiwa semangat serta nilai-nilai 1945; serta meningkatkan kesegaran jasmani dan rohani serta rekreasi, dalam wadah Organisasi Siswa Intra Sekolah (OSIS). Pembinaan pendidikan dilakukan melalui ekstrakurikuler, dimaksudkan untuk melakukan pembinaan tentang (1) Iman dan taqwa, (2) Membangun karakter bangsa, (3) Life skill, (4) Pembiasaan.

MENANGKAL KENAKALAN ANAK REMAJA
Kenakalan anak (Juvenile Delinquency) sebagai perbuatan anti sosial atau perbuatan penyelewengan/pelanggaran terhadap norma masyarakat yang dilakukan oleh anak/remaja tidak pernah luput dari perhatian kita. Hal tersebut harus ditangkal dan ditanggulangi dengan kebijakan-kebijakan pendidikan khususnya serta kebijakan-kebijakan lain pada umumnya secara menyeluruh dan terpadu. Penelewengan norma kelompok yang bersifat anti sosial antara lain adalah :
1. Ngebut, yaitu mengendarai kendaraan bermotor dengan kecepatan melampaui kecepatan maksimum yang ditentukan. Sehingga dapat mengganggu atau membahayakan pemakai jalan yang lain.
2. Peredaran pornografi di kalangan pelajar, baik dalam bentuk gambar-gambar cabul, majalah dan cerita porno, yang merusak moral maupun peredaran obat-obat perangsang nafsu seksual.
3. Berpakaian dengan mode yang tidak selaras dengan selera nasional kita sehingga dapat dipandang tidak sopan dimata kita.
4. Membentuk kelompok atau ‘gank’ dengan norma-norma yang menyeramkan seperti gadis tanpa BH, pemuda anti celana dalam, berpakaian acak-acakan, dan sebagainya. Bila terjadi perselisihan dengan kelompok lain atau perorangan mereka tidak segan-segan main hakim sendiri dan mengadakan pengroyokan serta, penganiayaan sampai pemerkosaan.
5. Anak-anak yang suka membuat pengrusakan-pengrusakan terhadap barang atau milik orang lain seperti mencuri, membuat corat-coret yang mengganggu keindahan lingkungan, mengadakan sabotase dan sebagainya.
6. Anak-anak yang senang melihat orang lain celaka akibat ulah dan perbuatannya, misalnya membuat lubangan atau menyiramkan minyak di jalan sehingga pengendara yang terperosok atau terpeleset dan jatuh berkelepotan sampai cedera karenanya.
Untuk menangkal dan menanggulangi kenakalan anak tersebut perlu diketahui secara dini dan seksama tentang penyebab-penyebabnya seperti :
a. Faktor perkembangan jiwa pada periode pubertas
b. Faktor lingkungan keluarga, sekolah dan masyarakat
Sedangkan penanggulangan kenakalan peserta didik dapat dilakukan dengan :
1. Pembinaan wali kelas yang dilakukan setiap satu minggu sekali di luar jam pelajaran
2. Konseling
3. Penyuluhan
4. Pembinaan kepada orang tua
5. Kunjungan rumah

Biaya Pulza Telepon

uses wincrt;
var j1,j2,m1,m2,d1,d2,totaldet,biaya:integer;
pulsa:integer;
begin
write('mulai : ');readln(j1,m1,d1);
write('selesai : ');readln(j2,m2,d2);
totaldet:=(3600*(j2-j1))+(60*(m2-m1))+(d2-d1);
pulsa:=totaldet div 5;
biaya:=pulsa*200;
write('biaya = ',biaya,' rupiah');
end.

Luas dan Volum Kerucut

uses wincrt;
const pi=3.14;
var r,l,v,t,s:real;
begin
gotoxy(20,1);writeln('"Menghitung Luas dan Volum Kerucut"');
writeln(' ');
write('Diketahui : ');
gotoxy(5,4);write('r = ');readln(r);
gotoxy(5,5);write('t = ');readln(t);
writeln(' ');
write('Ditanya : ');
writeln('Luas & Volume ?');
s:=sqrt(sqr(t)+sqr(r));
l:=pi*r*(r+s);
v:=(pi*r*r*t)/3;
writeln(' ');
;writeln('Jawab : ');
gotoxy(5,10);write('Luas = ',l:5:2);
gotoxy(5,11);write('Volume = ',v:5:2);
end.

Titik Koordinat

uses wincrt;
var x1,y1,x2,y2:integer;
x3,y3:real;
begin
write('(x1,y1)=');read(x1,y1);
write('(x2,y2)=');read(x2,y2);
x3:=(x1+x2)/2;
y3:=(y1+y2)/2;
write('(x3,y3) =','(',x3:2:0,',',y3:2:0,')');
end.

Jam Detik

uses wincrt;
var jam,detik:real;
begin
write('Masukkan waktu(dalam jam) = ');readln(jam);
detik:=3600*jam;
write((jam):5:0,'jam=',(detik):5:0,'detik');
end.

Gaji pokok

uses wincrt;
var nama:string;
gajipokok,tunjanganistri,jumlahanak,tunjangananak,gajitotal,pajak,gajiyangditerima:real;
begin
write('Nama : ');readln(nama);
write('Gaji Pokok : ');readln(gajipokok);
write('Jumlah Anak : ');readln(jumlahanak);
tunjanganistri:=15/100*gajipokok;
tunjangananak:=jumlahanak*20/100*gajipokok;
gajitotal:=gajipokok+tunjanganistri+tunjangananak;
pajak:=15/100*gajitotal;
gajiyangditerima:=gajitotal-pajak;
write('Gaji yang Diterima : ',gajiyangditerima:10:0);
end.

Daftar Nilai

program array_data;
uses wincrt;
var nim:array[1..20] of string[10];
no:array[1..20] of integer;
nama:array[1..20] of string[25];
nilai:array[1..20] of integer;
i,n:integer;
begin
write('masukkan data yang diperlukan =' );read(n);
clrscr;
for i:=1 to n do
begin
write('NO = ');readln(no[i]);
write('NIM = '); readln(nim[i]);
write('NAMA = '); readln(nama[i]);
write('NILAI = '); readln(nilai[i]);
clrscr;
end;
gotoxy(25,1);write('DAFTAR NILAI MAHASISWA');
gotoxy(30,2);writeln('SEMESTER III');
writeln;
writeln('===============================================================');
writeln('| NO | NIM | NAMA | NILAI |');
writeln('===============================================================');

for i:=1 to n do
begin
writeln(no[i]:4,nim[i]:17,nama[i]:19,nilai[i]:21);
end;
readln;

end.

Array matriks

program array_matriks;
uses wincrt;
var larik:array [1..100,1..100] of integer;
i,j,m,n:integer;

begin
write('masukkan jumlah baris = ');readln(m);
write('masukkan jumlah kolom = ');readln(n);
clrscr;
writeln('nilai komponen matriks = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(larik[i,j]);
end;
writeln;
end;
clrscr;
writeln('Diperoleh matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(larik[i,j]:9);
end;
writeln;
end;
end.

Lagu Anak Ayam

program lagu;
uses wincrt;
var x,n:integer;
begin
write('masukkan jumlah anak ayam= ');readln(n);
x:=n;
clrscr;
while x>1 do
begin
writeln('tek kotek kotek kotek');
writeln('anak ayam turun ',x);
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal ',x-1);
writeln;
x:=x-1;
end;
writeln('tek kotek kotek kotek');
writeln('anak ayam turun 1');
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal induknya');
end.

For Do1

uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: ');
readln (n);
for j:=n downto 1 do
begin
writeln (' ');
for i:=j downto 1 do
write (5:3) ;
writeln;
end;
readln;
end.

Luluskah Anda ??

program nilai;
uses wincrt;
const a=0.4;
b=0.6;
var nim:real;
nama:string;
d,e,f:real;
pilih:char;
begin
REPEAT
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('nilai UTS= ');readln(d);
write('nilai UAS= ');readln(e);
f:=a*d+b*e;
writeln('nilai akhir adalah= ',f:5:2);
if f<50 then writeln('gagal') else writeln('lulus');
write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);
until pilih='t';
write('selesai');
end.

Contoh array

program contoh;
uses wincrt;
var bil:array[1..50] of integer;
begin
clrscr;
bil[1]:=3;
bil[2]:=29;
bil[3]:=30;
bil[4]:=31;
bil[5]:=23;
writeln('nilai variabel bilangan ke 3= ',bil[3]);
readln;
end.

Segitiga Asyik

program segitiga_asyik_01;
uses wincrt;
var a,b,c:integer;
begin
write('masukkan angka= ');read(a);
clrscr;
for b:=1 to a do
begin
for c:=1 to b do
write(b:3);
writeln;
end;
end.

Deskriminan

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.

Perkalian Matriks

program perkalian;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n,l:integer;
a,b,c:larik;
begin
write('baris matriks pertama= ');readln(m);
write('kolom matriks pertama/baris matriks kedua = ');readln(n);
write('kolom matriks kedua = ');readln(l);
writeln;
write('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
write('nilai komponen matriks kedua = ');
for i:=1 to n do
begin
for j:=1 to l do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=0;
for k:=1 to l do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
end;
writeln('hasil perkalian matriks');
for i:=1 to m do
begin
for j:=1 to l do

write(c[i,j]:9);
writeln;
end;
end.

Nama

program nama;
uses wincrt;
var i,x:integer;
begin
i:=1;
write('masukkan bilangan =');readln(x);
repeat
write(i,' ');
writeln('kiki');
i:=i+1;
until i>x;
end.

Meter Centimeter

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.

Akar Kuadrat

program mencari_akar_dan_kuadrat;
uses wincrt;
var a,b,c:real;
begin
write('masukkan nilai=');readln(a);
b:=sqr(a);
c:=sqrt(a);
writeln('kuadrat=',b:3:2);
writeln('akar=',c:5:2);
end.

Menu Makanan

program menu;
uses wincrt;
var
a:integer;
lagi:char;
begin
lagi:='Y';
while lagi = 'Y' do
begin
gotoxy(10,3);write('Menu makanan');
gotoxy(10,5);write('1. Ayam Bakar');
gotoxy(10,6);write('2. Nasi Goreng');
gotoxy(10,7);write('3. Pecel Lele');
gotoxy(10,8);write('4. Roti Bakar');
gotoxy(10,10);write('Menu Pilihan Anda adalah ');
readln(a);
if a=1 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Ayam Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=2 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Nasi Goreng');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=3 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Pecel Lele');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=4 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Roti Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end;

gotoxy(10,15);write('Mau diulang lagi (Y/T)? ');readln(lagi);
end;
end.

Penambahan Matriks

program penambahan_matriks;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n:integer;
a,b,c:larik;
begin
write('baris matriks pertama/baris matriks kedua = ');readln(m);
write('kolom matriks pertama/kolom matriks kedua = ');readln(n);
clrscr;
writeln('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
clrscr;
writeln('nilai komponen matriks kedua = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
clrscr;
for i:=1 to m do
begin
for j:=1 to n do
begin
for i:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
end;
writeln('hasil penambahan matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do

write(c[i,j]:9);
writeln;
end;
end.

Menghitung Umur Anda

program menghitung_umur;
uses wincrt;
var d1,d2,b1,t1,a,b,c,d,e,f,g:integer;
begin
write('masukkan taggal,bulan,tahun lahir= ');read(d1,b1,t1);
writeln;
write('masukkan jangka waktu dalam hari= ');read(d2);
writeln;
a:=d1+d2;
b:=a div 30;
c:=a mod 30;
d:=b1+b;
e:=d div 12;
f:=d mod 12;
g:=t1+e;
write('tanggal sekarang= ',c,' ',f,' ',g,' ');
end.

Case of

program case_of;
uses wincrt;
var pilihan:integer;
b,c,d,e,f,g,h:real;
begin
writeln('MENU PILIHAN');
writeln('1.menghitung volum kubus');
writeln('2.menghitung volum balok');
writeln('3.menghitung volum limas segi-4');
writeln('masukkan pilihan=');readln(pilihan);
clrscr;

case pilihan of

1:begin
write('masukkan rusuk=');readln(b);
c:=b*b*b;
writeln('volum kubus=',c:5:2);
end;
2:begin
write('masukkan panjang,lebar,tinggi=');readln(d,e,f);
g:=d*e*f;
writeln('volum balok=',g:5:2);
end;
3:begin
write('masukkan panjang,lebar,tinggi=');readln(d,e,f);
h:=(d*e*f)/3;
writeln('volum limas segi-4=',h:5:2);
end;
end;
end.

Bilangan Ganjil dan Genap

uses wincrt;
var
nilai,y,x,bil:integer;
begin
write('masukan bil : ');
readln(bil);
if bil mod 2=0then
writeln('bil genap')
else
writeln('bil ganjil');
begin
y:=0;
for x:=1 to 5 do
begin
write('nilai ke',x,'=');
readln(nilai);
y:=y+nilai;
end;
writeln('nilai = ',y/5:0:2);
end;
end.

For Do

program for_do;
uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: '); readln(n);

for i:=1 to n do
begin
for j :=1 to i do
write (5);
writeln;
end;
readln;
end.

Procedure

program latihan_Prosedur;
uses wincrt;
procedure hitung;
var a,b,c:integer;
begin
c:=a+b;
writeln('masukkan nilai 1 dan 2 = ');read(a,b);
writeln('hasil jumlah = ',c);
end;
var i:char;
n:integer;

begin
repeat
begin
writeln('silakan pilih menu yang anda inginkan = ');
writeln('1. Penambahan ');
writeln('2. Pengurangan ');
writeln('3. Perkalian ');
writeln('Menu yang anda pilih adalah ');read(n);
end;
hitung;
writeln;
writeln('Apakah anda ingin mengulanginya lagi(Y/T)? ');read(i);
until i='t';

end.

Array

program array;
uses wincrt;
var larik:array [1..100,1..100] of integer;
i,j,m,n:integer;

begin
write('masukkan jumlah baris = ');readln(m);
write('masukkan jumlah kolom = ');readln(n);
clrscr;
writeln('nilai komponen matriks = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(larik[i,j]);
end;
writeln;
end;
clrscr;
writeln('Diperoleh matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(larik[i,j]:9);
end;
writeln;
end;
end.

Repeat untiL

uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=0;
write('masukkan bilangan : ');readln(x);
repeat
if numwrite(num,'+') else write(num,'=');
total:=total+num;
num:=num+1;
until num>x;
writeln(total,' ');
end.

Program Luas Segitiga

Program LuasSegitiga;
uses wincrt;
var
a,t,L:real;
begin
write('panjang alas segitiga = ');
readln (a);
write('tinggi segitiga = ');
readln (t);
L:=1/2*a*t;
writeln('Luas Segitiga = ',L:6:2);
end.

KeLomPok ProkoM

KeLompok Prokom
Nama Anggota :
1. Rizki Auliana (4101408142)
2. Zulmi Roestika Rini (4101408134)
RombeL 01