tanGgal le Qoe ok,............

Rabu, 03 November 2010

http://resep-jitu.blogspot.com/2009/02/cara-memasukan-lagu-ke-dalam-blog.html
http://blog.fastncheap.com/search/cara+memasukan+winamp+ke+asesoris/

Tugas pa udin smester II

program mata_pelajaran;

uses wincrt;

type

mahasiswa=record

No:integer;

Hari:string;

MataKuliah:string;

NamaDosen:string;

end;

var

i:integer;

Mhs:array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write ('masukan No mahasiswa =');readln(Mhs[i].no);

write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);

write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);

write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);

writeln ('---------------------------------------------');

end;

writeln;

writeln;

writeln (' MATA PELAJARAN ');

writeln ('-----------------------------------------------------------------------');

writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');

writeln ('-----------------------------------------------------------------------');

for i:=1 to 3 do

begin

write (' ',Mhs[i].No);

write (' ',Mhs[i].Hari);

write (' ',Mhs[i].MataKuliah);

writeln (' ',Mhs[i].NamaDosen);

end;

writeln ('-------------------------------');

end.

program mata_pelajaran;

uses wincrt;

type

mahasiswa=record

No:integer;

Hari:string;

MataKuliah:string;

NamaDosen:string;

end;

var

i:integer;

Mhs:array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write ('masukan No mahasiswa =');readln(Mhs[i].no);

write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);

write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);

write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);

writeln ('---------------------------------------------');

end;

writeln;

writeln;

writeln (' MATA PELAJARAN ');

writeln ('-----------------------------------------------------------------------');

writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');

writeln ('-----------------------------------------------------------------------');

for i:=1 to 3 do

begin

write (' ',Mhs[i]. No);

write (' ',Mhs[i]. Hari);

write (' ',Mhs[i]. MataKuliah);

writeln (' ',Mhs[i]. NamaDosen);

end;

writeln ('-------------------------------');

end.

Soal

  1. konversi dari suhu farenheit-celcius

input : suhu awal celcius

rumus : suhu=5/9*(suhu awal celcius-32)

jawab=

program konversi_suhu;

uses wincrt;

var

awal:real;

suhu:real;

begin

write('masukan suhu awal celcius=');readln(awal);

suhu:=5/9*(awal-32);

writeln('jadi suhu akhirnya adalah=',suhu:2:2);

end.

soal

2.menentukan gaji bersih

Input=gaji pokok

Rumus pajak=0,15*gaji pokok

Gaji bersih=gaji pokok – pajak

Jawab=

program gaji_bersih;

uses wincrt;

var

gajipokok:real;

pajak:real;

gajibersih:real;

begin

write('masukan gaji pokok=');readln(gajipokok);

pajak:=0.15*gajipokok;

gajibersih:=gajipokok-pajak;

writeln('jadi gaji bersihnya adalah=',gajibersih:2:0);

end.

program nama_karyawn_dan_gaji_pokok;

uses wincrt;

var

karyawan:string;

gp,gb,t,p:real;

begin

write('masukan nama karyawan=');readln(karyawan);

write('masukan gaji pokoknya=');readln(gp);

t:=0.3*gp;

p:=0.25*(gp+t);

gb:=gp+t-p;

writeln('jadi tunjangannya adalah=',t:2:0);

writeln('jadi pajaknya adalah=',p:2:0);

writeln('jadi gaji bersihnya adalah',gb:2:0);

end.

program rerata_tanpalarik;

uses wincrt;

var x1,x2,x3,x4,x5:integer;

u :real;

begin

write('masukan nilai 1=');readln(x1);

write('masukan nilai 2=');readln(x2);

write('masukan nilai 3=');readln(x3);

write('masukan nilai 4=');readln(x4);

write('masukan nilai 5=');readln(x5);

writeln('nilai ke-1=',x1);

writeln('nilai ke-2=',x2);

writeln('nilai ke-3=',x3);

writeln('nilai ke-4=',x4);

writeln('nilai ke-5=',x5);

u:=(x1+x2+x3+4+5)/5;

writeln('masukan rata-ratanya adalah =',u:2:2);

end.

program rerata_tanpalarik;

uses wincrt;

var

x:array [1..3] of integer;

i:integer;

jumlah,u:real;

begin

for i:=1 to 3 do

begin

writeln ('masukan nilai=');readln(x[i]);

end;

for i:=1 to 3 do

begin

write('nilai ke.=',x[i]);

end;

jumlah:=0;

for i:=1 to 3 do

begin

jumlah :=jumlah+ x[i];

end;

u:=jumlah/3;

writeln('maka rata-ratanya adalah=', u:2:2);

end.

program data_mahasiswa;

uses wincrt;

type

mahasiswa=record

NIM :integer;

NamaMhs:string;

IPK:real;

end;

var

i:integer;

