Prof.Zulkardi

Prof.Zulkardi

Prof.Dr.Zulkardi,M.I.Komp.,M.Sc adalah Guru Besar Pendidikan Matematika di Universitas Sriwijaya (UNSRI) Palembang. Beliau mengabdikan diri untuk mengembangkan dunia pendidikan di Indonesia, khususnya dalam bidang Pendidikan Matematika . Beliau adalah dosen yang sabar, motivator, inovatif, cerdas, friendly dan memberikan peluang kepada mahasiswa untuk terus berkreasi dan berprestasi.

Biodata Lengkap

Nama                         : Prof.Dr.Zulkardi,M.I.Komp.,M.Sc

NIP                            : 196104201986031002

Email                         : Zulkardi@yahoo.com

TTL                           : Gunung Raya, 20 April 1961

Agama                       : Islam

Pekerjaan                   : Dosen PNS

Golongan                   : Pembina Utama Muda/IV/C /

Jabatan                       : Guru Besar (Profesor)

Alamat                       : Perumahan Bukit Sejahtera Blok CD    No.5  Palembang

Riwayat Pendidikan

• Pada tahun 1980-1984, Beliau menempuh studi di Fakultas Keguruan dan Ilmu Pendidikan (FKIP) UNSRI pada Program studi Pendidikan Matematika.
•  Pendidikan S2 di Program Studi Ilmu Komputer di Universitas Indonesia Sandwich with University of Maryland, USA 1998-1990 ( 1 Tahun di UI dan 1 tahun di UM,USA, dan meraih gelar M.I.Komp.
•  Pada Tahun 1989-1999, Beliau tugas belajar pada International M.Sc ( Master of Science) program at the Faculty of Education Technologi (ICT in Mathematics Education) University of Twente, the Netherlands.
• Pada Tahun 1999-2002, Beliau tugas belajar pada S3 program on Mathematics Education University of Twente dan the Freudenthal Institute University of Utecht,the Netherlands.
• Kemudian, pada tahun 2005, Beliau menjadi Guru Besar Pendidikan Matematika (Profesor). 

Pekerjaan

·      Tahun 1986, Beliau diangkat menjadi Dosen di FKIP UNSRI

·  Pada tahun 1994-1998, Beliau diberikan amanah menjadi Ketua Program Studi Pendidikan Matematika FKIP UNSRI.

·   Pada tahun 2003-2005 menjadi Kepala kantor informasi dan komunikasi provinsi Sumatera Selatan.

·      Pada tahun 2005, Beliau menjadi Guru Besar Pendidikan Matematika (Profesor)

·     Kemudian, pada tahun 2006, Beliau diberikan amanah menjadi Ketua Program Studi Pendidikan Matematika S2 Program Pascasarjana (PPS) UNSRI.

·   Sejak tahun 2009, Beliau menjadi Head of International Master Program on Mathematics Education (IMPoME) in collaboration between UNSRI-Utrecht University, Netherlands.

·      Pada tahun itu juga (2009-2010), Beliau dipercayakan menjadi Rektor Universitas Indo Global Mandiri (IGM) Palembang.

      Karena prestasi dan kegigihan Beliau, Beliau diberikan amanah oleh matematikawan Indonesia menjadi Wakil Ketua Himpunan Matematika Indonesia atau Indonesia Mathematical Society (IndoMS) bidang Pendidikan selama tiga periode yaitu periode 2008-2010, 2010-2012, dan 2012-2014.

Read More

Pascal > Program Urut Data

Program Urut Data 

Di bawah ini adalah coding untuk mengurutkan data pada program pascal, semoga bermanfaat :)



program Urut_data;

uses wincrt;

var
 i,j,n:integer;
 x: array[0..6] of integer;

begin
 writeln('Program Urut Data');
 write ('Masukkan Banyak Data '); readln (n);

 for i:=1 to n do
  begin
   write ('Masukkan Data ke ',i,':'); readln (x[i]);
  end;

for i:=1 to n-1 do
for j:=1 to n-1 do
 begin
  if x[j]>x[j+1] then
   begin
    x[0]:=x[j];
    x[j]:=x[j+1];
    x[j+1]:=x[0];
   end;

 end;

 writeln('Data Setelah Diurut');
 for i:=1 to n do
  begin
   writeln('Data ke ',i,':',x[i]);
  end;

