Tugas Proko String n Record

Silahkan yang pengen download
http://www.ziddu.com/download/13155183/stringnrecord.rar.html

Tugas Prokom Terbaru yaitu procedur dan fungsi

silahkan download dan upload sendiri
hehehe
http://www.ziddu.com/download/12896461/tugasfunctionandprocedure.rar.html

Untuk operasi dalam Matriks

Silahkan bagi kalian yang inging mendowload tugas prokom yang lain untuk klik di bawah ini:

http://www.ziddu.com/download/12741680/LatihanBAB7.rar.html

http://www.ziddu.com/download/12741677/xmatriks.exe.html http://www.ziddu.com/download/12741678/noname00.exe.html http://www.ziddu.com/download/12741679/noname01.exe.html

Invers Matriks

http://www.ziddu.com/download/12741600/8.rar.html
Silahkan bagi temen2 rombel lain yang ingin download invers matriks ada di sini!
Terimakasih

Tugas Mencari Jurnal Matematika

Wah jadi keinget dulu pas ku lagi kalkulus 2 di ajar ma pak Kartono...
Kita disuruh buat tugas akhir yaitu mencari jurnal matematika khusus kalkulus..
Dulu banyak banget link ditemuin di google tetapi kurang bermutu,lalu aku punya inisiatif untuk memberikan kemudahan bagi kalian2 surfer si internet yang lagi butuh jurnal kalkulus silahkan saja download di link ini...gratis!!!

http://www.ziddu.com/download/12690225/2d9ddf1e8f758a671b04e1dfc8761d3df923e96e.pdf.html

http://www.ziddu.com/download/12690226/TIK_inEduMath.pdf.html

http://www.ziddu.com/download/12690227/pmri-di-unsri.pdf.html

perkalian matriks dengan menggunakan array pada pascal

Perkalian matriks dengan menggunakan array pada pascal,
hari ini sudah menuju array multivariabel..silahkan bagi anda yang mau download file ini http://www.ziddu.com/download/12643564/xmatriks.pas.doc.html
(Tips: Klik kanan pada file yang telah kamu download terlebih dahulu, kemudian pilih rename lalu hapus .doc nya...agar bisa diakses langsung menuju turbo pascal.)

Silahkan Download di sini dan upload selanjutnya adalah invers matriks...
Tunggu episode berikutnya....Sabar ya,.........

Kunci Jawaban Kalkulus Lanjut 1 Kelompok 8

Teman2 rombel 2 Kalkulus Lanjut 1 Bu emy,silahkan mendownload kunci jawabannya di link ini:
http://www.ziddu.com/download/12643356/kunci.doc.html
Maaf sebelumnya karena kuncinya baru sempet upload di blog.
Terimakasih

Pengumuman Untuk kalkulus lanjut 1 Bu Emy rombel 2

Assalamualaikum...

Untuk temen2 rombel 2 kalkulus lajut 1 Bu Emy,selamat Idhul Adha ya...Udah makan sate berapa Ton??hehe

Temen2,berhubung kalut1 dilobby dan kalian sedang menunaikan liburan,maka untuk pembagian makalah dilakukan lewat internet.

Berikut ini adalah link dari makalah beserta soal2nya...

http://www.ziddu.com/download/12585073/makalah.docx.html

dan diharuskan untuk mengerjakan tugas awal,dan ini rinciannya:

1.Kelompok 1 , 4, dan 7mengerjakan tugas awal no.1 dan 6

2.Kelompok 2, 5 dan 9 mengerjakan tugas awal no. 2 dan 5

3.Kelompok 3, 6 dan 10 mengerjakan tugas awal no. 3 dan 4

Dikerjakan dalam bentuk ppt dan diserahkan paling lambat tanggal 23 November 2010 dan tugas akhir pada saat presentasi kelompok 9.

NB:Bagi yang mau mengumpulkan sebelum tanggal 23 November 2010 konfirmasi dahulu kepada ketua kelompok 8(Mega Eriska dengan CP:085642506587).Terima kasih,apabila ada pertanyaan lagi dapat dilayangkan kepada ketua.

bilangan fibbonaci dalam pascal

program soal_5;
uses wincrt;
var a,b:integer;
begin
a:=1;
b:=1;
writeln(a);
while a<=100 do
begin
writeln(a);
a:=a+b;
b:=a-b;
end;
end.

Test Kejujuran Ala Fendra

