Tugas Algoritma & Pemrograman 2A_No 5

uses wincrt;
var
input: real;
c, f, r: real;
suhu: char;
nilai: real;
back: char;
Celcius, Reamur, Fahrenheit: real;
label 100;

begin

100:
write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);
readln(suhu);

if(suhu <> ‘c’)then
if(suhu <> ‘f’)then
if(suhu <> ‘r’)then

begin
writeln(’Jenis suhu yang anda masukan salah, silahkan coba kembali’);
writeln;
goto 100;
end;

begin
write(’Masukkan nilai : ‘);
read(nilai);
readln;
end;

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi suhu : Celcius’);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘f’)then
begin
c:=(angka * 5/9);
r:=(angka * 4/9) + 32;
writeln(’Hasil konversi suhu : Fahrenheit’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘r’)then
begin
c:=angka * 5/4;
f:=(angka * 9/4) + 32;
writeln(’Hasil konversi suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda Ingin Kembali? (y/n) : ‘);
readln(back);

if(back=’n’)then
goto 100

end.

Read More

Tugas Algoritma & Pemrograman 2A_Bu Marliza

FOR ...TO...DO

uses crt;
var
i,j,n: integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.



FOR...DOWNTO...DO

uses crt;
var
k,l,n : integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for k := n downto 1 do
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.



REPEAT..UNTIL

uses crt;
var
a: integer;
begin
clrscr;
a := 1;
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.



WHILE..DO..BEGIN

uses crt;
var
a: integer;
begin
clrscr;
a :=0;
while(a <=5) do
begin
writeln( A);
A :=A+1;
end;
readln;
end.



WHILE..DO

uses crt;
var
p: integer;
begin
clrscr;
p := 1;
while p <= 20 do
begin
write(p,' ');
p := p + 1;
end;
readln;
end.


CASE ...OF

uses crt;
var
pil :integer;
begin;
clrscr;
writeln('===== MENU =====');
writeln('1: Pilihan 1');
writeln('2: Pilihan 2');
writeln('3: Pilihan 3');
writeln('4: exit');
write('Masukkan pilihan anda = ');readln(pil);
case pil of
1:begin
clrscr;
writeln('Pilihan 1');
readln;
end;
2:begin
clrscr;
writeln('Pilihan 2');
readln;
end;
3:begin
clrscr;
writeln('Pilihan 3');
readln;
end;
4:begin
clrscr;
writeln('EXIT');
readln;
end;
readln;
end.


IF...THEN

uses crt;
var
x : integer;
begin
clrscr;
write ('Masukkan Nilai anda : ');readln(x);
if x >= 75 then
writeln('baik')
readln;
end.

Read More

Program Data Nilai Berkondisi (IF…THEN…ELSE)

contoh program pascal dengan kondisi IF...THEN...ELSE


program Data_Nilai;

uses
crt;

var
nilai: integer;
begin
clrscr;
write('Masukkan nilai : '); readln(nilai);
if nilai >= 82 then
write ('Nilai A')
else if nilai >= 72 then
write ('Nilai B')
else if nilai >= 56 then
write ('Nilai C')
else if nilai >= 41 then
write ('Nilai D')
else if nilai <= 40 then
write ('Nilai E');
readln;
end.

Read More

Contoh Program Pascal

2 Contoh Program Pascal:

1. Menghitung Dua Buah Bilangan

program Menghitung_Dua_Buah_Bilangan;

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)

Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6


2. Menghitung Keliling dan Luas Persegi

program persegi;

uses
crt;

var
sisi : integer;
keliling, luas : real;

begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.

hasil output:
Masukkan sisi persegi: 2(misalkan)

keliling persegi = 8.00
luas persegi = 4.00

Read More