Isi Biodata

uses crt;
var
nama,alamat:string;
umur,nim:longint;
ab:char;
label ulang;
begin
ulang:
clrscr;
textcolor(lightblue);
write('Nama Saya : ');
readln(nama);
write('Nim Saya : ');
readln(nim);
write('Alamat Saya : ');
readln(alamat);
write('Umur saya : ');
readln(umur);
writeln('-------------------------');
writeln('Nama Saya: ',nama);
writeln('Nim Saya: ',nim);
writeln('Alamat Saya: ',alamat);
writeln('Umur Saya: ',Umur);
readln();
write('Apakah Anda Ingin Mengulang? (y/t)');
readln(ab);
if(ab='y') or (ab='Y') then
begin
goto ulang;
end;
end.

Tugas 6

uses crt;
var
i,l:integer;
begin
clrscr;
      for i:=1 to 5 do
      begin
      for l:=i to 5 do
      write(l, ' ');
      textcolor(i);
      writeln;
      end;
      readln;
end.

Membuat Tingkatan Nilai Menggunakan Pascal

program tugas_5;
uses crt;

var
    Lagi : char;
    Nilai : integer;
    Grade, NIM, Nama, Jurusan, Matakuliah : string;

begin
clrscr;
    repeat
    textcolor(lightcyan);
        writeln('        Nilai UAS        ');
        writeln('========^^^^^^^^^========');
        write('NAMA           : '); readln(Nama);
        write('NIM            : '); readln(NIM);
        write('Jurusan        : '); readln(Jurusan);
        write('Mata Kuliah    : '); readln(Matakuliah);
        write('Nilai          : '); readln(Nilai);
        case Nilai of
            90..100   : Grade := 'A';
            70..89    : Grade := 'B';
            60..69    : Grade := 'C';
            45..59    : Grade := 'D';
            0..44     : Grade := 'E';
        end;
        writeln('Grade            : ', Grade);
        write('Memasukkan data lagi [y/t ? '); readln(Lagi);
        Lagi := upcase(Lagi);
        writeln;
        writeln('******************');
        writeln;
    until Lagi = 't';
end

Membuat ID Card Menggunakan Pascal

program ID_Card;

uses crt;
var nama:string;
nim,tahunlahir,umur:integer;
begin
clrscr; textcolor(lightcyan);
write('Nama Anda     : '); textcolor(lightred); readln(nama);
textcolor(lightcyan);
write('NIM           : '); textcolor(lightred); readln(nim);
textcolor(lightcyan);
write('Tahun Lahir   : '); textcolor(lightred); readln(tahunlahir);
textcolor(lightcyan);
umur:=2012-tahunlahir; textcolor(lightred);
textcolor(lightblue);
write('Umurku Saat Ini  : ',umur);
readln;
end.

Menghitung Volume Tabung Menggunakan Pascal

program Volume_Tabung;
uses crt;

var
r,t,p:integer;
volume:real;

begin
clrscr;
        textcolor(lightred);
        writeln('======= ==================== ======');
        writeln('=======   Tugas Pascal   3   ======');
        writeln('=======   Volume    Tabung   ======');
        writeln('======= ==================== ======');
        textcolor(lightgreen);
        write('masukan nilai jari = ');
        readln(r);

        write('masukan nilai tinggi = ');
        readln(t);
        volume:= (3.14*r*r*t);

        write(' volume tabung = ',volume:0:2);
        write(' volume tabung = ',round(volume));
        write(' volume tabung = ',trunc(volume));
        readln;
end.

Menghitung Luas Sisi Balok Menggunakan Pascal

program Luas_Sisi_Balok;
uses crt;

var
t,l:integer;
p,luas:real;

begin
clrscr;
        textcolor(lightred);
        writeln('======= ==================== ======');
        writeln('=======    Tugas Pascal  3   ======');
        writeln('=======    Luas Sisi Balok   ======');
        writeln('======= ==================== ======');
        textcolor(lightgreen);
        write('masukna nilai panjang  = ');
        readln(p);

        write('masukan nilai tinggi = ');
        readln(t);

        write('masukan nilai lebar = ');
        readln(l);
        luas:= (2*p*l+2*p*t+2*l*t);

        write(' luas sisi balok = ',luas:0:2);
        write(' luas sisi balok = ',round(luas));
        write(' luas sisi balok = ',trunc(luas));
        readln;
end.

Menghitung Luas Segitiga Sama Kaki Menggunakan Pascal

program Luas_Segitiga_Sama_Kaki;
uses crt;

var
a,t:integer;
luas:real;

begin
clrscr;
        textcolor(lightgreen);
        writeln('======= ^^^^^^^^^^^^^^^^^^^^ ======');
        writeln('=======   Tugas Pascal  3    ======');
        writeln('===== Luas Segitiga Sama Kaki =====');
        writeln('======= ____________________ ======');
        textcolor(lightcyan);
        write('masukan nilai alas = ');
        readln(a);

        write('masukan nilai tinggi = ');
        readln(t);
        luas:= (a*t/2);

        write(' luas segitiga sama sisi = ',luas:0:2);
        write(' luas segitiga sama sisi = ',round(luas));
        write(' luas segitiga sama sisi = ',trunc(luas));
        readln;
end.