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.