Coding

Berikut contoh CODING dari berbagai bahasa pemrograman versi PASCAL, BAHASA C++ dan HTML

Pascal

PROGRAM SULAPANGKA;

USES CRT;

VAR I, J, K, L: INTEGER;

YT: CHAR;

NILAI:INTEGER;

FUNCTION CSTR(I: INTEGER): STRING;

VAR

S: STRING[11];

BEGIN

STR(I, S);

CSTR := S;

END;

PROCEDURE TULIS(POSISI:INTEGER; TEKS:STRING);

VAR A, B, C: INTEGER;

BEGIN

A := POSISI;

B := POSISI MOD 10;

C := 1;

IF B = 0 THEN

BEGIN B := 10;C := 0; END;

GOTOXY(B * 8 - 5,

(A DIV 10 + C) * 3 + 1);

WRITE(TEKS);

END;

PROCEDURE BIKIN_KOTAK(KOLOM, BARIS: INTEGER);

BEGIN

CLRSCR;

FOR I:= 1 TO KOLOM DO

BEGIN

FOR J := 1 TO BARIS DO

BEGIN

GOTOXY (J * 8 - 7, (I * 3));

WRITE('____');

GOTOXY (J * 8 - 7, (I * 3 + 1));

WRITE('|        |');

GOTOXY (J * 8 - 7, (I * 3 + 2));

WRITE('____');

END;

END;

END;

PROCEDURE WIZARD7;

BEGIN

CLRSCR;

WRITELN('ANGKA YANG ANDA PILIH = ', NILAI);

WRITELN;

WRITE('INGIN MENGULANG (Y/ESC.)? ');READKEY;

YT := READKEY;

END;

PROCEDURE WIZARD6;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 19 DO

TULIS(I, CSTR(I + 31));

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN

NILAI := NILAI + 32;

WIZARD7;

{===============================}

END;

PROCEDURE WIZARD5;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 16 DO

TULIS(I, CSTR(I + 15));

FOR J := 17 TO 19 DO

TULIS (J, CSTR(J + 31));

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

{===============================}

IF UPCASE(YT) = 'Y' THEN

NILAI := NILAI + 16;

WIZARD6;

END;

PROCEDURE WIZARD4;

BEGIN

BIKIN_KOTAK(3, 10);

FOR J := 0 TO 2 DO

FOR I := 1 TO 8 DO

TULIS(J * 8 + I, CSTR(J * 16 + I + 7));

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN

NILAI := NILAI + 8;

WIZARD5;

 {===============================}

END;

PROCEDURE WIZARD3;

BEGIN

BIKIN_KOTAK(3, 10);

FOR J := 0 TO 5 DO

FOR I := 1 TO 4 DO

TULIS(J * 4 + I, CSTR(J * 8 + I + 3));

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T'];

IF UPCASE(YT) = 'Y' THEN

NILAI := NILAI + 4;

WIZARD4;

{===============================}

END;

PROCEDURE WIZARD2;

BEGIN

BIKIN_KOTAK(3, 10);

J:=0;

FOR J := 0 TO 12 DO

FOR I := 1 TO 2 DO

TULIS(J * 2 + I, CSTR(J * 4 + I + 1));

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN

NILAI := NILAI + 2;

WIZARD3;

{===============================}

END;

PROCEDURE WIZARD1;

BEGIN

BIKIN_KOTAK(3, 10);

L:= 1;

REPEAT

TULIS ((L + 1) DIV 2,CSTR(L));

L:= L + 2;

UNTIL L > 50;

GOTOXY (5, 15);

WRITE('APAKAH ANGKA YANG ANDA PILIH',

' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');

REPEAT

YT := READKEY;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

IF UPCASE(YT) = 'Y' THEN

NILAI := 1;

WIZARD2;

{===============================}

END;

PROCEDURE TULIS_NOMOR;

BEGIN

BIKIN_KOTAK(5, 10);

FOR K:= 1 TO 50 DO

TULIS(K, CSTR(K));

GOTOXY(1, 20);

WRITE ('PILIH SEBUAH ANGKA, ',

'TEKAN: Y, KALO MAU TERUS! ');

WRITE ('TEKAN ESC UNTUK KELUAR ');

REPEAT

YT := READKEY;

IF UPCASE(YT) = 'Y' THEN

BEGIN

NILAI := 0;

WIZARD1;

END;

UNTIL YT IN ['y', 'Y', 't', 'T', #27];

{===============================}

END;

(* Program Utama *)

BEGIN

CLRSCR;

TEXTATTR := $1F;

REPEAT

TULIS_NOMOR;

UNTIL YT = #27;

END.



link Video dibawah ini
Video Tutorial Dasar-Dasar Pemrograman Pascal



BAHASA C++




#include <stdio.h> int main(){
int i,m,n;
printf(“Masukan n : “); scanf(“%d”,&n);
for(i = 1 ; i <= n ; i++){
for(m = i ; m <= n ; m++){
printf(“*”);
}
printf(“\n”);
}
getch();
return 0;
}

Link Video dibawah ini

Video Tutorial Dasar-Dasar Pemrograman Bahasa C++

HTML
 <html>
<head> 

<title> Tag P, Br dan Hr </title> 

</head> 

<body> 

<p>Ini adalah paragraf pertama, yang berisi 3 baris.  Baris satu, dua dan tiga. <br><br></p> 

<p>Ini adalah paragraf kerdua, yang berisi garis horizontal</p><hr> Ini adalah garis horizontal. 

</body> 

<body bgcolor=”#00ff00”> 

</html>

Link Video dibawah ini
Video Tutorial Dasar-Dasar Pemrograman HTML