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’);...
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 =...
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...
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...
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...
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...
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;...
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...
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...
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...
Recent Comments