buatlah dua contoh program pelajaran pemograman dasar

Contoh program Pascal ya... .
Contoh kode program untuk perbandingan Nilai1 dengan Nilai2 :

USES CRT;
VAR
          Nilai1,Nilai2:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Nilai1:');Readln(Nilai1);
          Write('Masukkan Nilai2:');Readln(Nilai2);
          IF Nilai1>Nilai2 Then
                    Write('Nilai1 lebih besar dari Nilai2')
                              Else
                    Write('Nilai2 lebih besar dari Nilai1');
Readkey;
End.



Contoh tampilan :
Masukkan Nilai1:50
Masukkan Nilai2:100
Nilai2 lebih besar dari Nilai1


Contoh soal :
Ada tes masuk jurusan APH
Tes 1 : Jika tinggi>150cm maka masuk ke tes 2, jika tidak maka ditolak.
Tes 2 : Jika nilai MTK>75 maka diterima, jika tidak maka ditolak.

Contoh program :

USES CRT;
VAR
          Tinggi_badan,Nilai_MTK:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Tinggi badan=');Readln(Tinggi_badan);
          IF Tinggi_badan<150 Then
                    Write('Ditolak')
          Else
                    Write('Masukkan Nilai MTK=');Readln(Nilai_MTK);
                    IF Nilai_MTK>75 Then
                              Write('Diterima')
                    Else
                              Write('Ditolak');
Readkey;
End.

Asli karyaku sumber ada diblogku juga .