SYNTAK PROGRAM DARI TURBO PASCAL

malem gan.. nie anne buat program bersama 3 temen anne :D
cobain dh gan.. kritik dan saran nya anne tunggu.. nie prigram di turbo pascal..eittz... tpi comment & like dlu ni program.a :) nie hasil buatan 2 lho gan,, biasalah tugas dari dosen awalnya :) okeh dh d tunggu ya kritik dan saran yg membangun.a..

program wedding ;
uses wincrt;
var a: integer;
    b,y,ket,h,i,k : string;
    c,d,e,f,tot,z,p : longint;
procedure mewah;
begin
writeln('                               Paket Wedding Magazine');
writeln('                               harga     : Rp.20.000.000 ');
writeln('                               pasilitas :');
writeln('                                         Video Shooting live');
writeln('                                         Camera');
writeln('                                         Akrilik');
writeln('                                         X banner');
writeln('                                         Gold Album');
end;
procedure sedang;
begin
writeln('                               Paket Wedding Taxco');
writeln('                               harga     : Rp.15.000.000 ');
writeln('                               pasilitas :');
writeln('                                          Video Shooting live');
writeln('                                          Camera');
writeln('                                          Akrilik');
writeln('                                          X banner');
writeln('                                          Silver Album');
end;
procedure sederhana;
begin
writeln('                               Paket Wedding Suntour');
writeln('                               harga     : Rp.10.000.000 ');
writeln('                               pasilitas :');
writeln('                                          Video Shooting not live');
writeln('                                          Camera');
writeln('                                          X banner');
writeln('                                          Silver Album');
end;
procedure dangdut;
begin
writeln('                             Paket hiburan Dangdut Live');
writeln('                             harga : Rp.5.000.000 ');
end;
procedure marawis;
begin
writeln('                             Paket hiburan Marawis');
writeln('                             harga : Rp.3.000.000 ');
end;
procedure electon;
begin
writeln('                             Paket hiburan electon');
writeln('                             harga : Rp.2.000.0000');
end;
begin
repeat
clrscr;
writeln('=======================================================================');
writeln('               *****     STUDIO PHOTO MALISHNA     *****               ');
writeln('=======================================================================');
writeln;
writeln('       "Enjoy and Elegant your wedding party with MALISHNA"');
writeln;
write('Nama Pelanggan                : '); readln (b);
writeln;
writeln('MALISHNA screen : ');
writeln('                              1. Paket Magazine ');
writeln('                              2. Paket Taxco');            
writeln('                              3. Paket Suntour');
write('pilih no paket yang anda inginkan (1/2/3) ! '); readln (a);
begin
if a=1 then
mewah
Else if a=2 then
sedang
Else if a=3 then
sederhana
Else
write ('pilih 1,2 atau 3 !');
writeln;
end;
writeln('MALISHNA entertaiment : ');
writeln('                             A. Dangdut Live ');
writeln('                             B. Marawis');            
writeln('                             C. Electon');
write('pilih hiburan yang anda inginkan (A/B/C) ! '); readln (h);
begin
if h='A' then
dangdut
Else if h='B' then
marawis
Else if h='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (i);
begin
if i='A' then
dangdut
Else if i='B' then
marawis
Else if i='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (k);
begin
if k='A' then
dangdut
Else if k='B' then
marawis
Else if k='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
writeln('=======================================================================');
writeln('               *****     STUDIO PHOTO MALISHNA     *****               ');
writeln('=======================================================================');
writeln('Nama Pelanggan                            : ',b);
write('Masukan Harga Paket Wedding               : '); readln (c);
write('Masukan Harga Paket Entertaint            : '); readln (f);
write('Masukan Harga Paket Entertaint tambahan 1 : '); readln (z);
write('Masukan Harga Paket Entertaint tambahan 2 : '); readln (p);
tot:=c+f+z+p;
writeln('Total yang harus di bayar                 : ',tot);
write('Uang Pembayaran                           : '); readln (d);
e :=d-tot;
writeln('Uang Kembalian                            : ',e);
write('mau mengulangi lagi (Y/N)?');readln(y);
until(y)<>'Y';
end.

SINTAK OPERASI HITUNG SEDERHANA DALAM TURBO PASCAL.

Assalamualaikum wr wb !

Hai gan ! apakabar ni ? dah lama banget ya anne gak nulis di blog. Nah kali ini anne mau share ni  ma agan semua hasil dari kuliah anne di jurusan Teknik Informatika yang udah mau menginjak pertengahan semester satu. Mata kuliahnya Algoritma, di sini anne dkk dah belajar Turbo Pascal. Dan yang akan anne share kali ini yaitu sintak pemrograman operasi hitung sederhana. Langsung aja ya kita bahas ! yuk ah GEBOY ^__^

SINTAK OPERASI HITUNG SEDERHANA DALAM TURBO PASCAL.

Sebelum masuk ke sintak operasi hitung, anda harus tau dulu symbol-symbol operasi hitung yang akan kita gunakan dalam sintak Turbo Pascal.

Untuk penjumlahan (+), pengurangan (-), pembagian (/), perkalian (*), hasil sisa bagi (mod), & Div (div).

Contoh sintak operasi hitung.

program  keliling_persegi_panjang;

uses wincrt;

var a, b, c: integer;

begin

writeln('mencari keliling persegi panjang');

write('masukan panjang = '); readln(a);

write('masukan lebar = '); readln (b);

c := 2*a+b;

writeln ('hasilnya adalah = ',c);

end.

 

Keterangan :

program, uses, begin & end adalah sintak yang memang harus di masukan untuk memulai dan / atau mengakhiri program kita.

Write, digunakan untuk tulisan yg ingin kita tuliskan di program kita nanti, kita bisa tulis sesuka kita selama itu masih di dalam tanda petik.

read, untuk pemanggilan variable yang akan kita tempatkan / di baca oleh write di sebelumnya.

ln, untuk line / garis baru, sehingga tidak sejajar

var, variable a dan b kita gunakan untuk nilai yang akan kita hitung, sedangkan c adalah proses perhitungan. Variable bisa sesuai kebutuhan.

Contoh di atas sebuah contoh operasi hitung keliling persegi. Kita bisa buat operasi hitung lainnya. Caranya sama, hanya program perhitungannya kalian bisa ubah sesuai yang kalian butuhkan.

***sekian

Nah gan ni anne bisa share segitu, semoga bermanfaat buat agan semua & buat agan-agan yang lebih mahir duluan dalam turbo pascal kritik dan saran yang membangun anne tunggu, join + comment ni di blog anne. Mhon maaf bila masih ada kesalahan. Maklumlah anne juga masih mahasiswi semester satu ^_^ …

makasih
wassalam, elis supiati sukses !