Program-Program Pascal Dasar

 1. Input-Output.

program ars;
uses crt;
var
   a:string;
begin
clrscr;
       write('masukkan nama : ');readln(a);
       writeln('nama anda adalah ',a);
readln;
end.

 2. Kalkulator Sederhana.

program ars;
uses crt;
var
   a:string;
   b,c,hasil:longint;
   begin
clrscr;
       write('masukkan nama : ');readln(a);
       write('masukkan angka pertama : ');readln(b);
       write('masukkan angka kedua   : ');readln(c);
       hasil:=b + c;
       writeln('hasil : ',hasil);
readln;
end.

 3. Kalkulator pintar.

program ars;
uses crt;
var
   a:string;
   b,c,hasil:longint;
   d:string;
   begin
clrscr;
       write('masukkan nama : ');readln(a);
       write('masukkan angka pertama : ');readln(b);
       write('masukkan angka kedua   : ');readln(c);
       write('masukkan operator [+/-/x/:/mod/div] : ');readln(d);
if d='+' then
       begin
       hasil:=b + c;
       writeln('hasil : ',hasil);
       end
else if d='-' then
        begin
        hasil:=b - c;
        writeln('hasil : ',hasil);
        end
else if d='x' then
       begin
       hasil:=b * c;
       writeln('hasil : ',hasil);
       end
else if d=':' then
        begin
        writeln('hasil : ',b/c:0:0);
        end
else if d='mod' then
       begin
       writeln('hasil : ',b mod c);
       end
else if d='div' then
        begin
        writeln('hasil : ',b div c);
        end
else writeln('anda memasukkan kode yang salah');
readln;
end.

 4. Kalkulator Pintar#2.

program ars;
uses crt;
var
   a:string;
   b,c,hasil:longint;
   d:string;
   e:integer;
   begin
clrscr;
       write('masukkan nama : ');readln(a);
       write('masukkan angka pertama : ');readln(b);
       write('masukkan angka kedua   : ');readln(c);
       write('masukkan operator [1.+/2.-/3.x/4.:/5.mod/6.div] : ');readln(e);
case e of
     1: d:='+' ;
     2: d:='-' ;
     3: d:='x' ;
     4: d:=':' ;
     5: d:='mod';
     6: d:='div';
     end;
if d='+' then
       begin
       hasil:=b + c;
       writeln('hasil : ',hasil);
       end
else if d='-' then
        begin
        hasil:=b - c;
        writeln('hasil : ',hasil);
        end
else if d='x' then
       begin
       hasil:=b * c;
       writeln('hasil : ',hasil);
       end
else if d=':' then
        begin
        writeln('hasil : ',b/c:0:0);
        end
else if d='mod' then
       begin
       writeln('hasil : ',b mod c);
       end
else if d='div' then
        begin
        writeln('hasil : ',b div c);
        end
else writeln('anda memasukkan kode yang salah');
readln;
end.

 5. Kalkulator Dengan Perintah Pengulangan.

program ars;
uses crt;
var
   a:string;
   b,c,hasil:longint;
   d,f:string;
   e:integer;
   begin
   repeat
clrscr;
       write('masukkan nama : ');readln(a);
       write('masukkan angka pertama : ');readln(b);
       write('masukkan angka kedua   : ');readln(c);
       write('masukkan operator [1.+/2.-/3.x/4.:/5.mod/6.div] : ');readln(e);
case e of
     1: d:='+' ;
     2: d:='-' ;
     3: d:='x' ;
     4: d:=':' ;
     5: d:='mod';
     6: d:='div';
     end;
if d='+' then
       begin
       hasil:=b + c;
       writeln('hasil : ',hasil);
       end
else if d='-' then
        begin
        hasil:=b - c;
        writeln('hasil : ',hasil);
        end
else if d='x' then
       begin
       hasil:=b * c;
       writeln('hasil : ',hasil);
       end
else if d=':' then
        begin
        writeln('hasil : ',b/c:0:0);
        end
else if d='mod' then
       begin
       writeln('hasil : ',b mod c);
       end
else if d='div' then
        begin
        writeln('hasil : ',b div c);
        end
else writeln('anda memasukkan kode yang salah');
write('try again ? [yes/no] ; ');readln(f);
until f = 'no';
readln;
end.

 6. Perulangan Sederhana.

program ars;
uses crt;
var
a,b,c:integer;
begin
clrscr;
for a:=1 to 20 do begin
 for b:=1 to 20 do
  begin write ('x'); end;
   writeln;
    end;
readln;
end.

 7. Membuat Piramida 2D Dengan Perulangan.

program ars;
uses crt;
var
a,b,c:integer;
begin
clrscr;
for b:=1 to 20 do
begin
for a:=b to 20 do
begin
write(' ');end;
for c:=1 to b do
begin
write(' +');end;writeln; end;
readln;
end.

 8. Procedure.

program ars;
uses crt;
var
a,b,c:integer;
procedure judul;
begin
writeln('program luar biasa');
writeln('------------------');
end;
procedure input;
begin
write('input angka pertama : ');readln(a);
write('input angka kedua   : ');readln(b);
end;
procedure hasil;
begin
c:=a+b;
writeln('hasil : ',c);
end;
begin
clrscr;
judul;
input;
hasil;
readln;
end.

9. Function.

program ars;

uses crt;

var

a,b,d,c,f:integer;

procedure judul;

begin

writeln('program luar biasa');

writeln('------------------');

end;

function tanggal:integer;

begin

write('input tanggal hari ini : ');readln(d);

end;

function input(var a,b:integer):integer;

begin

write('input angka pertama : ');readln(a);

write('input angka kedua   : ');readln(b);

end;

function hasil(var c:integer):integer;

begin

c:=a+b;

writeln('hasil : ',c);

end;

begin

clrscr;

judul;

tanggal;

input(a,b);

hasil(f);

readln;

end.

Share this post