Uses Wincrt;
Label
1;
Var
Pil: Byte;
A:Char;
Begin
1:ClrScr;
GOTOXY(1,1);
Write('Welcome To Test Kejujuran!!');
GOTOXY(1,2);
Write('Pertanyaan Pertama');
ClrEol;
GotoXY(5,5);Write('Apa pendapat Anda tentang Fendra?');
GOTOXY(7,6);Write('1.Ganteng');
GOTOXY(7,7);Write('2.Baik Hati');
GOTOXY(7,8);Write('3.Jelek');
GotoXY(10,10);Write ('Pilihan (1, 2 atau 3): ');
Readln(Pil);
GotoXY(12,12);Case Pil of
1:Writeln (' Ganteng');
2:Writeln (' Baik hati');
3:Writeln (' Maaf,pilihan Anda Tidak dengan Nurani');
Else
Writeln ('Wah,mbaknya tau gak sih pilihannya cuma 3!!');
end;

WriteLn('Lanjut?(Y/T)');
readLn(A);
If (A='Y') or (A='y') then
goto 1;
end.

Mencari sisi miring

Program Sisi_miring_segitiga;
uses WinCrt;
Var
a,b :byte;
c :real;

Begin
Write('sisi alas segitiga siku-siku = '); ReadLn(a);
Write('sisi tegak segitiga siku-siku = '); ReadLn(b);
c:=sqrt(sqr(a)+sqr(b));
Write('sisi miring segitiga siku-siku =',c:1:2);
End.

Gaji Pegawai dalam pascal

Program Hitung_Gaji_Pegawai;
Uses WinCrt;
Var
NP:string;
No:byte;
GP:Integer;
N,JL,TJ,Total:Real;
Begin
GotoXY(1,2);Write('Nama Pegawai : ');ReadLn(NP);
GotoXY(1,3);Write('NIP : ');ReadLn(No);
GotoXY(1,4);Write('Lembur(dalam Jam): ');ReadLn(N);

GotoXY(11,5);Write('Perincian Gaji Pegawai : ');
GotoXY(11,6);Write('__________________________ ');
GotoXY(14,7);Write('Gaji Pokok : ');ReadLn(GP);
TJ:=0.15*GP;
JL:=n*0.015*GP;
Total:=TJ+GP+JL;
GotoXY(14,8);Write('Jam Lembur : ',JL:2:0);
GotoXY(14,9);Write('Tunjangan : ',TJ:2:0);
GotoXY(14,10);Write('_______________');
GotoXY(17,11);Write('Gaji Total :Rp. ',Total:2:0);

End.

Referensi Bahasa Pascal untuk mencari luas lingkaran

uses WinCrt;
Var
Pilihan :byte;
R,Luas :real;

Begin
ClrScr;
WriteLn('Masukkan jari-jari Lingkaran?'); ReadLn(R);
Luas:=22/7*R*R;
WriteLn('Luas Lingkaran=',Luas);
End.

Luas Lingkaran.pas

Silahkan bagi orang2 yang ingin mencari referensi program TPW bisa dicari di tempat ini!!Progrma dapat dipesan sesuai keinginan tinggal kirim aja ke facebook saya denagan alamat iprasysj@gmail.com

program Rata_rata_test;
uses wincrt;
var
pi : real;
r,L : real;

begin
write('jari-jari lingkaran = ');
read(r);
pi:= 22/7 ;
L:=pi*sqr(r);
writeLn('Luas Lingkarannya adalah ',L:2:2);
end.

Gaji.pas

Silahkan bagi yang membutuhkan resensi tentang TPW

program hitung_gaji;
uses wincrt;
var
Nama:string;
GP,GT,K,n,T :Real;

begin
write('Nama Sales = ');
read(Nama);
write('Jumlah Mobil yang terjual = ');
read(n);
write('Total Harga Mobil yang terjual(dalam jutaan) = ');
read(T);
GT:= 1;
GP:= GT + 0.1* n + 0.05*T;
write('Gaji Total(dalam Jutaan) = ',GP:2:2);
end.

jurnal kalkulus

pengen dapet jurnal kalkulus,masuk aja perpus pusat Unnes,di sana banyak bgt jurnal...
Maaf bagi yang kurang berkenan...untuk link jurnal bisa buka link ini. Terima Kasih.

membagi sudut menjadi 3 sama besar

dengan kapak tomahawk,atau hubungi fendra Budi Prasojo (akun FB),dia akan bantu....hanya perlu add saja....Akan tetapi,inbox dulu agar dikonfirm...Terima Kasih