Search This Blog

Saturday 15 December 2012

contoh bahasa pascal

beberapa bahasa pascal yang sudah saya pelajari di Teknik Informatika (S1) Universitas Jabal Ghafur 

1. bahasa pascal untuk membuat program mencari nilai kuliah
 uses wincrt;
var nilai :integer;
begin
 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);
 if nilai<=50 then
  begin
   gotoxy(5,8); write ('E');
  end
 else if nilai <=65 then
  begin
   gotoxy(5,8); write ('D');
  end
 else if nilai <=75 then
  begin
   gotoxy(5,8); write ('C');
  end
 else if nilai <=85 then
  begin
   gotoxy(5,8); write ('B');
  end
 else if nilai <=100 then
  begin
   gotoxy(5,8); write ('A');
  end
 else if nilai >=100 then
  begin
   gotoxy(5,8); write ('salah');
  end
end.

2. Program perulangan
uses WINCRT;
var no:integer;
    bil:integer;
begin
 bil:=0;
 FOR no:=1 to 10 do
  begin
   bil:=bil+2;
   writeLN (bil);
  end
end.

Program perulangan2;
uses WINCRT;
var no:integer;
    bil:integer;
begin
 bil:=1;
 FOR no:=1 to 10 do
  begin
   writeLN (bil);
   bil:=bil+2;
  end
end.




3.bahasa pascal untuk membuat program mencari luas lingkaran
uses wincrt;
var luas    :real;
    pi      :real;
    jari    :real;
begin
 jari:=11;
 pi  :=3.14;
 Luas:=pi * (jari*jari);
 write (' Luas LINGKARAN =',luas:4:2);
END.

4.bahasa pascal untuk membuat program mencari luas segi tiga
uses wincrt;
var AL,TG,LUAS : REAL;
  
begin
  gotoxy(5,5); write ('MASUKKAN NILAI ALAS    : ');READLN(AL);
  gotoxy(5,6); write ('MASUKKAN NILAI TINGGI  : ');READLN(TG);
  luas:=0.5*al*tg;
  gotoxy(5,8); write ('LUAS SEGITIGA :', luas:3:2);
 
end.

5.bahasa pascal pemprograman
uses wincrt;
begin
 gotoxy(20,1); write('selamat pagi');
 gotoxy(35,3);write('kota sigli');
 gotoxy(51,5);write('apa kabar');
end.

PROGRAM PERTAMA;
USES WINCRT;
Begin
CLRSCR;
Writeln('Selamat SORE');
Writeln('yusrifal');
Writeln('apa kabar?');
End.

uses wincrt;
var a :integer;
begin
 a:=1;
 if a=1 then
  write('benar');
end.

uses wincrt;
var nm,al : string;
begin
  gotoxy(5,5); write ('NAMA ANDA :');READLN(NM);
  gotoxy(5,6); write ('ALAMAT    :');READLN(AL);
  clrscr;
  gotoxy(5,8); write ('Hallo ',nm,   'apa kabar');
  gotoxy(5,9); write (al);
end.

uses wincrt;
var nm,al : string;
begin
  gotoxy(5,5); write ('NAMA ANDA :');READLN(NM);
  gotoxy(5,6); write ('ALAMAT    :');READLN(AL);
  clrscr;
  gotoxy(5,8); write ('Hallo ',nm,   'apa kabar');
  gotoxy(5,9); write (al);
end.

uses wincrt;
var a :integer;
begin
 a:=1;
 if a=1 then
  begin
   write('benar');
  end
 else
  begin
   write('salah')
  end
end.

6.bahasa pascal untuk membuat program mencari luas persegi panjang
uses wincrt;
var luas    :INTEGER;
    PJ      :INTEGER;
    LB      :INTEGER;
begin
 PJ:=6;
 LB:=8;
 Luas:=PJ * LB;
 write (' Luas PERSEGI PANJANG =',luas);
END.


7.bahasa pascal untuk membuat program mencari kelulusan
uses wincrt;
var nilai :integer;
begin
 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);
 if nilai<=60 then
  begin
   gotoxy(5,8); write ('tidak lulus');
  end
 else if nilai <=85 then
  begin
   gotoxy(5,8); write ('lulus cadangan');
  end
 else
  begin
   gotoxy(5,8); write ('lulus');
  end
end.

No comments:

Post a Comment