Nama : Aji Dulmajid Kelas : TI-B2. Algoritma dan Pascal. Kumpulan Script

Nama : Aji Dulmajid Kelas : TI-B2

Algoritma dan Pascal Kumpulan Script

Algoritma dan Pascal

Pemrogra man Pascal

Program Hello Program hello_pascal; Uses wincrt; Begin Writeln('Hello Selamat Datang') ; Writeln('Mari Belajar Pascal ') ; End. Program Hello2 Program hello_nama; Uses wincrt; var nama : String; Begin Write('Masukkan Nama Anda : ') ; Readln(nama); Writeln('Selamat Datang ',nama, ', apa kabar ?' ) ; End. Program Hitung Program penambahan_dua_bilangan; Uses wincrt; var Bil1 : integer; Bil2 : integer; Hasil : integer; Begin Write('Inputkan Bilangan pertama! : ') ; Readln(Bil1); Write('Inputkan Bilangan Kedua! : ') ; Readln(Bil2); Hasil := Bil1 + Bil2; Write(Bil1, ' + ', Bil2,' = ',Hasil ) End.

2

Begin Writeln('PROGRAM MENGHITUNG LUAS LINGKARAN'); Writeln('---------------------------------'); Writeln; Write('Inputkan Jari Jari Lingkaran : ') ; Readln(r); luas := sqr(PHI * r); Write('LUAS = ',luas:2:2); End.

Page

Program HitungLuasLingkaran; Uses Wincrt; Const PHI = 3.14; Var r : real; luas : real;

Pemrograman Pascal

Program Hitung2

Algoritma dan Pascal

Pemrogra man Pascal

Program Hitubng3 Program luas_persegi_panjang; Uses wincrt; Var p, l, Luas

: Integer;

{boleh real}

begin clrscr; write (’Masukkan nilai panjang = ’); readln (p); write (’Masukkan nilai lebar

= ’); readln (l);

Luas := p * l; write (’Jadi Luas Persegi Panjang adalah

’, Luas);

readln; end. Program Pertukaran Program pertukaran ; {mempertukarkan nilai A dan B. Nilai A dan B dibaca terlebih dahulu} Uses wincrt; Var A,B,C : integer; Begin Writeln(‘Nilai sebelum ditukar’); Writeln(‘================’); { baca nilai A dan B} Write (‘A = ’); readln(A); Write (‘B = ’); readln(B); Writeln;

C:=A;

{nilai A disimpan di C (tempat

penampungan sementara)} A:=B;

{A diisi dengan nilai B}

B:=C;

{isi nilai B dengan nilai A semula

yang disimpan di C} Writeln(‘Nilai setelah ditukar’); Writeln(‘===============’); Writeln (‘A = ’,A);

Pemrograman Pascal

{pertukarkan nilai A dan B}

Page

End.

3

Writeln (‘B = ’,B);

Algoritma dan Pascal

Pemrogra man Pascal

Program Komisi Karyawan program komisi_karyawan; uses wincrt; const persenkomisi= 0.5; var nama:string; hasil:integer; komisi:real; begin write ('Nama : ');readln (nama); write ('Hasil penjualan = Rp. ');readln(hasil); komisi:= hasil*persenkomisi; write

