contoh kode visual basic

Posted by life Must go On on Friday, March 21, 2014

Solusi Latihan Soal 1-3
N0. 1
Uses Wincrt;
Var
i,j,n:integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
…………………………………….
Begin
Gotoxy(40-3*i,1+i);
For j:= 1 to i do
write(i:6);
End;
End.
N0. 2
Program contoh_array;
uses wincrt;
var
x:array[1..10] of integer;
i,jum,n : integer;
begin
clrscr;
jum:=0;
write('Masukkan data =');readln(n);
for i:= 1 to n do
begin
write('Data ke-',i ,'=');readln(x[i]);
………………….
end;
writeln('Jumlah = ',jum);
end.

N0. 3

uses wincrt;
var  i, jum,bil: integer;
begin
     jum:= 0; {inisialisasi}
     for i:= 1 to 5 do
begin
     write('Masukkan Bilangan = ');readln(bil);
     jum:= jum+bil;
end;
    …………………………………………
end.








TUGAS LATIHAN LANJUTAN
Sempurnakan program dibawah ini :

N0. 4

Uses Wincrt;
Begin
Write(' Jumlah Perkalian: ');Readln(n);
Write('*':5);
For i:= 1 to n do
Writeln;
For i:= 1 to n do
Begin
Write(i:5);
Writeln;
End;
End.

N0. 5

uses wincrt;
var
fn,fk,fn_k,Kombinasi:real;
begin
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fn_k:=1;
for i:= 2 to n do{Menghitung n faktorial}
for i := 2 to k do{Menghitung k faktorial}
fk:=fk*i;
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
end.

N0. 6
uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
write('Masukkan cacah bilangan =');readln(n);
{terbesar:=dafbil[1];
terkecil:=dafbil[1];--> akan menyebabkan yang terkecil selalu
0(nol) apabila nilai semua bilangan lebih besar dari 0(nol)}
for i:= 1 to n do
begin
write('Bilangan ke ',i,' = ');readln(dafbil[i]);
end;
terbesar:=dafbil[1];
terkecil:=dafbil[1];
for i:= 2 to n do
if dafbil[i] > terbesar then
terbesar:=dafbil[i]
else
end
N0. 7

uses wincrt;
const sks:array[1..8] of integer=(2,2,2,2,2,2,1,1);
type
siswa=record
nim:string[5];
nama:string[15];
Nihur:array[1..8] of char;
end;
begin
case upcase(huruf) of
'E':bobot:=0;
'D':bobot:=1;
'C':bobot:=2;
'B':bobot:=3;
'A':bobot:=4;
end;
procedure masuk(var kul:kuliah);
ip:real;
begin
jumsks:=0;
gotoxy(20,1);writeln('PENGOLAHAN NILAI PRA ILKOM 2003');
for i:=1 to 8 do
jumsks:=jumsks+sks[i];
ip:=jumus/jumsks;
gotoxy(28+j*5,3+i);writeln(ip:0:2);
if ip>2.75 then begin
gotoxy(34+j*5,3+i);writeln('Lolos');
end
else begin
gotoxy(34+j*5,3+i);writeln('Gagal');
end;
end;
end;
begin
masuk(kul);
end.



















Keterangan Soal:
1. 7 soal itu belum lengkap, jadi tugasnya kita harus lengkapi soalnya.
2. dan jangan lupa di tes di program pascal dulu, dan jangan lupa di RUN (untuk mengetesnya)

3. Tulus jawabannya di kertas double folia
Categories: ,