Mhs : array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write('masukan NIM mahasiswa =');readln(Mhs[i].NIM);

write('masukan Nama mahasiswa =');readln(Mhs[i].NamaMhs);

write('masukan IPK mahasiswa =');readln(Mhs[i].IPK);

write('........................................');

writeln;

writeln;

writeln(' tabel mahasiswa' );

writeln('...............................');

writeln('! NIM ! nama ! ipk !');

writeln('...............................');

writeln('! ! ! !');

writeln('...............................');

for i:=1 to 3 do

begin

write(' ',Mhs[i].NIM);

write(' ',Mhs[i].NamaMhs);

writeln(' ',Mhs[i].IPK:2:2);

end;

writeln('...............................');

end.

program jadwal_mata_kuliah;

uses wincrt;

type

mahasiswa=record

NO :integer;

Hari:real;

matakuliah:string;

namadosen:real;

end;

var

i:integer;

Mhs : array[1..5] of mahasiswa;

begin

for i:=1 to 5 do

begin

write('masukan no =');readln(Mhs[i].no);

write('masukan hari =');readln(Mhs[i].hari);

write('masukan mata kuliah =');readln(Mhs[i].matakuliah);

write('masukan nama dosen =');readln(Mhs[i].namadosen);

write('........................................');

end;

writeln;

writeln;

writeln(' jadwal mata kuliah' );

writeln('...............................');

writeln('! No ! hari ! mata kulaih ! nama dosen! ');

writeln('.....................................................');

writeln('! 1 ! rabu ! struktur data ! udin ! ');

writeln('! 2 ! rabu !perkmbngan psrta didik! ali ! ');

writeln('! 3 ! rabu ! pemrograman visual ! nanang ! ');

writeln('! ! ! ! ! ');

writeln('.....................................................');

for i:=1 to 5 do

begin

write(' ',Mhs[i].no);

write(' ',Mhs[i].hari );

write(' ',Mhs[i].matakuliah );

writeln(' ',Mhs[i].namadosen:2:2);

program keren;

uses wincrt;

Var nama:string;

Urutan, posisi:integer;

begin

nama:=('drjas keren');

Writeln('yang ini di dellete');

For urutan:=1 to 11 do

Begin

Posisi:=13-urutan;

delete (nama,posisi,1);

writeln(nama);

end;

writeln;

nama:='dijas keren';

writeln('yang ini lewat');

writeln('sebelum di insert:','nama');

insert('-',nama,6);

writeln('setelah di insert','nama');

readln;

end.

program pembalik_kata;

uses wincrt;

var kata,hasil,tmp:string;i:integer;

begin

write('kata:');readln(kata);

hasil:='';

for i:=length(kata) downto 1 do

begin

tmp:=copy(kata,i,1);

hasil:=hasil+tmp;

end;

write('dibalik',hasil);

readln;

end.

Tugas Bu sri

program pemilihan_huruf_vokal;

uses wincrt;

var

huruf:char;

begin

write('masukan huruf');readln(huruf);

if(huruf='a') or (huruf='i') or (huruf='u') or (huruf='e') or (huruf='o') then

write('huruftertersebut merupakan huruf vokal')

else

write('huruf tersebut bukan merupakan huruf vokal')

end.

program bilangan_terbesar;

uses wincrt;

var

bilangan1,bilangan2:integer;

begin

write('masukan bilangan ke-1=');readln(bilangan1);

write('masukan bilangan ke-2=');readln(bilangan2);

if bilangan1>bilangan2 then

write('bilangan terbesar =',bilangan1)

else

write('bilangan terbesar =',bilangan1)

end.

Word kurang dari 65.000

Longint 65.000 sampai 2.000.000.000

program cetak_angka;

uses wincrt;

var

N, i:integer;

begin

