materi pascal 2

ada 2 gan, prosedure dan fungsi versi milik ane sendiri n milik temen ane..

DOWNLOAD
DOWNLOAD (makalah)

ini juga ada materi dasar pascal bentuk pdf.
DOWNLOAD

makalah algoritma pemrograman pascal

1. Program mencari nilai rata-rata (for,while,repeat)
2. Program balik kata (while,repeat)   
3. Program mencetak nama (for,while) 
4. Program mencari bilangan prima   
5. Program ketupat 
   
   ini langsung DOWNLOAD

praktikum (nilai)

program P0303;
uses wincrt;
var tugas,uts,uas:integer; nama, alamat:string; nim:byte;
    akhir:real; grade:char;
begin
gotoxy(23,1);writeln('Tugas Praktikum oleh');
gotoxy(23,2);writeln('Nama  : Rufita Sari');
gotoxy(23,3);writeln('NIM   : 111210293');
gotoxy(23,4);writeln('Kelas : G');
gotoxy(23,5);writeln('====================');
writeln;
write('Masukkan Nama Mahasiswa: '); readln(nama);
write('Masukkan Alamat: '); readln(alamat);
write('Masukkan NIM: '); readln(nim);
write('Nilai Tugas: '); readln(tugas);
write('Nilai UTS: '); readln(uts);
write('Nilai UAS: '); readln(uas);
writeln;
akhir:=(2*uas+tugas+uts)/4;

begin
if(akhir>=80)then
grade:='A'
else
if(akhir>=70)then
grade:='B'
else
if(akhir>=60)then
grade:='C'
else
grade:='D';
end;

writeln('Data Mahasiswa');
writeln('--------------');
writeln('Nama        : ',nama)  ;
writeln('Alamat      : ',alamat) ;
writeln('NIM         : ',nim);
writeln;
writeln('Nilai Akhir : ',akhir:2:0);
writeln('Grade       : ',grade);
begin
if grade='A' then write('keterangan  : lulus');
if grade='B' then write('keterangan  : lulus');
if grade='C' then write('keterangan  : lulus');
if grade='D' then write('keterangan  : tidak lulus');
end;
end.

program mencari nilai max-min

program Max_Min;
uses wincrt;
var a:array[1..100] of integer;
    i,n: byte;
    max,min:integer;
    coba:char;
begin
    clrscr;
    coba:='y';
    while coba='y' do
begin
    writeln ;
    write('masukkan banyak data: '); readln(n);
    max:=0; min:=9999 ;
    clrscr;
    for i :=1 to n do begin write('masukkan nilai angka',i,': ');readln(a[i]);
    if max <(a[i])then max :=(a[i]);
    if min >(a[i])then min:=(a[i]);
end;
    writeln('nilai maksimal: ',max);
    writeln('nilai minimal: ',min);
    writeln;
    writeln;
    write ('Coba Program Lagi? [y/t]: ');
    readln(coba);
    if coba='y' then coba:= 'y';
end;
    readln;
end.

praktikum (deret alpabet, kuadrat)

program rufita;
uses wincrt;
var hasil:real;
    i,pilih,a,b,n:integer; status:boolean;
begin
repeat
clrscr;
Writeln('== NAMA:RUFITA SARI == NIM:111210293 == KELAS:G ==');
Writeln('==================================================');
writeln('* (1).Penjumlahan dua bilangan (2).Deret kuadrat *');
writeln('* (3).Deret Alphabet           (4).Keluar (stop) *');
writeln('**************************************************');
write('Masukkan Pilihan Anda: '); readln (pilih);
writeln;
case pilih of
1:begin
     writeln('Program Penjumlahan Dua Bilangan');
     writeln('-------------------------------');
     write('masukkan bilangan 1: '); readln(a);                              
     write('masukkan bilangan 2: '); readln(b);
     hasil:=a+b;                     
     writeln('hasilnya adalah: ',hasil:2:0);
     writeln;
     write('coba lagi!! [enter]');
     status:=false;
  end;
