Latihan 22 mei 2010

LATIHAN


uses wincrt;
var i,n:byte;
kode:array[1..10]of char;
jml:array[1..10]of integer;
nama,jns:array[1..10]of string;
hrg,toha:array[1..10]of longint;
tp:longint;
lg:char;
label awal;

procedure output;
beginclrscr;writeln('DATA PENJUALAN');
writeln('=============================================');
writeln('No Nama Jenis Harga Jumlah Total');
writeln(' Pembeli Barang Barang Beli Harga');
writeln('=============================================');
for i:=1 to n do
begin
gotoxy(1,i+5);write(i);
gotoxy(4,i+5);write(nama[i]);
gotoxy(14,i+5);write(jns[i]);
gotoxy(25,i+5);write(hrg[i]);
gotoxy(35,i+5);write(jml[i]);
gotoxy(41,i+5);writeln(toha[i]);
end;
writeln('=============================================');
writeln(' Total Penjualan: ',tp);
end;
beginawal:clrscr;tp:=0;
write('Masukkan jumlah data: ');readln(n);
writeln;for i:=1 to n do
begin
writeln('Data ke-',i);
write('Nama pembeli : ');readln(nama[i]);
write('Kode Barang[A/B/C/D/E/F/G/H/I/J]: ');
readln(kode[i]);
if upcase(kode[i])='A' thenbeginjns[i]:='Mouse';hrg[i]:=50000;
end
else if upcase(kode[i])='B' then
begin
jns[i]:='Keyboard';hrg[i]:=28000;
end
else if upcase(kode[i])='C' then
beginjns[i]:='Monitor';hrg[i]:=1500000;
end
else if upcase(kode[i])='D' then
beginjns[i]:='Printer';hrg[i]:=2000000;
end
else if upcase(kode[i])='E' then
beginjns[i]:='Kertas A4';hrg[i]:=320000;
end
else if upcase(kode[i])='F' then
beginjns[i]:='Plas Dis';hrg[i]:=90000;
end
else if upcase(kode[i])='G' then
beginjns[i]:='Card Ridder';hrg[i]:=50000;
end
else if upcase(kode[i])='H' then
beginjns[i]:='Tinta';hrg[i]:=300000;
end
else if upcase(kode[i])='I' then
beginjns[i]:='CPU';hrg[i]:=1000000;
end
else if upcase(kode[i])='J' then
beginjns[i]:='Stabilizer';hrg[i]:=150000;
end
else
beginjns[i]:='Tidak Ada';hrg[i]:=0;
end;
write('Jumlah beli : ');readln(jml[i]);toha[i]:=hrg[i]*jml[i];tp:=tp+toha[i];
end;
output;
write('Input data lagi[Y/T]: ');readln(lg);if upcase(lg)='Y' thengoto awal;readln;
end.

[Tutorial] Kalkulator w delphi PL

Delphi Programming Tutorial #26 - Form Creation

objeck investor event on clik
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure formclik(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.formclik(Sender: TObject);
begin
showmessage('saya sedang belajar pemograman delphi')
end;

end.

Multimedia dalam pendidikan atau multimedia in edcuation merupakan satu konsep baru yang sedang diperkenalkan bahkan sekarang hampir semua sekalh bakn perguruan tinggi menggunakan aplikasi ini dalam mengajar dan pembelajaran.Konsep ini dikembangkan untuk memotivas di kalangan anak- anak atau mahasiswa.karena selain mereka senang denagn hal ini mungkin dalm pembelajarannya mereka akan semangat belajar.tapi apakah sangat efektif dengan hal semacam ini???Kadang mereka mendengarkan Guru atau dosennya yang sedang menerangkan bahkan da pula yang main2 dengn multimedia yang telah di sediakn oleh pihak sekolah.Merekan akan sangat mengerti bahwa multimedia yang digunakan akan mempengaruhi belajar siswa tapi kadang mereka juga akan malas untuk mencatat hanya sebatas mengcopy dr laptop tanpa d baca lagi d rumah??ini yang kita harapkan dr konsep tersbt tentunya tidak kan??

Kuliah Umum Bersama Prof.Dr,H.Suyatno,M.Pd.

Hari ahad,24 Januari 2010,pukul 14.00 WIB

Assalamualaikum wr.wb

Sebagai Perguruan Tinggi yang sudah hampir setengah abad bahkan satu abad ini ,terus melakukan upaya melalui pendidikan bukti kongkrit STKIP dan FARMASI MUHAMMADIYAH sudah berjalan.

Ini berkat kontribusi masyarakat bangsa dan negara.Identiknya Muhammadiyah itu dengan Pendidikan ,Kesehatan serta kaum Duaafa,padahal sebelum republik tahun 1945 Muhammadiyah sudah lahir sejak tahun 1912.Oleh karena itu mengelola pendidikan 50% modal nama besar Muhammadiyah,kepercayaan sangat tinggi baik Negara dan Integritas.

Pendidikan ini tak akan berjalan apabila:
1.Tidak diurus
2.Salah mengurus
3.Tidak bisa diurus
Makanya sebagai kader kita tidak boleh berhenti dan harus menggerakan sehingga mampu mempunyai stabilitas besar.

Regulasi pendidikan sangat cepat memberikan harapan untuk perubahan,konsekwensi.Kader juga harus mampumengantisipasi perubahan,harus mampu mengubah dirinya sendiri sesuai dengan perkembangan zaman.Pikiran harus berubah terhadap lingkungan.

Pendidikan merupakan bagian terpenting dalam menciptakan SDM yang handal.
Telah banyak upaya yang telah dilakukan mulai dr perubahan kurikulum hingga pada kualitas tenaga kerja belum maksimal.
Faktor yang mempengaruhi belum maksimal,manajemen pendidikan ,mutu guru,sarana dan frasarana.
Faktor lain perlunya peraturan.


3 PILAR PEMBANGUNAN PENDIDIKAN:
A.Peningkatan pemerataan dan akses Pendidikan
B.Peningkatan mutu ,relevansi,dan daya saing serta tata kelola yang baik
C.Dood Goverment (transparan)dan pencitraan pubilk

Semoga ada manfaatnya.

Wassalam