Tutorial Pascal

HAAAAAAAAAAAAAI.. nih kali ini gue ingin mengshare tentang tutorial pascal, sebelum ke pascal alangkah lebih baiknya kita membuat bahasa algoritmanya tersebut. yang pernah sudah dibahas kan pengertian dari algoritma itu sendiri. okeeeeeeeys, disini saya mau share video ditambah dengan algoritma dan pascal tulisannya dari latihan dasar, latihan 1 dan latihan 2 dulu yaaa. okeeeey cekidot huahaha

1.Latihan Dasar

video tutorialnya video tutorial latihan dasar  (maaf ya kalo ngeblur gambarnya ;D)


Dalam bahasa pascal

program CintaIndonesia;uses crt;


Begin clrscr; write('Aku Cinta Indonesia'); readkey;


End.

2.Latihan Pertama 

Video tutorialnya video tutorial latihan pertama

Dalam Bahasa Algoritma

PROGRAM Contoh1;

DEKLARASI/VAR/KAMUS DATA

      VarNama : String

      VarUmur : Integer

      VarTargetIPK : Real

      VarJomblo : Boolean

      VarTargetNilaiAlpro : Character

KONSTANTA

      KonsTempatTanggalLahir : String ß”Serang, 8-Januari-1997”

ALGORITMA

      VarNama ß “Indah Trizkiyani”

      VarUmur ß 54

      VarTargetIPK ß 3.99

      VarJomblo ß FALSE

      VarTargetNilaiAlpro ß ’A’

     

      OUTPUT(“Ini adalah data tentang Indah Trizkiyani”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(VarTempatTanggalLahir)   

END ALGORITMA

Dalam Bahasa Pascal

PROGRAM contoh1;

USES crt;

VAR

 VarNama: String;

 VarUmur : Integer;

 VarTargetIPK : Real;

 VarJomblo : Boolean;

 VarTargetNilaiAlpro : Char;

CONST

 KonsTempatTanggalLahir : String ='Serang, 8-Januari-1997';

BEGIN

 CLRSCR;

 VarNama := 'Indah Trizkiyani';

 VarUmur := 54;

 VarTargetIPK := 3.99;

 VarJomblo := FALSE;

 VarTargetNilaiAlpro := 'A';

 WRITELN('Ini adalah data tentang Indah Trizkiyani');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK);

 WRITELN(VarJomblo);

 WRITELN(VarKonsTempatTanggalLahir);

 READKEY;

END.

3.Latihan Kedua

Video tutorialnya video tutorial latihan kedua (maaf ya kalo ngeblur masih newbie ;D)

Dalam Bahasa Algoritma

PROGRAM Contoh2;

DEKLARASI/VAR/KAMUS DATA

      VarNama : String

      VarUmur : Integer

      VarTargetIPK : Real

      VarJomblo : Boolean

      VarTargetNilaiAlpro : Character

KONSTANTA

      KonsTempatTanggalLahirSibutar : String ß”Sitoli,13-Jan-1964”

      KonsTempatTanggalLahirAmanda : String ß”B.Aceh, 7-Feb-1992”

ALGORITMA

      VarNama ß “Sibutar-butar”

      VarUmur ß 50

      VarTargetIPK ß 4.00

      VarJomblo : TRUE

      VarTargetNilaiAlpro ß ’AB’

     

      OUTPUT(“Ini adalah data tentang Sibutar-butar”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(KonsTempatTanggalLahirSibutar)    

     

      VarNama ß “Amanda Larashati”

      VarUmur ß 22

      VarTargetIPK ß 3.75

      VarJomblo : TRUE

      VarTargetNilaiAlpro ß ’C’

     

      OUTPUT(“Ini adalah data tentang Amanda”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(KonsTempatTanggalLahirAmanda)

END ALGORITMA

Dalam Bahasa Pascal

PROGRAM contoh2;

USES crt;

VAR

 VarNama : String;

 VarUmur : Integer;

 VarTargetIPK : Real;

 VarJomblo : Boolean;

 VarTargetNilaiAlpro : Char;

CONST

 KonsTempatTanggalLahirSibutar : String ='Sitoli,13-Jan-1964';

 KonsTempatTanggalLahirAmanda : String ='B.Aceh, 7-Feb-1992';

BEGIN

 CLRSCR;

 VarNama := 'Sibutar-butar';

 VarUmur := 50;

 VarTargetIPK := 4.00;

 VarJomblo := TRUE;

 VarTargetNilaiAlpro := 'B';

 WRITELN('Ini adalah data tentang Sibutar-butar');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK);

 WRITELN(VarJomblo);

 WRITELN(KonsTempatTanggalLahirSibutar);

 VarNama := 'Amanda Larashati';

 VarUmur := 22;

 VarTargetIPK := 3.75;

 VarJomblo := TRUE;

 VarTargetNilaiAlpro := 'C';

 WRITELN('Ini adalah data tentang Amanda');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK:2:2);

 WRITELN(VarJomblo);

 WRITELN(KonsTempatTanggalLahirAmanda);

 READKEY;

END.