(C++, Pascal, Basic, Java, Python) Program Perhitungan Sederhana

Yak, back to programming~. Dan kali ini saya coba membuat program penghitungan sederhana dengan bahasa pemrograman yang berbeda-beda. Sebenernya buat review aja dari pelajaran di kampus, dan buat membunuh waktu lol (+- 6 jam). Bahasa yang digunakan? Bisa lihat di judul.

Karena program yang saya buat itu penghitungan sederhana, jadi yang saya buat cuma menghitung luas persegi, persegi panjang, dan segitiga. Kalo mau sih sebenernya bisa ditambahin lagi, tapi karena niatnya buat review aja, jadi ga usah banyak-banyak lol.

(Sumber : Murni buat sendiri ^^ )

 - C++

1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
#include <iostream>
#include <string>
using namespace std;

void hapus(){
    cin.clear();cin.sync();
}

void rumus_persegi(int sisi)
{
    int l;
    l = sisi * sisi;
    cout << "Luas persegi adalah : " << l << endl;
}

void rumus_perPanjang(int p, int lebar)
{
    int l;
    l = p * lebar;
    cout << "Luas persegi panjang adalah : " << l << endl;
}

void rumus_segitiga(float alas, float t)
{
    float l;
    l = alas * t / 2;
    cout << "Luas segitiga adalah : " << l << endl;
}

void hitung_persegi()
{
    int x, y;
    cout << endl << "Luas Persegi" << endl;
    cout << "Masukkan panjang sisi : ";
    cin >> x;
    rumus_persegi(x);
}

void hitung_perPanjang()
{
    int x, y;
    cout << endl << "Luas Persegi Panjang" << endl;
    cout << "Masukkan panjang : ";
    cin >> x;
    cout << "Masukkan lebar : ";
    cin >> y;
    rumus_perPanjang(x,y);
}

void hitung_segitiga()
{
    int x, y;
    cout << endl << "Luas Segitiga" << endl;
    cout << "Masukkan panjang alas : ";
    cin >> x;
    cout << "Masukkan tinggi : ";
    cin >> y;
    rumus_segitiga(x,y);
}

int main()
{
    start :
    string ulang;
    int pilih;

    cout << "-------------------" << endl;
    cout << "Program Perhitungan" << endl;
    cout << "-------------------" << endl << endl;
    cout << "Pilih rumus :" << endl;
    cout << "1. Luas persegi" << endl;
    cout << "2. Luas persegi panjang" << endl;
    cout << "3. Luas segitiga" << endl;
    cout << "4. Keluar" << endl << endl;
    cout << "Pilihan : "; cin >> pilih;

    switch(pilih)
    {
        case(1) :
            persegi :
            hitung_persegi();

            pilihan1 :
            cout << endl << "Ulang perhitungan? (y/n) : ";
            cin >> ulang;
            if(ulang == "y"){hapus(); goto persegi;}
            else if(ulang == "n"){hapus(); cout << " " << endl; goto start;}
            else {cout << "Itu apa?" << endl << endl; hapus(); goto pilihan1;}

        case(2) :
            perPanjang :
            hitung_perPanjang();

            pilihan2 :
            cout << endl << "Ulang perhitungan? (y/n) : ";
            cin >> ulang;
            if(ulang == "y"){hapus(); goto perPanjang;}
            else if(ulang == "n"){hapus(); cout << " " << endl; goto start;}
            else {cout << "Itu apa?" << endl << endl; hapus(); goto pilihan2;}
            break;

        case(3) :
            segitiga :
            hitung_segitiga();

            pilihan3 :
            cout << endl << "Ulang perhitungan? (y/n) : ";
            cin >> ulang;
            if(ulang == "y"){hapus(); goto segitiga;}
            else if(ulang == "n"){hapus(); cout << " " << endl; goto start;}
            else {cout << "Itu apa?" << endl << endl; hapus(); goto pilihan3;}
            break;
        case(4) :
            return 0;
    }

    if (pilih > 4)
    {
        cout << "Itu apa?" << endl << endl;
        goto start;
    }
}

- Java

1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
//package javaapplication1;

import java.util.Scanner;

public class java {

    public static void rumus_persegi(int v){
        int l = v * v;
        System.out.println("Luas persegi adalah : " + l);
    }

    public static void rumus_perPanjang(int v, int w){
        int l = v * w;
        System.out.println("Luas persegi panjang adalah : " + l);
    }

    public static void rumus_segitiga(int v, int w){
        int l = v * w / 2;
        System.out.println("Luas segitiga adalah : " + l);
    }

