TUGAS KELAS G BAGIAN II

MENGGUNAKAN WHILE...DO
program angka;
uses wincrt;
var
i:integer;
begin
i:=10;
while i>2 do begin
i:=i-2;
writeln(i);
end;

hasil running program :

MENGGUNAKAN PROCEDURE DAN FUNCTION
Program fungsi1;
Uses winCrt;
var x, y, z: Real;                                                  {Variabel global}
FUNCTION kali (A,B : Integer) integer;            {mulai fungsi kali}
Var Hasil : integer;                                      {Variabel lokal}
Begin
   Hasil := A * B;
   kali := Hasil;
END;                                      { akhir fungsi kali}
Begin                                      {Program utama}                               
   ClrScr;
   x:= 2;
   y:= 5;
   z := x + y;
  Writeln (z);
  Writeln (kali(2, 5));
  Readln;
End.

hasil running program function

program hitung2;

uses wincrt;

function jumlah(var1,var2:integer):integer;
begin
jumlah:=var1+var2;
end;
function kurang(var1,var2:integer):integer;
begin
kurang:=var1-var2;
end;
function kali(var1,var2:integer):integer;
begin
kali:=var1*var2;
end;
function bagi(var1,var2:integer):real;
begin
bagi:=var1/var2;
end;
procedure kalix(var1,var2:integer;var hasil:integer);
begin
hasil:=var1*var2;
end;


var
hasil,x,var1,var2:integer;
hasilx :real;
begin

write('Masukkan variabel 1 : ');readln(var1);
write('Masukkan variabel 2 : ');readln(var2);
writeln;
writeln('MENU');
writeln('1. Jumlah ');
writeln('2. Kurang ');
writeln('3. Kali ');
writeln('4. Bagi ');
writeln('5. Kali pakai procedure ');
write('Masukkan pilihan anda : ');
readln(x);
if (x=1)then
begin
writeln;
hasil:=jumlah(var1,var2);
writeln('hasil penjumlahan adalah ',hasil);
readln;
end;
if (x=2)then
begin
writeln;
hasil:=kurang(var1,var2);
writeln('hasil pengurangan adalah ',hasil);
readln;
end;
if (x=3)then
begin
writeln;
hasil:=kali(var1,var2);
writeln('hasil perkalian adalah ',hasil);
readln;
end;
if (x=4)then
begin
writeln;
hasilx:=bagi(var1,var2);
writeln('hasil pembagian adalah ',hasilx:6:2);
readln;
end;
if (x=5)then
begin
writeln;
kalix(var1,var2,hasil);
writeln('hasil perkalian adalah ',hasil);
readln;
end;

end.

hasil running :

 sementara ini dulu entar kalau ada lagi ya tak tulis lagi.... tapi kalau misalnya ada yang ingin menambahi sangat di persilahkan.....

Read More

TUGAS KELAS G

buat teman-teman kelas G yang kesulitan untuk membuat tugas dari pak sabilal silahkan ambil saja contoh program di bawah ini:

contoh program perulangan FOR
program perulanganFOR;
Uses Crt;
Var
a,b,c : Integer;
bagi : Real;
Begin
Writeln('----------------------------------------------');
Writeln(' a a*a a*a*a 1/a ');
Writeln('----------------------------------------------');
For a := 1 To 10 Do
Begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:4,c:10,b:10,bagi:12:3);
End;
Writeln ('----------------------------------------------');
End.

hasil runningannya

 Penggunaan struktur case of
program bangun_dan_ruang;
uses wincrt;
var
Pilihan:byte;
R,L,T,Luas:real;
Begin
R:=0;
L:=0;
T:=0;
ClrScr;
GotoXY(10,2);Writeln('--–> PILIHAN < --');
GotoXY(10,4);Writeln('1.Menghitung Luas Lingkaran');
GotoXY(10,6);Writeln('2.Menghitung Luas Segitiga');
GotoXY(10,8);Writeln('3.Menghitung Luas Bujur Sangkar');
GotoXY(10,20);Write('Pilih Nomer(1-3)?');Read(pilihan);
ClrScr;
case Pilihan of
1:Begin
Write ('Jari-jari lingkaran?');Readln(R);
Luas:=Pi*R*R;
Writeln('Luas Lingkaran=',Luas:9:2);
End;
2:Begin
Write('Panjang sisi alas?');Readln(L);
Write('Tinggi Segitiga?');Readln(T);
Luas:=0.5*L*T;
Writeln;
Writeln('Luas segitiga=',Luas:9:2);
End;
3:Begin
write('Panjang bujur sangkar?');Readln(T);
Write('Lebar bujur sangkar?');Readln(L);
Luas:=T*L;
Writeln;
Writeln('Luas bujur sangkar=',Luas:9:2);
End;
Else
Begin
Writeln('Pilihannya hanya 1,2,atau3');
Writeln('Anda tadi pilih nomer berapa?......Sembarangan aja milih!!!!!!!');
End;
End;
End.

hasil runningannya

menggunakan struktur repeat ...until
program membuat_login;
uses wincrt;

var
username,  password  : string ;
begin
  repeat
    write('username : ');readln(username);
    write('password : ');readln(password);
    writeln('');
  until (username = 'user')and (password ='pass');
  writeln(username, ' , selamat datang');
end.

hasil runningannya :

Read More