Read More

Pascal > Program Menu

Program Menghitung_Luas_Bangun_Datar;               Uses wincrt; label akhir,awal; Var menu:integer; p,l,t,r,s,a,d1,d2,L1,L2,L3,L4,L5,L6:real; YN: char; begin      begin      awal:      gotoxy(15,2); writeln(' == Program Menghitung Luas Bangun Datar ==');      writeln;      writeln (' Menu-Menu ');      writeln;      writeln('1. Persegi');      writeln('2. Persegi Panjang');      writeln('3. Layang-layang');      writeln('4. Jajar Genjang');      writeln('5. Segitiga');      writeln('6. Lingkran');      writeln('0. Selesai');      writeln;      write('Pilih Menu No: '); read(menu);      end;          case menu of          1:begin          repeat          clrscr;          gotoxy(32,2); writeln('== Persegi ==');          writeln;          write('Masukkan Nilai Sisi Persegi= '); readln(s);          L1:=s*s;          writeln('..............................');          writeln('Jadi Luas Persegi = ',L1:0:0,'cm2');          write('Coba lagi? (Y or N):'); readln (YN);          until (YN='N') or (YN= 'n');          clrscr;          goto awal                                        end;          2:begin          repeat          clrscr;          gotoxy(28,2); writeln('== Persegi Panjang ==');          writeln;          write('-Masukkan Nilai p (panjang) = ');readln(p);          write('-Masukkan Nilai l (lebar) = ');readln(l);          L2:=p*l;          writeln('..............................');          writeln('Jadi Luas Persegi Panjang = ',L2:0:0,' cm2 ');          write('Coba lagi? (Y or N):'); readln (YN);          until (YN='N') or (YN='n');                       clrscr;          goto awal          end;          3:begin          clrscr;          gotoxy(29,2); writeln('== Layang-layang ==');          writeln;          write('-Masukkan Nilai d1 (diagonal satu)= '); readln(d1);          write('-Masukkan Nilai d2 (diagonal dua)= '); readln(d2);          L3:=1/2*d1*d2;          writeln('..............................');          writeln('Jadi Luas Layang-layang = ',L3:10:2,' cm2 ');          write('Coba lagi? (Y or N):');  readln(YN);          readln;          clrscr;          goto awal          end;          4:begin          repeat          clrscr;          gotoxy(29,2); writeln('== Jajar Genjang ==');          writeln;          write('-Masukkan Nilai a (alas) = '); readln(a);          write('-Masukkan Nilai t (tinggi) = '); readln(t);          L4:=a*t;          writeln('..............................');          writeln('Jadi Luas Jajar Genjang = ',L4:10:2,' cm2 ');          write('Coba lagi? (Y or N):'); readln (YN);          until (YN='N') or (YN='n');                       clrscr;          goto awal          end;          5:begin          repeat          clrscr;          gotoxy(31,2); writeln('== Segitiga ==');          writeln;          write('-Masukkan Nilai a (alas) = '); readln(a);          write('-Masukkan Nilai t (tinggi) = '); readln(t);          L5:=1/2*a*t;          writeln('..............................');          writeln('Jadi Luas Segitiga = ',L5:10:2,' cm2 ');          write('Coba lagi? (Y or N):'); readln (YN);          until (YN='N') or (YN='n');                       clrscr;          goto awal          end;          6:begin          repeat          clrscr;          gotoxy(31,2); writeln('== Lingkaran ==');          writeln;          write('-Masukkan Nilai r (jari-jari) = '); readln(r);          L6:=pi*r*r;          writeln('..............................');          writeln('Jadi Luas Lingkaran = ',L6:10:2,' cm2 ');          write('Coba lagi? (Y or N):'); readln (YN);          until (YN='N') or (YN='n');                       clrscr;          goto awal          end;          0:begin          clrscr;          goto akhir          end;      end;      akhir:      end.

coding diatas adalah contoh bagaimana cara untuk membuat program menu menggunakan pascal dengan materi ''menghitung luas bangun datar''. Semoga Bermanfaat ^-^

Read More