    public static void main(String[] args)
    {
        int a, b, l, pilih;
        int tes = 0;

        Scanner input = new Scanner(System.in);

        while(tes == 0){

            System.out.println("-------------------");
            System.out.println("Program Perhitungan");
            System.out.println("-------------------\n");
            System.out.println("Pilihan Rumus :");
            System.out.println("1. Luas Persegi");
            System.out.println("2. Luas Persegi Panjang");
            System.out.println("3. Luas Segitiga");
            System.out.println("4. Keluar\n");
            System.out.print("Pilihan : "); tes = input.nextInt();

            switch(tes){
                case (1):
                    while(tes == 1){
                        System.out.println("Luas Persegi");
                        System.out.print("Masukkan panjang sisi : "); a = input.nextInt();
                        rumus_persegi(a);
                        System.out.println("Ulang? (y/n) "); String ulang = input.next();

                        if(ulang.equals("y")){tes = 1;}
                        else if(ulang.equals("n")){tes = 0;}
                        else {System.out.println("Itu Apaan? Ulang ya~");tes = 1;}
                    }
                    break;
                    
                case (2):
                    while(tes == 2){
                        System.out.println("Luas Persegi Panjang");
                        System.out.print("Masukkan panjang : "); a = input.nextInt();
                        System.out.print("Masukkan lebar : "); b = input.nextInt();
                        rumus_perPanjang(a,b);
                        System.out.println("Ulang? (y/n) "); String ulang = input.next();

                        if(ulang.equals("y")){tes = 2;}
                        else if(ulang.equals("n")){tes = 0;}
                        else {System.out.println("Itu Apaan? Ulang ya~");tes = 2;}
                    }
                    break;

                case (3):
                    while(tes == 3){
                        System.out.println("Luas Segitiga");
                        System.out.print("Masukkan panjang alas : "); a = input.nextInt();
                        System.out.print("Masukkan tinggi : "); b = input.nextInt();
                        rumus_segitiga(a,b);
                        System.out.println("Ulang? (y/n) "); String ulang = input.next();

                        if(ulang.equals("y")){tes = 3;}
                        else if(ulang.equals("n")){tes = 0;}
                        else {System.out.println("Itu Apaan? Ulang ya~");tes = 3;}
                    }
                    break;

                case (4):
                    System.exit(0);
                    break;
            }
            
            if(tes > 4){
                System.out.println("Itu apaan? Pilih yang bener!");
                input.nextLine();
                tes = 0;
            }
        }
    }
}

- Pascal

1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
program perhitungan_luas;
uses crt;

label
        start,
        persegi,
        perPanjang,
        segitiga;

var
        a, b : integer;
        pilih : integer;
        ulang : char;

begin
        start:

        clrscr;
        writeln('-------------------');
        writeln('Program Perhitungan');
        writeln('-------------------');
        writeln();
        writeln('Pilihan Rumus :');
        writeln('1. Persegi');
        writeln('2. Persegi Panjang');
        writeln('3. Segitiga');
  writeln('4. Keluar');
        writeln();
        write('Pilihan : ');

        readln(pilih);
        writeln();

        if pilih = 1 then goto persegi
 else if pilih = 2 then goto perPanjang
        else if pilih = 3 then goto segitiga
 else if pilih = 4 then exit
  else
   begin
    writeln('Itu apaan? Pilih yang bener!');
                                readln();
                                goto start;
   end;

persegi :
begin
        clrscr;
        write('Masukkan panjang sisi : ');
        readln(a);
        writeln('Luas persegi adalah : ', a*a);
        write('Mau ulang? (y/n) ');
        readln(ulang);

        if ulang = 'y' then goto persegi
        else if ulang = 'n' then goto start
        else
                begin
                        writeln('Itu apa? Ulang ya~');
                        readln();
          goto persegi;
                end;
end;

perPanjang:
begin
        clrscr;
        write('Masukkan panjang : ');
        readln(a);
        write('Masukkan lebar : ');
        readln(b);
        writeln('Luas persegi panjang adalah : ', a*b);
        write('Mau ulang? (y/n) ');
        readln(ulang);

        if ulang = 'y' then goto perPanjang
        else if ulang = 'n' then goto start
        else
                begin
                        writeln('Itu apa? Ulang ya~');
                        readln();
                 goto perPanjang;
                end;


end;

segitiga:
begin
        clrscr;
        write('Masukkan panjang alas : ');
        readln(a);
        write('Masukkan lebar alas : ');
        readln(b);
        writeln('Luas segitiga adalah : ', a*b/2);
        write('Mau ulang? (y/n) ');
        readln(ulang);

        if ulang = 'y' then goto segitiga
        else if ulang = 'n' then goto start
        else
                begin
                        writeln('Itu apa? Ulang ya~');
                        readln();
   goto segitiga;
                end;
end;

end.

- Basic


1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
LET a = 0
LET b = 0
LET y = 11
LET n = 22

