Program C++

Berikut adalah program menggunakan berbagai operator relasi dengan mengunakan c++ : 

#include <iostream>

#include <conio.h>

using namespace std;

int main ()

{

    float a,b,c,d,e,f,g,h;

    cout<<"-----------------------------------"<<endl;

    cout<<"Program menggunakan operator relasi"<<endl;

    cout<<"         < <= > >= == !=           "<<endl;

    cout<<"-----------------------------------"<<endl;

   

    cout<<"Masukkan nilai a = ";

    cin>>a;

    cout<<"Masukkan nilai b = ";

    cin>>b;

   

    c=a<b;

    d=a<=b;

    e=a>b;

    f=a>=b;

    g=a==b;

    h=a!=b;

   

    cout<<endl;

    cout<<"Hasil dari a<b  = "<<c<<endl;

    cout<<"Hasil dari a<=b = "<<d<<endl;

    cout<<"Hasil dari a>b  = "<<e<<endl;

    cout<<"Hasil dari a>=b = "<<f<<endl;

    cout<<"Hasil dari a==b = "<<g<<endl;

    cout<<"Hasil dari a!=b = "<<h<<endl;

    getch();

}

Output dari program di atas:

Program Pascal

Berikut ini adalah kumpulan program yang pernah saya buat saat semester satu,

silahkan :

1.   Menentukan bilangan yang diinputkan adalah bilangan positif, negatif, atau nol.

program Menentukan_Jenis_Bilangan;

uses crt;

var

x : integer;

begin

write ('Masukkan nilai = ');

readln (x);

if x > 0 then

writeln ('bilangan positif')

else

if x < 0 then

writeln ('bilangan negatif')

else

writeln ('bilangan nol');

readln;

end.

Output program :

Masukkan nilai = 2

bilangan positif

Masukkan nilai = 0

bilangan nol

Masukkan nilai = -5

bilangan negatif

2.   Menentukan nilai terbesar dari A,B, dan C.

program Menentukan_Bilangan_Terbesar;

uses crt;

var

   A,B,C : integer;

begin

write (‘Masukkan nilai A = ‘);

readln (A);

write (‘Masukkan nilai B = ‘);

readln (B);

write (‘Masukkan nilai C = ‘);

readln (C);

 if (A > B) and (A > C) then

writeln (‘Nilai terbesar = ‘, A)

else

     if (B > A) and (B > C) then

          writeln (‘Nilai terbesar = ‘, B)

     else

          writeln (‘Nilai terbesar = ‘, C);

     readln;

end.

Output program :

Masukkan nilai A = 2

Masukkan nilai B = 3

Masukkan nilai C = 4

Nilai terbesar = 4

3.   Menentukan tahun kabisat.

program Menentukan_Tahun_Kabisat;

uses crt;

var

   tahun : integer;

begin

     write ('Masukkan tahun = ');

     readln (tahun);

     if (tahun mod 400 = 0) and (tahun mod 100 <> 0) or

     (tahun mod 4 = 0) then

        writeln ('Tahun Kabisat')

     else

        writeln ('Bukan Tahun Kabisat');

     readln;

end.

Output program :

Masukkan tahun = 2000

Tahun kabisat

Masukkan tahun = 2001

Bukan Tahun Kabisat

4.   Menentukan pilihan yang terdapat pada program.

Program Pilihan_luas;

uses crt;

var

  p,l,t,a,r,luas : real;

  pilihan,jawab  : char;

begin

  repeat

  clrscr;

  writeln('PROGRAM MENENTUKAN LUAS');

  writeln;

  writeln('      PILIHAN     ');

  writeln('1. LUAS SEGITIGA  ');

  writeln('2. LUAS PERSEGI PANJANG ');

  writeln('3. LUAS LINGKARAN ');

  writeln;

  writeln('Masukkan pilihan anda (1-3)');

  readln(pilihan);

  writeln;

  case pilihan of

    '1' : begin

            writeln('Menghitung Luas Segitiga : ');

            write('Panjang alas = ');readln(a);

            write('tinggi       = ');readln(t);

            luas := 0.5*a*t ;

            writeln('Luas         = ',luas :0:2);

          end;

    '2' : begin

            writeln('Menghitung Luas Persegi Panjang : ');

            write('panjang = ');readln(p);

            write('lebar   = ');readln(l);

            luas := p*l ;

            writeln('Luas    = ',luas :0:2);

          end;

    '3' : begin

            writeln('Menghitung Luas Lingkaran : ');

            write('Jari-jari = ');readln(r);

            luas := pi*r*r ;

            writeln('Luas = ', luas :0:2);

          end;

    else

         begin

           writeln('Pilihan yang tersedia hanya 1-3.');

         end;

    end;

  writeln('Ingin mencoba lagi ?(y/t)');

  readln(jawab);

  until (jawab = 'T') or (jawab = 't');

readln;

end.

Output program :

PROGRAM MENENTUKAN LUAS

PILIHAN

1.  LUAS SEGITIGA

2.  LUAS PERSEGI PANJANG

3.  LUAS LINGKARAN

Masukkan pilihan anda (1-3)

2

Menghitung Luas Persegi Panjang :

panjang  = 2

lebar = 3

Luas = 6.00

Ingin mencoba lagi ?(y/t)

t