Tutorial Dan Download Aplikasi

Berikut code dari Turbo Pascal namun apabila ada yg salah dari syntak ini maka itu bukanya ada kesalahan tetapi itu saya sengaja agar kalian bisa belajar dan mengetahui sendiri kesalahnnya berada dimana jangan pantang menyerah ea.

Program data mahasiswa dengan turbo pascal

program data_mahasiswa;
uses wincrt;
var
nt,uts,uas,rt:integer;
nim,nama,grade,ket:string[25];
nilai:integer;
tr:longint;
pilih:char;
 i:byte;

 begin
pilh:= 'y';
while pilh = 'y' do

begin
writeln;
  write('Memasukkan Data Mahasiswa 2.Keluar ');
  writeln;
  write('pilihan anda : ');
  readln(pilih);
  case pilih of

'1': begin
clrscr;
gotoxy (21,4); writeln(' Program Data Mahasiswa ');
gotoxy (20,5); writeln('=========================');
writeln;
write('Masukan Nama Mahasiswa: ');readln(nama);
for i:=1 to length(nama) do
       begin
        nama[i]:=upcase(nama[i]);
       end;   

write('Masukan NIM         : ');readln(nim);
write('Masukan Nilai Tugas : ');readln(nt);
write('Masukan Nilai UTS   : ');readln(uts);
write('Masukan Nilai UAS   : ');readln(uas);
rt:=(2*nt+uts+uas)div 4;
tr:=round(rt);
case ttt of

50..59:
begin
grade:='D';
end;
60..69:
begin
grade:='C';
end;
70..84:
begin
grade:='B';
end;
85..100:
begin
grade:='A';
end;
end;

case ttt of

0..60 : Ket :='Tidak Lulus';

61..100 : Ket := 'Lulus';


end;

clrscr;
gotoxy (21,4);writeln('program nilai mahasiswa');
gotoxy (20,5);writeln('=======================');
writeln;
writeln('Nama Mahasiswa  : ',nama);
writeln('NIM Mahasiswa   : ',nim);
writeln('Nilai Akhir     : ',rt);
writeln('Grade           : ',grade);
writeln('Pernyataan      : ' ,ket);
readln;
write('Ingin melakukan lagi (y)? ');Readln(pilih);
 end;

'2':begin

writeln;
writeln;
gotoxy (15,7);writeln(' TERIMA KASIH ANDA KELUAR DALAM PROGRAM INI  ');
gotoxy (16,9);writeln('Program By Azizah_vinzara');
gotoxy (14,8);write('=================================================');
writeln;
writeln;
writeln;
write('Ingin melakukan lagi (y/t)? ');Readln(pilih);
 end;
 end;
 end;
  end.

berikut hasilnya:

• Bahasa Pascal tidak bersifat case sensitive.
• Secara historis, komentar dalam bahasa pascal diidentifikasikan sebagai { seperti ini }, atau (* seperti ini *), dan bisa terdiri atas beberapa baris. Versi lanjutan Borland Pascal juga mendukung model komentar seperti yang terdapat pada C++. // seperti ini , yang berlaku pada satu baris.
• Sintaksis case yang lebih fleksibel daripada Pascal standar.
• Himpunan hanya bisa memiliki hingga 2⁸ (256) anggota.
• Standar, string dengan panjang yang tetap didukung, namun terdapat pula tipe data String yang lebih fleksibel.

CONTOH MENGGUNAKAN TURBO PASCAL.

Menghitung Luas dan keliling lingkaran
Program Luas_dan_Keliling_Lingkaran;
uses wincrt;
const pi = 3.14;
var
r,K,L : real;
begin
clrscr;
writeln(‘=============================’);
writeln(‘Menghitung Luas dan Keliling’);
writeln(‘—————————-’);
write(‘Jari – jari = ‘); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln(‘Keliling Lingkaran = ‘,K:5:2);
writeln(‘Luas Lingkaran = ‘,L:5:2);
writeln(‘=============================’);
readln;
end.

Menghitung nilai Sin dengan sudut radian
program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;
begin
clrscr;
writeln(‘ Menentukan nilai sin(x)’);
write(‘Nilai x = ‘); readln(x);
write(‘Masukkan pangkat = ‘); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
begin
p1 := exp(i*ln(rad));
faktor := 1;
for j := 1 to i do
faktor := faktor *j;
p2 := faktor;
tot := tot + (tanda*p1/p2);
tanda := (-1)*tanda;
i := i+2;
end;
writeln(‘Sin(‘,x:5:2,’) = ‘,tot:5:2);
readln;
end.

Tipe Data dalam PASCAL

Dalam bahasa PASCAL dikenal dua jenis tipe data utama yaitu ordinal type dan real type. Ordinal type adalah tipe data yang digunakan untuk mereprentasikan bilangan dengan urutan pasti dan Real type adalah tipe data untuk mereprentasikan bilangan pecahan. Berikut adalah penjelasan dari kedua jenis tipe data tersebut :

1.Ordinal Type
Seperti yang telah dijelaskan diatas bahwa tipe data Ordinal adalah type data yang digunakan untuk mereprentasikan bilangan yang mempunyai urutan pasti. Type data ini masih dibagi lagi dalam beberapa jenis yaitu :

a.Integer
Type data integer adalah type data yang digunakan untuk pengolahan data bilangan bulat. Type data ini masih dibagi lagi sesuai dengan jangkauan bilangannya. Berikut table pembagian tipe integer

b.Char
Type variabel yang berguna untuk pengolahan character ASCII, type character ini penulisannya ditandai dengan dua buah petik tunggal seperti : 'A', '3','*',#7 untuk menyatakan ' harus ditulis ''''

c.Boolean
Type varibale yang berguna untuk pengolahan hal yang hanya mempunyai dua ketentuan yaitu benar(TRUE) dan salah(FALSE) saja

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, danMS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS

2. Sejarah Turbo Pascal

Pascal adalah bahasa tingkat tinggi yang orientasinya pada segala tujuan, dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama Pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan filosofi terkenal abad 17 dari Prancis.

Profesor Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan pada tahun 1971 dengan tujuan untuk membantu mengajar program komputer secara sistematis, khususnya pemrograman terstruktur. Pada perkembangannya banyak versi-versi pascal yang beredar, antara lain: MS-Pascal, Apple Pascal, Turbo Pascal, dll. Pascal merupakan salah satu bahasa pemrograman tingkat tinggi yang berbasis text (bukan visual). Dari sekian banyak varian Pascal, Turbo Pascal (Borland) adalah yang paling terkenal. Seperti halnya Basic dengan Visual Basic-nya, Pascal pun memiliki tingkatan lebih tinggi yaitu Delphi / Kylix.

Prof. Niklaus Wirth, si pembuat Pascal


Sumber: http://id.wikipedia.org/ , http://id.wikipedia.org/wiki/Turbo_Pascal