0 CLS
PRINT "---------------------"
PRINT "PROGRAM PERHITUNGAN"
PRINT "---------------------"
PRINT ""
PRINT "Pilih Rumus :"
PRINT "1. Luas Persegi"
PRINT "2. Luas Persegi Panjang"
PRINT "3. Luas Segitiga"
PRINT "4. Keluar"
PRINT ""
INPUT "Pilihan : "; pilih
IF pilih = 1 THEN
        GOTO 100
ELSEIF pilih = 2 THEN
        GOTO 200
ELSEIF pilih = 3 THEN
        GOTO 300
ELSEIF pilih = 4 THEN
        END
ELSE
        INPUT "Itu apaan? Pilih yang bener!"; null
        GOTO 0
END IF


100
CLS
PRINT "Luas persegi"
INPUT "Masukkan panjang sisi : "; a
l = a * a
PRINT "Luas persegi panjang adalah : "; l
PRINT ""
INPUT "Ulang? (y/n)"; ulang$
IF ulang$ = "y" THEN
        GOTO 100
ELSEIF ulang$ = "n" THEN
        GOTO 0
ELSE
        INPUT "Apaan itu? ulang ya~"; null
        GOTO 100
END IF

200
CLS
PRINT "Luas persegi panjang"
INPUT "Masukkan panjang : "; a
INPUT "Masukkan lebar : "; b
l = a * b
PRINT "Luas persegi adalah : "; l
PRINT ""
INPUT "Ulang? (y/n)"; ulang$
IF ulang$ = "y" THEN
        GOTO 200
ELSEIF ulang$ = "n" THEN
        GOTO 0
ELSE
        INPUT "Apaan itu? ulang ya~"; null
        GOTO 200
END IF

300
CLS
PRINT "Luas segitiga"
INPUT "Masukkan panjang alas : "; a
INPUT "Masukkan tinggi : "; b
l = a * b / 2
PRINT "Luas segitiga adalah : "; l
PRINT ""
INPUT "Ulang? (y/n)"; ulang$
IF ulang$ = "y" THEN
        GOTO 300
ELSEIF ulang$ = "n" THEN
        GOTO 0
ELSE
        INPUT "Apaan itu? ulang ya~"; null
        GOTO 300
END IF

- Python


1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
def goto(linenum):
 global line
 line = linenum
 
line = 0
while True:
 if line == 0:
  print("---------------")
  print("Tes Perhitungan")
  print("---------------")
  print("")
  print("Pilihan :")
  print("1. Luas Persegi")
  print("2. Luas Persegi Panjang")
  print("3. Luas Segitiga")
  print("4. Keluar")
  print("")
  pilih = input("Apa yang ingin anda hitung? ")
  print("")
  
  if pilih == "1":
   goto(1)
  elif pilih == "2":
   goto(2)
  elif pilih == "3":
   goto(3)
  elif pilih == "4":
   goto(4)
  else:
   goto(5)
   
 elif line == 1:
  print("Luas Persegi")
  a = input("Masukkan panjang sisi : ")
  l = int(a)* int(a)
  print("Luas persegi adalah : ", l)
  print("")
   
  ulang = input("Ulang perhitungan? (y/n) ")
   
  if ulang == "y" :
   goto(1)
   print("")
  elif ulang == "n" :
   goto(0)
   print("")
  else :
   print("Itu apaan? Ulang ya~")
   print("")
   goto(1)
   
 elif line == 2:
  print("Luas persegi panjang")
  a = input("Masukkan panjang : ")
  b = input("Masukkan lebar : ")
  l = int(a) * int(b)
  print("Luas persegi panjang adalah : ", l)
  print("")
  
  ulang = input("Ulang perhitungan? (y/n) ")
  
  if ulang == "y" :
   goto(2)
   print("")
  elif ulang == "n" :
   goto(0)
   print("")
  else :
   print("Itu apaan? Ulang ya~")
   print("")
   goto(2)
 
 elif line == 3:
  print("Luas segitiga")
  a = input("Masukkan panjang alas : ")
  b = input("Masukkan tinggi : ")
  l = int(a) * int(b) / 2
  print("Luas segitiga adalah : ", l)
  print("")
  
  ulang = input("Ulang perhitungan? (y/n) ")
  
  if ulang == "y" :
   goto(3)
   print("")
  elif ulang == "n" :
   goto(0)
   print("")
  else :
   print("Itu apaan? Ulang ya~")
   print("")
   goto(3)
   
 elif line == 4 :
  exit(0)
   
 elif line == 5 :
  print("Itu apa?")
  print("")
  goto(0)

SHARE ON:



Legaiabay is a random people who loves playing video games so much and (maybe) an hardcore console gamer. Just writing what I like in good mood, except college work lol. Enjoy, nothing here will interest you :D

    Blogger Comment

0 komentar:

Post a Comment