Cara Membuat Program Predikat Nilai dan Mencari Angka Terbesar dengan aplikasi PASCAL di ANDROID

Assalamualaikum WR WB

semoga kawan-kawan semua dalam keadaan sehat wal afiat, amin.

disini saya akan menuliskan cara membuat program predikat nilai dan program mencari angka terbesar dengan aplikasi pascal di android.

baiklah lansung saja

PROGRAM MENCARI ANGKA TERBESAR

1.Buka aplikasi Pascalnya
2.Buat file baru, dengan cara klik garis 3 dikiri atas
3.Masukkan kode2nya

program Terbesar;
uses crt;
var
bil:array[1 .. 100] of integer;
terbesar :integer;
terkecil :integer;
i :integer;
begin
  clrscr;
  for i:= 1 to 5 do
  begin
  write('angka ke ',i,' = ');readln(bil[i]);
  end;
  terbesar:=bil[i];
  for i:= 1 to 5 do
  if bil[i] > terbesar then
  terbesar:=bil[i];
 
  writeln('angka terbesar adalah = ',terbesar);
  readln;
end.



4. Compile dengan klik ikon ceklis diatas,dan run program dengan klik ikon play
5.Masukkan angka-angkannya

6.dan secara otomatis Program akan mengambil angka yg terbesar

dan itulah cara program mencari angka terbesar. dan selanjutnya program predikat nilai
ikuti langkah-langkahnya

1.Buka aplikasi Pascal
2.Buat File baru
3.Tulis kode-kode nya

program Predikat;
uses crt;
var
nilai : integer;
nama :string;
gradeA,gradeB,gradeC,gradeD,gradeE : integer;
begin
clrscr;
write('Masukkan Nama : ');readln(nama);
write('Masukkan Nilai : ');readln(nilai);
  
 if nilai <= 100 then
 if nilai >= 80 then
begin
  writeln('grade A');
  write(nama,' ','akan terus giat belajar');readln;
  end;
 
 if nilai <= 79 then
 if nilai >= 60 then
begin
  writeln('grade B');
  write(nama,' ','akan tambah giat belajar');readln;
  write(nama,' ','akan tambah giat belajar');readln;
  readln;
  end;
 
 if nilai <= 59 then
 if nilai >= 40 then
begin
  writeln('grade C');
  write(nama,' ','akan serius dalam belajar');
  write(nama,' ','akan serius dalam belajar');
  write(nama,' ','akan serius dalam belajar');
  readln;
  end;
 
 if nilai <= 39 then
 if nilai >= 20 then
begin
  writeln('grade D');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  write(nama,' ','akan akan benar benar serius dalam belajar');
  readln;
  end;
  readln;
end.

4.Setelah Selesai compile dan run program, caranya sama dengan di atas
5.Masukkan nama dan nilai

dan program akan menampilkan predikat dengan nilai yg di masukan

baiklah itulah tadi cara-cara membuat program predikat nilai dan program mencari angka yg terbesar.

terima kasih