contoh program dasar pascal

kalian belajar algoritma di teknik informatka maupun yang menyangkut dengannya ,pastinya kalian pernah belajar ini . sedikit referensi dan contoh program pascal dasar bisa kalian ikuti di sini

Program menampilkan teks

uses wincrt;

begin;

 write('selamat datang')

 end.

Selamat datang

HASILNYA ADALAH:

Menampilkan teks dengan jarak

usEs wincrt;

begin writeln;

writeln ;

 GOTOXY(1,1) ;WRITE('SELAMAT SIANG' );

 GOTOXY(70,1);WRITE ('SIGLI');

 GOTOXY(1,20);WRITE ('INDONESIA');

 END.

HASILNYA ADALAH:

	SELAMAT  SIANG                                                                                     SIGLI                    INDONESIA I

 

PROGRAM LUAS PERSEGI PANJANG;

uses wincrt;

var luas   :integer;

   panjang :integer;

   lebar   :integer;

begin

   panjang:=10;

   lebar:=3;

   luas :=panjang * lebar;

   write('luas persegi panjang',luas);

   end.

HASILNYA ADALAH:

LUAS PERSEGI PANJANG 30

 

 

program luas lingkaran:

var luas  :real;

     r    :real;

     pi   :real;

begin

r:=10;

pi:=3.14;

luas:=pi * r* 2;

   write('luas lingkaran =',luas: 4:2);

   end.

HASILNYA ADALAH:

	LUAS LINGKARAN= 62.80

 

PROGRAM MENERIMA INPUT

     uses wincrt;

     var

      s :string;

      rm:string;

     begin

      write('sipa nama anda:');readln(rm);

      write('masukkan tekt:');

      readln(s);

      clrscr;

      writeln('hallho:',rm,' anda mengetik:',s);

        end.

HASILNYA ADALAH:

	Siapa nama anda: Ex: siapa nama anda:  jack Masukkan teks: Ex: saya mengerjakan program Hallo: jack anda mengetik: saya mengerjakan program

 

program menerima_input rumus luas segitiga

uses wincrt;

var

 tg : real;

 al : real;

 luas:real;

begin

  write ('masukkan nilai alas :');readln(al);

  write ('masukkan nilai tinggi :');readln(tg);

  luas := 0.5 * al * tg;

  writeln ('luas segitiga adalah',luas :3:2);

  writeln ('hit <enter> to exit');

  readln;

 end.

MASUKAN NILAI ALAS: 11 MASUKAN NILAI TINGGI: 25 LUAS SEGITIGA ADALAH :  90.00 HIT<ENTER> TO EXIT

HASILNYA ADALAH:

 PERCABANG PASCAL IF, ELSE,THEN

1.PERNYATAAN IF PERTAMA

uses wincrt;

var

a:integer;

begin

   a :=5;

   if a= 1 then

   begin

   write ('selamat pagi');

   end

   else

   begin

   write ('selamat siang');

   end

   end.

HASILNYA ADALAH:

	Selamat siang

 

  

2.PROGRAM PERNYATAAN IF

 uses wincrt;

var

nilai:integer;

begin

gotoxy (5,5); write ('masukan nilai:'); readln (nilai);

if nilai >65 then

begin

 

gotoxy (5,7) ;write('selamat anda lulus');

   end

   else

   begin

   gotoxy(5,7);write ('maaf anda tidak lulus');

   end

   end.

HASILNYA ADALAH:

	Masukkan nilai : Ex: masukkaan nilai 79 Selamat anda lulus

 

3.PROGRAM PERNYATAAN BERTINGKAT

Uses winCrt;

Var

 Nilai : Integer;

 Grade      : Char;

 Keterangan : String;

Begin

 ClrScr;

 Write('Masukan Nilai : ');

 ReadLn(Nilai);

 IF Nilai >= 90 THEN

 Begin

 Grade := 'A';

 Keterangan := 'Mengagumkan';

 End

 ELSE IF Nilai >= 80 THEN

 Begin

 Grade := 'B';

 Keterangan := 'Baik'

 End

 ELSE IF Nilai >= 70 THEN

 Begin

 Grade := 'C';

 Keterangan := 'Cukup'

 End

 ELSE

 Begin

 Grade := 'E';

 Keterangan := 'Gagal';

 End;

 WriteLn('Grade Nilai yang Didapat = ',Grade);

 WriteLn('Keterangan Nilai         = ',Keterangan);

 ReadLn;

End.

HASILNYA ADALAH:

	Masukan Nilai: Ex: Masukan Nilai: 80 Grade Yang di Dapat : B Keterangan : Baik