write('tulis berapa angkanya?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

write(i);

writeln;

end;

end.

program cetak_angka;

uses wincrt;

var

N, i:integer;

begin

write('tulis berapa angkanya sih?');readln(N);{isi dengan angka}

for i:=N downto 1 do

begin

write(i);

writeln;

end;

end.

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

write('*');

writeln;

end;

end.

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

for j:=1to i do

write('*');

writeln;

end;

end

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=N downto 1 do

begin

for j:=1 to i do

write('*');

writeln;

end;

end..

program luas;

uses wincrt;

var

nomor_menu,panjang,lebar,alas,tinggi,jari_jari,luas_persegi_panjang:integer;

luas_segitiga,luas_lingkaran:real;

begin

writeln(' MENU LUAS ');

writeln('..........................................');

writeln(' 1.luas persegi panjang ');

writeln(' 2.luas segi tiga ');

writeln(' 3.luas lingkaran ');

writeln('..........................................');

write('masukan pilihan nomor menu (1/2/3 ?');readln(nomor_menu);

writeln('..........................................');

if (nomor_menu=1) then

begin

writeln(' masukan luas persegi panjang ');

writeln('.....................................');

write('masukan nilai panjang =');readln(panjang);

write('masukan nilai lebar =');readln(lebar);

luas_persegi_panjang:=panjang*lebar;

writeln('luas persegi paNJANG =-',LUAS_PERSEGI_PANJANG);

writeln('.....................................');

end

else if (nomor_menu=2) then

begin

writeln(' masukan luas segi tiga ');

writeln('.....................................');

write('masukan nilai alas =');readln(alas);

write('masukan nilai tinggi =');readln(tinggi);

luas_segitiga:=0.5*alas*tinggi;

writeln('luas persegi paNJANG =-',LUAS_segitiga:2:2);

writeln('.....................................');

end

else if (nomor_menu=3) then

begin

writeln(' masukan luas lingkaran ');

writeln('.....................................');

write('masukan nilai jari_jari =');readln(jari_jari);

luas_lingkaran:=3.14*jari_jari*jari_jari;

writeln('.....................................');

writeln('luas lingkaran =',luas_lingkaran:2:2);

writeln('.....................................');

end

else

begin

writeln('nomer menu yang anda pilih tidak ada !!!!!');

write('silahkan pilih nomer menu!!!!!');

end

end.

program luas_persegi_panjang; (1)

uses wincrt;

var

p,l,luas:integer;

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

luas:=p*l;

writeln('maka luas persegi panjang adalah =',luas);

end.

program luas_persegi_panjang; (2)

uses wincrt;

var

p,l,luas:integer;

procedure hitung_luas;

begin

luas:=p*l;

writeln('maka luas persegi panjang adalah =',luas);

end;

{program utama}

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

hitung_luas;

end.

program luas_persegi_panjang; (3)

uses wincrt;

var

p,l,luas:integer;

function

luas_(p,l:integer):integer;

begin

luas:=p*l;

end;

{program utama}

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

write('masukan nilai persegi panjang adalah=',luas_(p,l));

end.

SoaL…………

Tuliskan program yang membaca tahanan (ohm) dan asus(amphere), kemudan kemudian menghitung tegangan yang di hasilkan dan menuliskan hasilnya perhitungan tegangan harus di tuliskan menjadi sebuah procedure bernama proses (infut-proses_autput)

Input : R:integer,tahanan(ohm)dan A:Integer, arus (amphere)

Proses menghitung V=R*A

outputV : Integer, tegangan (Volt).

  1. buat program dengan procedure
  2. buat program dengan Fungsi

JAWAB:

a. PROCEDURE

program menghitung_tegangan;
uses wincrt;
var
R,A,V:integer;
procedure hitung_tegang;

begin
V:=R*A;

writeln('Maka besarnya tegangan adalah =',V);

end;

begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);

hitung_tegang;

end.

procedure hitung_volume;
begin
volume:=p*l*t;
writeln('Maka Volume Balok adalah = ',volume);
end;

begin
write('Masukan nilai panjang = ');readln(p);
write('Masukan Nilai panjang = ');readln(l);
write('Masukan Nilai tinggi = ');readln(t);
hitung_volume;
end.

b. FUNCTION

program menghitung_tegangan;
uses wincrt;
var
R,A:integer;
Function tegangan(R,A:integer):integer;
begin
tegangan:=R*A;
end;
begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);
write('Maka besarnya tegangan adalah = ',tegangan(R,A));
end.

program anak_ayam;

uses wincrt;

var

a,b:integer;

begin

writeln('PROGRAM ANAK AYAM');

writeln('Tek Kotek Kotek Kojing ada ketek digigit anjing');

writeln('Tek Kotek Kotek Kojing anak ayam berkotek kotek');

write('Anak Ayam ada : ');read(a);

writeln;

for b:=a downto 2 do

writeln(' Anak ayam turun ',b,' Mati satu tinggal ',b-1);

writeln(' Anak ayam turun ',1,' Mati satu tinggal induknya');

writeln (' Anak Ayam mati semua mati satu mati semua ');

end.

Sabtu, 23 Januari 2010

cinta di kota

Tetaplah Disisiku

Ya Allah…
Dimanakah ku harus berlabuh…
Saat semua dermaga menutup pintu,
Dan berkata “ ini bukan untukmu…”
“Segara menjauh karna disini bukan tempatmu….!!!”

Ya Allah…
Katakan padaku, dermaga untukku berlabuh…???
Agar ku segera menghela nafas kehidupan yang baru.
Sampai kapan ku harus arungi waktu,..
Ku lelah Menunggu suatu yang tak pasti walau hanya Satu,..

Ya Allah …
Beri aku penerang jalan-Mu
Agar tak tersesat saat ku melaju,..
Kuatkan awak kapalku,
Saat badai menghalangi jalanku

Ya Allah …
Tetaplah disisiku,
Jangan Engkau menjauh dariku…
Karna ku mati tanpa hadir-Mu