Menampilkan NA=40% UTS + 60% UAS dan ket( LULUS / TDK LULUS )
LULUS jika NA > 50.Input nama,NIM,UTS,UAS
uas wincrt;
var
nim,nama:string;
uts,uas:integer;
na:real;
begin
write('Nama: ');readln(nama);
write('NIM: ');readln(nim);
write('Nilai UTS: ');readln(uts);
write('Nilai UAS: ');readln(uas);
na:=(40/100*uts)+(60 /100*uas);
writeln('Nilai akhir: ',na:10:2);
if na>50 then write('LULUS') else write('TDK LULUS');
end.
uses wincrt;
var
m:integer;
cm,mm:longint;
begin
write('Masukkan bil dlm bentuk m: ');readln(m);
cm:=100*m;
mm:=1000*m;
writeln(m,'m= ',cm,'cm');
writeln(m,'m= ',cm,'cm');
end.
uses wincrt;
var
uang:longint;
begin
write('Banyaknya uang:Rp ');raedln(uang);
if uang>100000 then
writeln('Tidak ambil uang di ATM')
else
writeln('Ambil uang di ATM');
end.
uses wincrt;
procedure tanya_hitung1;
var
x,y,h:real;
begin
write('Nilai x?');readln(x);
write('Nilai x?');readln(x);
h:=x*y;
writeln('Hasil perkalian= ',h:5:2);
end;
procedure tanya_hitung2;
var
x,y,h:real;
begin
write('Nilai x?');readln(x);
write('Nilai x?');readln(x);
h:=x+y;
writeln('Hasil penjumlahan= ',h:5:2);
end;
procedure menu;
var
j:integer;
begin
writeln('MENU HITUNG');
writeln('1.Perkalian');
writeln('2.Penjumlahan');
write('Pilih no?(1/2)');readln(j);
if j=1 then
begin
clrscr;
tanya_hitung1;
end;
if j=12 then
begin
clrscr;
tanya_hitung12;
end;
end;
begin
menu;
end.
Mencari akar-akar pers. kuadrat menggunakan rumus ABC
uses wincrt;
var
a,b,c:integer;
D,x1,x2:real;
begin
write('Nilai a = '); readln(a);
write('Nilai b = '); readln(b);
write('Nilai c = ');readln(c);
D:=(sqr b)-(4*a*c);
if D=0 then
begin
x1:=-b/(2*a);
x2:=-b/(2*a);
writeln('x1 = ',x1:8:2);
writeln('x2 = ',x2:8:2);
end
else
if D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('x1 = ',x1:8:2);
writeln('x2 = ',x2:8:2);
end
else
writeln('x1 dan x2 adalah bilangan imginer');
end.
uses wincrt;
var
a,b,x:integer;
nilai:array[1..10] of integer;
no,nama,nim:array[1..10]of string;
procedure input_data;
begin
clrscr;
write('Berapa data yang diinginkan: ');readln(a);
begin
for b:=1 to a do
begin
write('No.');readln(no[b]);
write('Nama: ');readln(nama[b]);
write('NIM: ');readln(nim[b]);
write('Nilai: ');readln(nilai[b]);
end;
end;
end;
procedure lap_data;
begin
clrscr;
gotoxy(25,5);writeln('DAFTAR NILAI MAHASISWA');
gotoxy(25,6);writeln('SEMESTER III');
writeln('--------------------------------');
writeln('|| No || Nama || NIM || Nilai ||');
writeln('--------------------------------');
for b:=1 to a do
begin
write(' ',no[b],' ');
write(' ',nama[b],' ');
write(' ',nim[b],' ');
write(' ',nilai[b],' ');
writeln;
end;
end;
begin
writeln('Menu');
writeln('1.Input Data');
writeln('2.Laporan Data');
write('Tekan 1 untuk menginput data: ');readln(x);
if x=1 then
begin
input_data;
end;
write('Tekan 2 untuk melihat laporan data: ');readln(x);
if x=2 then
begin
lap_data;
end;
end.
Mencari nilai rata-rata,nilai max,nilai min jika diinput nilai1,nilai2,nilai3
uses wincrt;
var
n1,n2,n3:integer;
r:real;
begin
write('Masukkan nilai1:');readln(n1);
write('Masukkan nilai2:');readln(n2);
write('Masukkan nilai3:');readln(n3);
r:=(n1+n2+n3)/3;
writeln('Rata-rat= ',r:6:2);
if n1>n2 then
begin
if n1>n3 then writeln('Nilai max: ',n1) else writeln('Nilai max: ',n3);
end
else
if n2>n3 then writeln('Nilai max: ',n2) else writeln('Nilai max: ',n3);
if n1 begin if n1 end else if n2 end.
uses wincrt;
var
a,b,n:integer;
begin
write('Masukkan banyak angka = '); readln(n);
writeln;
for a:=1 to n do
begin
for b:=1 to a do
write(a:2);
write(' ');
writeln;
end;
end.
uses wincrt;
var
a,t,L:real;
begin
write('panjang alas segitiga = ');
readln (a);
write('tinggi segitiga = ');
readln (t);
L:=1/2*a*t;
writeln('Luas Segitiga = ',L:6:2);
end.
Membuat faktorial perkalian dengan input sebarang bilangan
uses wincrt;
var
n,x:integer;
t:longint;
begin
write('Masukkan sebarang bil: ');readln(x);
n:=1;
t:=n;
repeat
if n t:=t*n; n:=n+1; until n>x; write(t); end.
Menampilkan kalimat yang diulang sebanyak n kali dgn urutan kata3 kata2 kata1,jika kata1,kata2,kata3 diinput.
uses wincrt;
var
k1,k2,k3:string;
n,x:integer;
begin
write('Masukkan kata 1: ');readln(k1);
write('Masukkan kata 2: ');readln(k2);
write('Masukkan kata 3: ');readln(k3);
write('Masukkan perulangan: ');readln(x);
n:=1;
repeat
if n n:=n+1; until n>x; end.
uses wincrt;
var
n:integer;
FUNCTION Faktorial(M:integer):longint;
begin
if M=0 then
Faktorial:=1
else
Faktorial:=M*Faktorial(M-1);
end;
begin
clrscr;
writeln('Faktorial');
write('Berapa faktorial: ');readln(n);
writeln(n,'! = ',Faktorial(n));
end.
uses wincrt;
var
a,b:integer;
nilai:array[1..10]of integer;
no,nama,nim:array[1..10]of string;
begin
writeln;
write('Berapa data yang diinginkan: ');readln(a);
begin
for b:=1 to a do
begin
write('No.');readln(no[b]);
write('Nama: ');readln(nama[b]);
write('NIM: ');readln(nim[b]);
write('Nilai: ');readln(nilai[b]);
end;
end;
writeln;
gotoxy(25,15);writeln('DAFTAR NILAI MAHASISWA');
gotoxy(29,16);writeln('SEMESTER III');
writeln('---------------------------------');
writeln('||No|| ||Nama|| ||NIM|| ||Nilai||');
writeln('---------------------------------');
for b:=1 to a do
begin
write(' ',no[b],' ');
write(' ',nama[b],' ');
write(' ',nim[b],' ');
write(' ',nilai[b]);
writeln;
end;
end.
uses wincrt;
var
x,n:integer;
begin
writeln('Lagu Anak Ayam');
writeln;
write('Masukkan banyaknya anak ayam yang ingin ditampilkan: ');readln(x);
writeln;
writeln('Tek kotek kotek kotek anak ayam turun berkotek');
writeln('Anak ayam turunlah ',x);
n:=x-1;
repeat
if n>1 then
begin
writeln('Mati satu tinggalah ',n);
end
else
writeln('Mati satu tinggalah ',n);
writeln('Anak ayam turunlah ',n);
n:=n-1;
until n=0;
writeln('Mati semua tinggal induknya');
end.
uses wincrt;
var
n,x:integer;
FUNCTION Pangkat(M:integer):longint;
begin
if M=0 then
Pangkat:=1
else
Pangkat:=n*Pangkat(M-1);
end;
begin
clrscr;
writeln('Perpangkatan');
write('Input bilangan: ');readln(n);
write('Input perpangkatan: ');readln(x);
writeln(n,'pangkat',x,'= ',Pangkat(x));
end.
program fibonachi;
uses wincrt;
var
a:array[1..100] of real;
i,n:integer;
begin
write ( 'Masukkan suku keberapa deret fibonacci: ');readln(n);
a[1]:=1;
a[2]:=1;
for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:0,' ');
end.
selamat mencoba!!!!!!!!!
uses wincrt;
var
a,b,c,d,hr,bln,th:integer;
t,bl,thn:longint;
begin
write('Masukkan sembarang tanggal: ');read(a);read(b);readln(c);
write('Masukkan sembarang hari: ');readln(d);
th:=d div 360;
bln:=(d mod 360)div 30;
hr:=(d mod 30);
writeln(d,'hari = ',th,' tahun ',bln,' bulan ',hr,' hari ');
t:=a+hr;
bl:=b+bln;
thn:=c+th;
if t>30 then
begin
t:=(a+hr)mod 30;
bl:=((a+hr)div 30)+(b+bln);
end;
if bl>12 then
begin
bl:=(((a+hr)div 30)+(b+bln))mod 12;
thn:=((b+bln)div 12)+(c+th);
end;
writeln('Jadi',d,' hari lagi tanggal ',t,' ',bl,' ',thn);
end.
uses wincrt;
var
a,b,x:integer;
kali,jml:longint;
bagi:real;
begin
writeln('Menu Kalkulator');
writeln('1.Perkalian');
writeln('2.Pembagian');
writeln('3.Penjumlahan');
write('Masukkan menu pilihan anda: ');readln(x);
case x of
1:begin
clrscr;
write('Masukkan a: ');
readln(a);
write('Masukkan b: ');
readln(b);
kali:=(a*b);
writeln('Hasil kali= ',kali);
end;
2:begin
clrscr;
write('Masukkan a: ');readln(a);
write('Masukkan b: ');readln(b);
bagi:=a div b;
writeln('Hasil bagi= ',bagi);
end;
3:begin
clrscr;
write('Masukkan a: ');readln(a);
write('Masukkan b: ');readln(b);
jml:=a+b;
writeln('Jumlah= ',jml);
end;
else
writeln('Maaf input Anda tidak tersedia dalam Menu');
end;
end.
uses wincrt;
var
tabel:array[1..6,1..6] of integer;
m,n,i,j:integer;
begin
write('Input baris: ');readln(m);
write('Input kolom: ');readln(n);
writeln('Matriks yg anda input berukuran: ',m,'x',n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Tabel',i,'.',j,' ');readln(tabel[i,j]);
writeln;
end;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(tabel[i,j],' ');
writeln;
end;
end.
Silakan coba...
>.<
.JPG)