Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi.

program Operasi;
uses wincrt;
var
a,b:longint;
c,d,e,f,g,h:real;
begin
writeln ('Masukkan bilangan pertama');readln (a);
writeln ('Masukkan bilangan kedua ');readln (b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
write ('jumlah=',(c):5:2,(d):5:2,(e):5:2,(f):5:2,(g):5:2,(h):5:2);
end.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang procedure.

Program Operasi_Tambah_Kurang_Kali_Procedure;
Uses Wincrt;
Procedure Penjumlahan(Var a,b:longint);
Var
c:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Penjumlahan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
c:=a+b;
Gotoxy (20,7); Writeln ('Hasil Penjumlahan adalah ',c);
End;

Procedure Pengurangan(Var a,b:longint);
Var
d:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Pengurangan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
d:=a-b;
Gotoxy (20,7); Writeln ('Hasil Pengurangan adalah ',d);
End;

Procedure Perkalian(Var a,b:longint);
Var
e:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Perkalian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
e:=a*b;
Gotoxy (20,7); Writeln ('Hasil Perkalian adalah ',e);
End;

Var
a,b,c,d,e,i:longint;
f,y,n:string;
Begin
f:='y';
While f='y' do
Begin
Gotoxy (25,3); Writeln ('Menu Opersai Dua Bilangan');
Gotoxy (25,5); Writeln ('1. Penjumlahan');
Gotoxy (25,6); Writeln ('2. Pengurangan');
Gotoxy (25,7); Writeln ('3. Perkalian');
Gotoxy (25,9); Write ('Masukkan Pilihan Anda= '); readln (i);
Clrscr;
Gotoxy (20,3); If i=1 then
Begin
Penjumlahan(a,b);
End
else If i=2 then
Begin
Pengurangan(a,b);
End
else If i=3 then
Begin
Perkalian(a,b);
End
else Writeln ('Pilihan Anda Salah');
Gotoxy (20,9); Write ('Apakah anda ingin mengulang(y/n)?');read (f);
Clrscr;
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi tambah kurang kali bagi div mod.

Program Operasi_Tambah_Kurang_Kali_Bagi_Div_Mod;
Uses Wincrt;
Var
a,b:longint;
c,d,e,f,g,h:real;
Begin
Write ('Masukkan bilangan pertama=');readln (a);
Write ('Masukkan bilangan kedua=');readln (b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
Writeln ('Hasil Penjumlahan adalah ',(c):5:0);
Writeln ('Hasil Pengurangan adalah ',(d):5:0);
Writeln ('Hasil Perkalian adalah ',(e):5:0);
Writeln ('Hasil Pembagian adalah ',(f):5:2);
Writeln ('Hasil Pembaian Bulat adalah ',(g):5:0);
Writeln ('Sisa Hasil Pembagian adalah ',(h):5:0);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang operasi tambah kurang kali bagi div mod.

Program Operasi_Tambah_Kurang_Kali_Bagi_Div_Mod;
Uses Wincrt;
Var
a,b,i:longint;
c,d,e,f,g,h:real;
Begin
Gotoxy (25,3); Writeln ('Menu Opersai Dua Bilangan');
Gotoxy (25,5); Writeln ('1. Penjumlahan');
Gotoxy (25,6); Writeln ('2. Pengurangan');
Gotoxy (25,7); Writeln ('3. Perkalian');
Gotoxy (25,8); Writeln ('4. Pembagian');
Gotoxy (25,9); Writeln ('5. Pembagian Bulat');
Gotoxy (25,10); Writeln ('6. Sisa Hasil Pembagian');
Gotoxy (25,12); Write ('Masukkan Pilihan Anda= '); readln (i);
Clrscr;
Gotoxy (20,3); If i=1 then
Begin
Writeln ('Operasi yang anda pilih adalah Penjumlahan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
c:=a+b;
Gotoxy (20,7); Writeln ('Hasil Penjumlahan adalah ',(c):5:0);
End
else If i=2 then
Begin
Writeln ('Operasi yang anda pilih adalah Pengurangan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
d:=a-b;
Gotoxy (20,7); Writeln ('Hasil Pengurangan adalah ',(d):5:0);
End
else If i=3 then
Begin
Writeln ('Operasi yang anda pilih adalah Perkalian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
e:=a*b;
Gotoxy (20,7); Writeln ('Hasil Perkalian adalah ',(e):5:0);
End
else If i=4 then
Begin
Writeln ('Operasi yang anda pilih adalah Pembagian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
f:=a/b;
Gotoxy (20,7); Writeln ('Hasil Pembagian adalah ',(f):5:0);
End
else If i=5 then
Begin
Writeln ('Operasi yang anda pilih adalah Pembagian Bulat');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
g:=a div b;
Gotoxy (20,7); Writeln ('Hasil Pembagian Bulat adalah ',(g):5:0);
End
else If i=6 then
Begin
Writeln ('Operasi yang anda pilih adalah Sisa Hasil Pembagian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
h:=a mod b;
Gotoxy (20,7); Writeln ('Sisa Hasil Pembagian adalah ',(h):5:0);
End
else Writeln ('Pilihan Anda Salah');
End.

Posted in: operasi bilangan,pascal