Category: Pascal

0

Pascal hitung nilai rata-rata

program hitung_nilai; uses crt; var nilai:array[1..10] of integer; nilai2:array[1..10] of integer; nilai3:array[1..10] of integer; nama:array[1..10] of string[50]; I,jum_mhs:integer; rata:array[1..10] of double; total:array[1..10] of integer; huruf:array[1..10] of string[10]; begin clrscr; writeln(‘Program Penghitung Nilai Rata-rata mahasiswa’);...

all 2

Kuliah tugas seminggu sewa kios menggunakan pascal

program seminggu_sewa_kios; uses crt,sysutils; const h_ayambakar = 15000; h_ayamgoreng = 14000; h_sopiga = 25000; h_sotoayam = 10000; h_mieayam = 9000; h_bakso = 10000; h_siomay = 8000; h_batagor = 8000; h_indomierebus = 7000; h_gorengan =...

0

Pascal Procedure dengan Lazarus

program Project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } TMyApplication = class(TCustomApplication) protected procedure DoRun; override; public constructor...

0

Pascal Looping While dengan Lazarus

program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } TMyApplication = class(TCustomApplication) protected procedure DoRun; override; public constructor...

0

Pascal Looping For dengan Lazarus

program looping_for_2; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } TMyApplication = class(TCustomApplication) protected procedure DoRun; override; public constructor...

0

Pascal pembalik kata dengan Lazarus

program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } TMyApplication = class(TCustomApplication) protected procedure DoRun; override; public constructor...

0

Pascal readln writeln dengan Lazarus II

program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } str10 = string[10]; TMyApplication = class(TCustomApplication) protected procedure DoRun;...

0

Pascal readln writeln dengan Lazarus

program percobaan1_1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp { you can add units after this }; type { TMyApplication } TMyApplication = class(TCustomApplication) protected procedure DoRun; override; public constructor...

0

pascal deskripsi

Bagian ini digunakan untuk meletakkan seluruh instruksi program. Instruksi-instruksi yang akan diberikan untuk dikerjakan ditulis diantara “begin” dan “end”. Penulisan “end” diakhiri dengan tanda baca titik “.”. Yang perlu diperhatikan bahwa setiap instruksi diakhiri...

0

pascal deklarasi

Bagian deklarasi digunakan bila didalam  program menggunakan pengenal (identifier) yang dapat berupa label, konstanta, tipe, variable, prosedur dan fungsi. Perlu diingat, penulisan identifier dalam bahasa pascal tidak mengenal huruf besar atau kecil, jadi variabel...