2:begin
     writeln('Program Deret Kuadrat');
     writeln('---------------------');
     write('masukkan jumlah deret: ');readln(n);
     i:=0;     
     while i < n do
  begin
     i:= i + 1;
     a := i * i;                         
     write( a,' ');
  end;
     writeln;
     writeln;
     write('coba lagi!! [enter]');
  end;
3:begin
     writeln('Program Deret Alphabet');
     writeln('----------------------');
     i:=91;
     repeat i:=i-1;
     write(chr(i),' ');
     until i=65;
     writeln;
     writeln;
     write('coba lagi!! [enter]');
  end;  
4:begin
     write('Program Berhenti..!!!');
     status:=true;
  end;
     else
  begin
     writeln('pilihan anda salah...!!!');
     status:=true;
  end;
  end;
     readln;
     until status;
end.

Praktikum 1

program P0101;
uses wincrt;
var nama, alamat, hobby:string;
begin
writeln('program penampil data');
writeln ('********************');
write ('masukkan nama: '); readln (nama);
write ('masukkan alamat: '); readln (alamat);
write ('masukkan hobby: '); readln (hobby);
writeln;
writeln('hallo ',nama,' !!! kamu tinggal di ',alamat,' dan hobbymu adalah ',hobby);
readln;
end.
-------------------------------------
program P10102;
uses wincrt;
var bil1, bil2, jumlah:integer;
begin
writeln ('program penjumlahan sederhana');
writeln ('*****************************');
write ('masukkan bilangan 1: '); readln (bil1);
write ('masukkan bilangan 2: '); readln (bil2);
jumlah := bil1+bil2;
writeln ('luas lingkaran adalah : ',jumlah); readln ;
end.

program terbalik;
uses wincrt;
var s,t,u,v,w,x,y,z:string;
    p,q,i,j,k:integer;
begin
   clrscr;
   writeln;
   writeln('--------------------------------');
   writeln('-*((Program Huruf Terbalik))*-');
   writeln;
   writeln;
   writeln('masukan kalimat yang akan dibalik: ');
   readln(s);
   p:=length(s);
   i:=1;
   for q:=p downto 1 do
   begin
   insert(s[q],t,i);
   inc(i);
   end;
   writeln;
   writeln( 'hasilnya: ',t);
   readln;
end.
---------------------------------------------------

program deret_angka;
uses wincrt;
var i,n,deret: integer;
    coba:char;

begin
     clrscr;
     coba:='y';
     while coba='y' do
     begin
     writeln;
     writeln('---------------------------');
     writeln('-*((Program Deret_angka))*-');
     writeln;
     writeln;
     deret := 3;
     for i := 1 to 8 do
     begin
     write (deret);
     write (' ');
     deret := deret*3;
     end;
     writeln;
     writeln;
     write ('Coba Program Lagi? [y/t]: ');
     readln(coba);
     if coba='y' then coba:= 'y';
     end;
     readln;
end.
---------------------------------------------------

program deret_hitung;
uses wincrt;
var i,n,deret: integer;
    coba:char;

begin
     clrscr;
     coba:='y';
     while coba='y' do
     begin
     writeln;
     writeln;
     writeln(' " Program Deret_Hitung "');
     writeln(' ========================');
     writeln;
     deret := 3;
     for i := 1 to 10 do
     begin
     write (deret);
     write (' ');
     deret := deret + 3;
     end;
     writeln;
     writeln;
     write ('Coba Program Lagi? [y/t]: ');
     readln(coba);
     if coba='y' then coba:= 'y';
     end;
     readln;
end.
---------------------------------------------------

Program Faktorial_pascal;
uses wincrt;
function Faktorial(a:integer):longint;
   begin
   if (A=1)then
   Faktorial:=1
   else
   Faktorial:=a*faktorial(a-1);
   end;
   var
   x:integer;
   coba:char;
