Program sin(x); uses crt; const pi = 3.14; var x,rad,p1,tot: real; n,i,faktor,p2,j: integer; tanda: byte; begin clrscr; writeln(‘ Menentukan nilai sin(x)’); write(‘Nilai x = ‘); readln(x); write(‘Masukkan pangkat = ‘); readln(n); rad:= pi.x/180; i:= 1; tanda:= 1; while i. Program AdministrasiMahasiswa; uses crt; const pkkspp = 400000; infospp = 600000; elekspp = 500000; bogaspp = 450000; ptikspp = 500000; pkkprak = 100000; infoprak = 500000; elekprak = 450000; bogaprak = 600000; ptikprak = 350000; sehat: real = 10000; var nm,jur: string; nojur: byte; tahun:integer; spp,prak: real; tot: real; begin clrscr; writeln(‘Administrasi Mahasiswa Fakultas Teknik dan Kejuruan’); writeln(‘’); write(‘Nama: ‘); readln(nm); writeln(‘Keterangan Jurusan: ‘); writeln(‘1. PKK’); writeln(‘2. D3 Informatika’); writeln(‘3. D3 Elektro’); writeln(‘4.
Kali ini mimin ingin share Contoh Program single linked list dengan C++. Sintax kali ini masih sangat sederhana sebab ini request yang san.
D3 Boga Perhotelan’); writeln(‘5. PTIK’); write(‘Jurusan (tulis no saja): ‘); readln(nojur); write(‘Tahun Masuk: ‘); readln(tahun); if tahun. Program tokoPD; uses crt; const dancowb = 10000; dancows = 4250; dancowk = 2100; indob = 8500; indos = 4000; indok = 2025; milob = 7750; milos = 4000; milok = 2200; suprib = 9600; supris = 5100; suprik = 2600; sustab = 17000; sustas = 14500; sustak = 8300; ovalb = 11250; ovals = 6500; ovalk = 3200; var no: byte; ukuran: char; banyak: longint; bayar: real; begin clrscr; writeln(‘’); writeln(‘ P & D Toserba’); writeln(‘Susu yang tersedia di P & D Toserba: ‘); writeln(‘1. Dancow’); writeln(‘2. Indomilk’); writeln(‘3.
![Contoh Contoh](/uploads/1/2/5/4/125463961/805966951.jpg)
Milo’); writeln(‘4. Suprima’); writeln(‘5.
Sustagen’); writeln(‘6. Ovaltime’); writeln(‘————————————–‘); write(‘No susu: ‘); readln(no); write(‘Ukuran (b:besar,s:sedang,k:kecil): ‘); readln(ukuran); write(‘Banyak barang: ‘); readln(banyak); case no of 1: begin case ukuran of ‘b’: bayar:=dancowb.banyak; ‘s’: bayar:=dancows.banyak; ‘k’: bayar:=dancowk.banyak; else writeln(‘Ukuran salah!!’); end; Download source code lengkap nya di.
Uses crt; const epsilon=0.00001; var a,b,c,fa,fb,fc: real; begin writeln(‘Mencari akar dari persamaan f(x)=(x^3 + 1)/3’); writeln(‘ Dengan Metode Bagi Dua’); writeln(‘’); write(‘Masukkan batas awal(a): ‘); readln(a); fa:=(a.a + 1)/3; writeln(‘f(a) = ‘,fa:0:5); repeat write(‘Masukkan batas akhir(b): ‘); readln(b); fb:=(b.b +1)/3; writeln(‘f(b) = ‘,fb:0:5); if fa.fb. Program regulafalsi; uses crt; label ulang; var x1,x2,x3,y1,y2,y3: real; i: integer; Ab:char; data1: real; begin ulang: clrscr; writeln(‘Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Regula Falsi’); write(‘Masukan nilai x1 = ‘);readln(x1); y1:= x1. x1. x1 + x1. x1 – 3.
x1 – 3; writeln(‘ Nilai f(x1)= ‘,y1:0:4); repeat begin write( ‘Masukan nilai x2 = ‘ ); readln(x2); y2:= x2. x2.
x2 + x2. x2 – 3. x2 – 3; write(‘ Nilai f(x2)= ‘,y2:0:4); end; if (y1.y2).