Blog room

Home » Posts filed under ti

Showing posts with label ti. Show all posts

Modul tutorial microsoft office access + Tugas PPN 3

Microsoft access merupakan salah satu program pengolah data base yang canggih yang digunakan untuk mengolah berbagai jenis data dengan pengoperasiaan yang cukup mudah.

Banyak kemudahan yang akan diperoleh jika bekerja dengan microsoft access diantara dapat melakukan proses penyortiran pengaturan data, pembuatan label data serta laporan pembuatan data kegiatan sehari-hari misalnya untuk menampung daftar pelanggan, pendataan data karyawan, dan lain sebagainya.

berikut adalah salah satu video pembelajaran microsoft access

sobat bisa mendownload modul tutorial lengkap microsoft access dalam versi bahasa indonesia, secara orb “ORa Bayar”.

Donlot :

• modul tutorial ms access 2003 (dasar)
• modul tutorial ms access 2007 (menengah)
• Modul Database dengan Microsoft Access (dari Bu Nafik)

Seng durong ngerjakno tugas PPN3
Donloten :

Tugas PPN No.3

Met sinau sob....

Latihan 2.2

0 comments

program Latihan0202;

uses wincrt;

function
upcase(nama,alamat:string):string;

var
nrp: string[8];
keterangan: string[2];
nd,pd,nl,pl,ket: string;
grade, pilih: char;
jumlah, nilai1, nilai2, nilai3: real;
i:integer;
begin
gotoxy(35,2);write(' PROGRAM LOGIN ');
gotoxy(35,3);write('~~~~~~~~~~~~~~~');
gotoxy(5,4);writeln('_______________');
gotoxy(5,5);writeln(' Pendaftaran ');
gotoxy(5,6);writeln('===============');
writeln;
write(' Masukkan Nama : ');read(ND);
readln;
write(' Masukkan Password : ');read(PD);
readln;
clrscr;
gotoxy(5,4);writeln('_________');
gotoxy(5,5);writeln(' LOGIN ');
gotoxy(5,6);writeln('---------');
writeln;
write(' Nama : ');read(NL);
readln;
write(' Password : ');read(PL);
readln;
clrscr;

if ND<>NL then
begin
write(' username atau password yang Anda inputkan salah ')
end
else
if PD<>PL then
begin
write(' username atau password yang Anda inputkan salah ')
end
else
begin
writeln(' 1. Memasukan Data Mahasiswa');
writeln(' 2. Keluar');
writeln;
write(' Pilihan Anda : '); readln(pilih);
writeln;
end;

case pilih of

'1': begin
write(' Masukkan Nama Anda : ' ); readln(nama);
write(' Masukkan NRP Anda : ' ); readln(nrp);
write(' Masukkan alamat anda : ' ); readln(alamat);
write(' Masukkan Nilai Tugas : ' ); readln(nilai1);
write(' Masukkan Nilai UTS : ' ); readln(nilai2);
write(' Masukkan Nilai UAS : ' ); readln(nilai3);

for i:=1 to length (nama) do
if (nama[i]>='a') and (nama[i]<='z') then
dec (nama[i],32);
upcase :=nama;

for i:=1 to length (alamat) do
if (alamat[i]>='a') and (alamat[i]<='z') then
dec (alamat[i],32);
upcase :=alamat;

{menentukan program studi}
if (copy(nrp, 3, 2)='11') then keterangan:= 'S1'
else
if (copy(nrp, 3, 2)='31') then keterangan:= 'D3';

{menentukan grade}
writeln;
jumlah:=((2*nilai3)+nilai1+nilai2)*0.25;
if jumlah>=80 then grade := 'A'
else
if jumlah>=70 then grade := 'B'
else
if jumlah>=60 then grade := 'C'
else
grade := 'D';
begin
if jumlah<=60 then ket:= 'TIDAK LULUS'
else
ket:= 'LULUS ';
end;

Writeln(' Data mahasiswa yang diinputkan ');
writeln;
writeln(' Nama : ',nama);
writeln(' NRP : ',nrp);
writeln(' Program Studi : ',keterangan);
writeln(' Alamat : ',alamat);
writeln(' Nilai Akhir : ',jumlah:2:2);
writeln(' Grade : ',grade);
writeln(' Keterangan : ',ket);
readln;
end;

'2': begin
writeln(' Anda mengakhiri program !');exit;
end;

else
begin
writeln(' Pilihan Anda Salah ');exit;
end;
end;
end;
begin
writeln(upcase('',''));
end.

screenshot output program

Semoga Bermanfaat.....

Program Bilangan Prima

Bilangan Prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.

program bilangan_prima;
uses wincrt;
var i,temp:longint;
s, x, a, n : longint;
jml:integer;
function fakt (t : longint) : longint;
begin
temp := 0;
for i := 1 to t do if t mod i = 0 then inc (temp);
fakt:= temp;
end;
begin
clrscr;
writeln ('Deret Bilangan Prima');
writeln ('-------------------------');
write ('Jumlah Bilangan Yang Ditampilkan Sebanyak : ');
repeat
readln(x);
until (x>=2);
writeln; writeln; writeln ('Deret Bilangan Prima : '); writeln ('');
a := 1; s := 0;
repeat
if fakt (a) = 2 then
begin
write (a,', ');
jml:=jml+a; inc (s);
end;
inc (a); until (s = x);
writeln; writeln('');
write('Jika dijumlahkan, hasilnya : ',jml);
end.

screenshot output program

Semoga Bermanfaat.....

Program menampilkan huruf Z sampai A

0 comments

program lat0301;

uses wincrt;

var i:char;

begin
for i:= 'Z' downto 'A' do
write(i,' ');

end.

screenshot output program

Semoga Bermanfaat.....

Program 1 sampai 100

0 comments

program lat0301;

uses wincrt;

var i:integer;

begin
for i:= 1 to 100 do

begin
write(i);
write(' ');
end;

end.

screenshot output program

Semoga Bermanfaat.....

Program menentukan terbesar dan terkecil

0 comments

Program Latihan0204;
uses wincrt;
var a,b,c,kcl,bsr:integer;

begin
write(' masukkan bilangan pertama : ');readln(a);
write(' masukkan bilangan kedua : ');readln(b);
write(' masukkan bilangan ketiga : ');readln(c);
kcl:=a;
bsr:=a;

if (bsr<b) and (b>c)then
bsr:=b
else if (bsr<c) and (c>b) then
bsr:=c ;

if (kcl>b) and (b<c) then
kcl:=b
else if (kcl>c) and (c<b) then
kcl:=c;

if (a=b) and (b=c) then
write('semua bilangan sama')
else
begin
writeln(' bilangan terbesar adalah ',bsr);
write(' bilangan terkecil adalah ',kcl);
end;
end.

screenshot output program

Semoga Bermanfaat.....

Program menentukan nilai genap atau ganjil

0 comments

Program latihan0203;
Uses wincrt;
Var
Bil: integer;
Jumlah : real;
Begin
Write('Masukkan Nilai Bilangan : '); readln(bil);
Jumlah:=bil mod 2;
if jumlah<>0 then
begin
Writeln('Bilangan ',bil,' adalah Bilangan GANJIL');
end
else
begin
Writeln('Bilangan ',bil,' adalah Bilangan GENAP');
end
end.