begin
   clrscr;
   coba:='y';
   while coba='y' do
   begin
   writeln;
   writeln(' " Program Faktorial "');
   writeln(' =====================');
   writeln;
   write(' Masukan Faktorial : ');readln(x);
   writeln(x, ' faktorial ','= ',faktorial(x));
   writeln;
   write (' Coba Program Lagi? [y/t]: ');
   readln(coba);
   if coba='y' then coba:= 'y';
   end;
   readln;
end.
---------------------------------------------------

program Deret_Kuadrat;
uses wincrt;
var max, i, a : integer;
    coba:char;

begin
  clrscr;
    coba:='y';
    while coba='y' do
  begin
    writeln;
    writeln('---------------------------');
    writeln('-*((Program Deret_Kuadrat))*-');
    writeln;
    writeln;
    i:=0;
    while i < 10 do
  begin
    i:= i + 1;
    a := i * i;
    write( a,' ');
  end;
    writeln;
    writeln;
    write ('Coba Program Lagi? [y/t]: ');
    readln(coba);
    if coba='y' then coba:= 'y';
  end;
  readln;
end.
---------------------------------------------------
program Login ;
uses wincrt;

var
 bil1,bil2,hasil,sisabagi: integer;


begin
 gotoxy(22,3);writeln(' ==================================== ');
 gotoxy(22,4);writeln(' PROGRAM HASIL & SISA PEMBAGIAN BULAT ');
 gotoxy(22,5);writeln(' ==================================== ');
 writeln;
 write(' masukkan bilangan yang akan dibagi: ');readln(bil1);
 write(' masukkan bilangan pembaginya: ');readln(bil2);
 hasil:= bil1 div bil2;
 sisabagi:= bil1 mod bil2;
 write('jadi hasil bagi bilangan tersebut adalah: ',hasil,' dan sisa baginya adalah: ',sisabagi);
 readln;
end.
---------------------------------------------------

program seleksi;
uses wincrt;
var i:integer;
begin
i:=0;
repeat i:=i+1;
writeln (i:2);
until i=5;
readln;
end.


---------------------------------------------------
program angka 9;
uses wincrt;
var ai,ao:integer;
begin
     for ai:=1 to 5 do
     begin
     for ao:=1 to 5 do
     if (((ai=1)or(ai=3))and((ao=2)or(ao=3)or(ao=4)))or((ao=1)and(ai<4))or(ao=5)or(ai=5)then
     write('*')
     else
     write(' ');
     writeln;
     end;
end.

---------------------------------------------------

program biodata;
uses crt; {atau uses wincrt;}
var nama, alamat : string; umur : integer;
begin clrscr;
 writeln('==========================================='); writeln(' Biodata'); writeln('==========================================='); write('Nama : '); readln(nama); write('Umur : '); readln(umur); write('Alamat : '); readln(alamat);
writeln('-------------------------------------------'); writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.'); writeln;
readkey;
 end.

---------------------------------------------------

program menampilkandatamahasiswa;
uses wincrt;

var
NRP,nilai_tugas,nilai_uts,nilai_uas,total_nilai,nilai_rata_rata : integer;
nama: char;

Begin
gotoxy(20,2);writeln('====================================');
gotoxy(20,3);writeln('= menampilkan data nilai mahasiswa =');
gotoxy(20,4);writeln('====================================');
writeln;
write('masukkan NRP: ');Readln(NRP);
write('masukkan nama: ');Readln(nama);
write('masukkan nilai tugas: ');Readln(nilai_tugas);
write('masukkan nilai uts: ');Readln(nilai_uts);
write('masukkan nilai uas: ');Readln(nilai_uas);
writeln;

total_nilai:=nilai_tugas + nilai_uts + nilai_uas;
nilai_rata_rata:=total_nilai div 3;

writeln('NRP:',NRP,' atas nama:',nama,' memperoleh nilai tugas:',nilai_tugas,' nilai uts:',nilai_uts,' nilai uas:',nilai_uas);
readln;
writeln('total nilainya adalah : ',total_nilai);readln;
writeln('nilai rata-ratanya adalah : ',nilai_rata_rata);readln;
End.