(nama,'

mendapatkan

komisi

sebesar

Rp.

',komisi:2:2) ; end.

Program konfersi program konversi; uses wincrt; var f :integer; c,r:real; begin writeln ('KONFERSI FARENHEIT'); writeln ('==================');

r:=(f-32)*4/9 ; writeln; writeln ('setelah dikonfersi :'); writeln ('Celcius = ',c:2:2); writeln ('Reamur = ',r:2:2); end.

4

c:=(f-32)*5/9 ;

Page

write ('suhu dalam farenheit : ');readln (f);

Pemrograman Pascal

writeln ;

Algoritma dan Pascal

Pemrogra man Pascal

Program IF 1 kasus PROGRAM IF_satu_kasus; USES WINCRT; Var Nilai:integer; begin Write('Masukan nilai anda : '); readln(Nilai); if (Nilai > 60) then writeln('Selamat Anda Lulus!!'); end.

Program IF 2 kasus PROGRAM IF_dua_kasus; USES WINCRT; Var Nilai:integer; begin Write('Masukan nilai anda : '); readln(Nilai); if (Nilai > 60) then writeln('Selamat Anda Lulus!!') else writeln('Maaf, anda belum berhasil'); end.

Program IF 3 kasus PROGRAM IF_tiga_kasus; USES WINCRT; Var Nilai:integer;

Write('Masukan nilai anda : '); readln(Nilai); if (Nilai <= 50) then begin writeln('Maaf, anda belum berhasil '); end else if (nilai<=70) then begin

Pemrograman Pascal

begin

writeln('Nilai anda C');

else

Page

5

end

Algoritma dan Pascal

Pemrogra man Pascal

if (nilai<=85) then begin writeln('Nilai anda B'); end else writeln('Nilai anda A'); end.

Program genap ganjil Program genapganjil; Uses wincrt; Var X : integer; Begin Write (‘masukkan bilangan= ’); read(x); Case x mod 2 of 0 : write (‘genap’); 1 : write (‘ganjil’); End; End.

Program nama bulan Program namabulan; Uses wincrt; Var Nomor_bulan:integer;

write

('ketikkan

nomor

');readln(nomor_bulan); case nomor_bulan of 1 : writeln ('januari'); 2 : writeln ('februari'); 3 : writeln ('maret'); 4 : writeln ('april'); 5 : writeln ('mei');

bulan

(1-12)

:

Pemrograman Pascal

begin

8 : writeln ('agustus');

Page

7 : writeln ('juli');

6

6 : writeln ('juni');

Algoritma dan Pascal

Pemrogra man Pascal

9 : writeln ('september'); 10 : writeln ('oktober'); 11 : writeln ('november'); 12 : writeln ('desember') else

writeln ('bukan bulan yang benar');

End; End.

Program genap program genap; uses wincrt; var x:integer; begin write ('masukkan sembarang bilangan: ');readln(x); if x mod 2 = 0 then writeln ('bilangan genap') else writeln ('bilangan ganjil'); end.

Program genap2 program genap; uses wincrt; var x:integer;

write ('masukkan bilangan: ');readln(x); if x > 0 then writeln ('bilangan positif') else if x < 0 then writeln ('bilangan negatif') else writeln ('bilangan nol')

Pemrograman Pascal

begin

Page

7

end.

Algoritma dan Pascal

Pemrogra man Pascal

Program pesan Program pesan; Uses wincrt; Var menu:integer; begin writeln ('Menu restoran "junk food"'); writeln ('========================='); writeln ('1. Hamburger'); writeln ('2. Hotdog')

;

writeln ('3. friedchiken'); write ('pilih pilihan anda : ');readln(menu); case menu of 1 : writeln ('"Selamat menikmati Hamburger"'); 2 : writeln ('"Selamat menikmati Hotdog"'); 3 : writeln ('"Selamat menikmati Friedchiken"'); Else Writeln (‘salah input, masukkan angka 1,2, dan 3’) end; end.

Program Menu program menu_persegi; uses wincrt; var menu:integer;

luas, keliling : real; begin writeln ('Menu Persegi Panjang'); writeln ('--------------------'); writeln ('1. Luas'); writeln ('2. Keliling'); write ('masukkan pilihan anda : ');readln(menu); writeln;

Pemrograman Pascal

p, l:integer;

begin write('panjang = ');readln(p);

Page

1:

8

case menu of

Algoritma dan Pascal

Pemrogra man Pascal

write('lebar = ');readln(l); luas:= p * l; writeln ('Luas persegi panjang adalah ',luas:2:2) end; 2:

begin write('panjang = ');readln(p); write('lebar = ');readln(l); Keliling:= 2 *(p + l); writeln

('Keliling

persegi

panjang

adalah

',keliling:2:2) end; else writeln ('coba cek kembali pilihan anda!'); end; end.

Program mencetak Program cetak; Uses wincrt; Var I:Integer; Begin For I:= 1 to 5 Do Writeln(‘sedang belajar for’); End.

Program penjumlahan deret

Uses wincrt; Var N :integer; :integer;

Jumlah:integer; Begin Write (‘berapa

N ?’);readln(N);

Jumlah:=0; I := 1 to N do Begin Jumlah := jumlah + i

9

For

Page

I

Pemrograman Pascal

Program penjumlahan_deret;

Algoritma dan Pascal

Pemrogra man Pascal

End; Writeln (‘jumlah deret = ‘ , jumlah); End.

Program mencetak menurun Program cetak_menurun; Uses wincrt; Var I:integer; Begin For I:=5 downto 1 do Begin Writeln(I); End; End.

Program perulangan while Program perulanganwhile; Uses wincrt; Var I:integer; Begin writeln('Program Perulangan dengan While'); I:=1; While i<= 10 do Begin

End.

10

End;

Page

I:=i+1;

Pemrograman Pascal

Writeln(i);

Algoritma dan Pascal

Pemrogra man Pascal

Program rata-rata Program rerata2; uses wincrt; var i,x,jumlah:integer; rerata:real; begin writeln('Masukan nilai-nilai (0 untuk berhenti)='); readln(x); i:=0; while x<>0 do begin i:=i+1; jumlah:=jumlah+x; read(x); end; rerata:=jumlah/i; writeln(‘Jumlah=’,jumlah); writeln(‘Rerata=’,rerata); end.

Program mencetak dengan repeat until Program cetak; Uses wincrt; Var i : Integer;

i:= i+1; Writeln (i); Until i=5; End.

11

Repeat

Page

i:=0;

Pemrograman Pascal

Begin

Algoritma dan Pascal

Pemrogra man Pascal

Program mencetak ulangan ke 1 sampai ke 10 Program cetak; Uses wincrt; Var n : integer; Begin n := 1; Repeat Writeln ('Ulangan ke :',n); n := n + 1; Until n >= 10; Readln; End.

Program menghitung berat badan ideal program berat_badan; uses wincrt;

var t,m:real; j:char;

begin repeat begin

write('Anda Ingin menghitung lagi?=');readln(j); end; until (j<>'y'); end.

12

writeln('Berat ideal Anda= ',m:2:0);

Page

m:=((t-100)-(0.1*(t-100)));

Pemrograman Pascal

write('Masukkan tinggi badan Anda=');readln(t);

Algoritma dan Pascal

Pemrogra man Pascal

Program perulangan repeat2 Program Perulangan_Repeat_2 ; Var I, J : Integer ; Begin I := 0 ; Repeat I := I + 1 ; J := 0 ; Repeat J := J + 1 ; Writeln (I : 5, J : 5) ; Until J = 3 ; Until j = 3 ; End.

Program gaji Program gaji; uses crt; var gapok: longint; gaji,tunj: real; gol: char; nama, alamat, status: string; begin

Page

13

Pemrograman Pascal

clrscr;

Algoritma dan Pascal

Pemrogra man Pascal

Program deret bintang program deret; uses wincrt; var I,j,n:integer; begin write ('masukkan N= ');readln (N); for i := n downto 1 do begin for j :=

1 to i do

begin write ('*'); end; writeln; end; end.

Program cetak nomor program cetak2N; uses wincrt; var i,n:integer; begin write('masukkan nilai N= ');readln(N); i:=1;

i:=i+1; end; end.

14

writeln (i);

Page

begin

Pemrograman Pascal

while i<= n do

Algoritma dan Pascal

Pemrogra man Pascal

Program jumlah deret program cetak2N; uses wincrt; var i,n,jumlah:integer; begin write('masukkan nilai N= ');readln(N); jumlah:=0; i:=1; while i<= n do begin jumlah:=jumlah+i; i:=i+1; end; write ('jumlah deret = ',jumlah);

Page

15

Pemrograman Pascal

end.