CONTOH PROGRAM TURBO C:

#include

#include

void main()

{

/*definisikan variable */

float time1, time2, totalTime, payperhour, totalpaid, paid, cashback;

char cosName[100];

clrscr();

printf("Aplikasi Billing \n");

printf("----------------\n\n");

/*input nama costumer, Jam mulai, jam akhir*/

printf("Nama : ");gets(cosName);

printf("Jam Mulai : ");scanf("%f", &time1);

printf("Jam Berakhir : ");scanf("%f", &time2);

/*nilai vaiabel bayar per jam*/

payperhour=5000;

/*total waktu = waktu1 - waktu2*/

totalTime=time2-time1;

/*total bayar = total waktu x bayar per jam*/

totalpaid=totalTime*payperhour;

/*tampilkan total bayar dan total waktu*/

gotoxy(10, 9); printf("+-------------------------------------+\n");

gotoxy(10, 10); printf("|");

gotoxy(12, 10); printf("Total Bayar :");

gotoxy(26, 10); printf("Rp. %6.2f", totalpaid);

gotoxy(48, 10); printf("|");

gotoxy(10, 11); printf("|");

gotoxy(12, 11); printf("Total Waktu :");

gotoxy(26, 11); printf("%6.0f Jam", totalTime);

gotoxy(48, 11); printf("|");

gotoxy(10, 12); printf("+-------------------------------------+\n");

/*ambil variable bayar*/

printf(" Bayar : Rp. ");scanf("%f", &paid);

/*uang kembali = bayar - total bayar*/

cashback=paid-totalpaid;

/*tampilkan Hasil Kembalian*/

gotoxy(10, 14);printf("+-------------------------------------+");

gotoxy(10, 15); printf("|");

gotoxy(12, 15); printf("Kembalian : Rp. %6.2f", cashback);

gotoxy(48, 15); printf("|");

gotoxy(10, 16); printf("+-------------------------------------+\n");

printf("Tekan Enter Untuk Print Hasil!");

getch();

/*bersihkan layar dan print hasil transaksi*/

clrscr();

gotoxy(10, 1); printf("+------------------------------------------+");

gotoxy(10, 2); printf("| Print Hasil Transaksi");

gotoxy(53, 2); printf("|");

gotoxy(10, 3); printf("+------------------------------------------+");

gotoxy(10, 4); printf("| Nama Costumer : %s", cosName);

gotoxy(53, 4); printf("|");

gotoxy(10, 5); printf("| Total Waktu : %6.0f Jam", totalTime);

gotoxy(53, 5); printf("|");

gotoxy(10, 6); printf("| Harga Perjam : Rp. %6.2f", payperhour);

gotoxy(53, 6); printf("|");

gotoxy(10, 7); printf("| Total Bayar : Rp. %6.2f", totalpaid);

gotoxy(53, 7); printf("|");

gotoxy(10, 8); printf("| Bayar : Rp. %6.2f", paid);

gotoxy(53, 8); printf("|");

gotoxy(10, 9); printf("| Kembali : Rp. %6.2f", cashback);

gotoxy(53, 9); printf("|");

gotoxy(10, 10); printf("+------------------------------------------+\n");

getch();

}

Label: TURBO C

Pemograman pascal

Sejarah Pascal :
- berakar dari bahasa Algo1 dan PL/1 pada tahun 60-an di benua Eropa
- Pascal disusun oleh Prof Niklaus Wirth pada tahun 70dan dipublikasikan tahun 71
- di uji coba pada computer CDC 6000
- turbo pascal bersifat compiler dan termasuk bahasa tingkat tinggi

contoh program pascal :

uses crt;
var
a,b,c:integer
begin
clrscr;
write (' Masukan Bilangan A :');readln(a);
write (' Masukan Bilangan B :');readln(b);
for c:=a to b do
begin
if c mod 2=0 then
write (' Bilangan Genap :',c)
else
write (' Bilangan Ganjil :',c);readln;
end;
end.

PEMOGRAMAN BAHASA C

Bahasa C merupakan salah satu bahasa pemograman yang sangat populer dimata para pakar dunia komputer dikalangan pendidikan, karena bahasa C dianggap sebagai bahasa yang memiliki banyak keunggulan di banding bahasa yang lain. dilihat dari sisi sintaknya bahasa C sangat mudah dipelajari baik dari kalangan pelajar/mahasiswa dan dari segi kecepatan bahasa C sangat tanggguh karena bisa berjalan secepat bahasa tingkat rendah. karena keunggulannya tersebut bahasa C dipakai sebagai mata kuliah wajib hampir di seluruh perguruan tinggi di dunia. di dalam buku ini penulis mencoba menjelaskan dasar-dasar dari bahasa C mulai dari program yang paling sederhana sampai program yang kompleks. penulis berusaha menyajikan semua contoh yang ada di dalam buku ini dengan jelas dan sesuai dengan algoritma pemograman terstruktur.