100% found this document useful (1 vote)
121 views6 pages

Kaulan Karima-WPS Office

The document contains 17 program code examples in Pascal demonstrating various mathematical and logical functions. The examples include programs to perform integer and real number calculations, generate random numbers, calculate fractions, logarithms, square roots, exponents, and use character functions like ORD, CHR, ODD, etc. Loops and conditional statements are used to iterate through calculations and display results.

Uploaded by

Kaulan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
100% found this document useful (1 vote)
121 views6 pages

Kaulan Karima-WPS Office

The document contains 17 program code examples in Pascal demonstrating various mathematical and logical functions. The examples include programs to perform integer and real number calculations, generate random numbers, calculate fractions, logarithms, square roots, exponents, and use character functions like ORD, CHR, ODD, etc. Loops and conditional statements are used to iterate through calculations and display results.

Uploaded by

Kaulan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 6

Kaulan Karima

Pemrog Dasar

1. program matematika_bil_bulat;
uses crt;
var bil1, bil2, hasil : integer;
pil : char;
op : string;
begin
clrscr;
writeln('=================================');
writeln('Operasi Matematika Bilangin Bulat');
writeln('=================================');
writeln('1. penjumlahan dengan +');
writeln('2. pengurangan dengan -');
writeln('3. perkalian dengan *');
writeln('4. pembagian dengan DIV');
writeln('5. sisa hasil bagi dengan MOD');
write('masukkan bilangan pertama : ');readln(bil1);
write('masukkan bilangan kedua : ');readln(bil2);
write('masukkan operator matematika [1|2|3|4|5];');readln(pil);
case pil of
'1' : begin
hasil := bil1 + bil2;
op := '+';
end;
'2' : begin
hasil := bil1 - bil2;
op := '-';
end;
'3' : begin
hasil := bil1 * bil2;
op := '*';
end;
'4' : begin
hasil := bil1 div bil2;
op := 'DIV';
end;
'5' : begin
hasil := bil1 mod bil2;
op := 'MOD';
end;
else writeln('pilihan yang anda masukkan salah');
end;
writeln(bil1,' ',op,' ',bil2,' = ',hasil);
readln;
end.

2. program matematika_bil_real;
uses crt;
var bil1, bil2, hasil : single;
pi1 : char;
op : string;
begin
clrscr;
Writeln('===============================');
Writeln('operasi matematika bilangan real');
Writeln('===============================');
writeln('1. penjumlahan dengan +');
WriteLn('2. penguranngan dengan -');
Writeln('3. perkalian dengan *');
Writeln('4. pembagian dengan /');
write('masukkan bilangan pertama : ');
readln(bil1);
write('masukkan bilangan kedua : ');
readln(bil2);
write('masukkan operator matematika [1|2|3|4]:');
readln(pi1);
case pi1 of
'1' : begin
hasil := bil1 + bil2;
op := '+';
end;
'2' : begin
hasil := bil1 - bil2;
op := '-';
end;
'3' : begin
hasil := bil1 * bil2;
op := '*';
end;
'4' : begin
hasil := bil1 / bil2;
op := '/';
end;
else writeln('pilihan yang Anda masukkan salah');
end;
writeln(bil1,' ',op,' ',bil2,' = ',hasil);
readln;
end.

3.program acak_bilangan;
uses crt;
var i : integer;
begin
clrscr;
for i:=1 to 20 do
begin
writeln('Bilangan ke ',i,' = ',random(100));
end;
readln;
end.

4. program Frac_real;
uses crt;
var hasil : single;
begin
clrscr;
hasil :=FRAC(1,64);
writeln('Penggunaan Frac = ',hasil);
readln;
end.

5.program hitung_int;
uses crt;
var hasil : real;
begin
clrscr;
hasil := 1 + 1,2;
hasil := INT(hasil);
writeln('Penggunaan INT dari ',x,' = ',hasil);
readln;
end.

6.program logaritma;
uses crt;
var hasil : real;
x : integer;
begin
clrscr
x := 100;
hasil := LN (x);
writeln('Penggunaan LOG dari ',x,' = ',hasil);
readln;
end.

7.program sinus;
uses crt;
var hasil : integer;
x : integer;
begin
clrscr;
x := 60;
hasil := SIN(x);
writeln('Penggunaan SIN ',x,' = ',hasil);
readln;
end.

8.program kuadrat;
uses crt;
var hasil1,x : real;
hasil2,y : integer;
begin
clrscr;
x := 10,2;
y := 3;
hasil1 := SQR(x);
hasil2 := SQR(y);
writeln('Penggunaan SQR dari ',x,' = ',hasil1);
writeln('Penggunaan SQR dari ',y,' = ',hasil2);
readln;
end.

9.program akarkuadrat;
uses crt;
var hasil1,x : real;
hasil2 : real;
y : integer;
begin
clrscr;
x := 4;
y := 16;
hasil1 := SQRT (x);
hasil2 := SQRT (y);
writeln('Penggunaan SQRT dari ',x,' = ',hasil1);
writeln('Penggunaan SQRT dari ',y,' = ',hasil2);
readln;
end.

10.program hitungpangkat;
uses crt;
var hasil,x : integer;
i,pangkat : integer;
begin
clrscr;
x := 4;
pangkat := 4;
hasil := 1;
if pangkat <> 0 then
begin
for i := 1 to pangkat do
begin
hasil := hasil * x;
end;
end.
else
begin
hasil := 0
end;
writeln(x,' pangkat ',pangkat,' = ',hasil);
readln;
end.

11. program tampil_pred;


uses crt;
var
x, angka : integer;
y, kar : char;
bol, hasil : boolean;
kata,kata2 : string;
begin
clrscr;
x := 11;
y := 'D';
bol := true;
angka := FRED(x);
kar := FRED(y);
hasil := FRED(bol);
writeln(hasil);
writeln('Nilai FRED dari ',x,' = ',angka);
writeln('Nilai FRED dari ',y,' = ',kar);
readln;
end.
12. program tampil_succ;
uses crt;
var
x, angka : integer;
y, kar : char;
bol, hasil : boolean;
begin
clrscr;
x := 100;
y := 'z';
bol := false;
angka := SUCC(x);
kar := SUCC(y);
hasil := SUCC(bol);
writeln(hasil);
writeln('Nilai SUCC dari ',x,' = ',angka);
writeln('Nilai SUCC dari ',y,' = ',kar);
readln;
end.

13. program tampil_chr;


uses crt;
var
x : integer;
kar : char;
begin
clrscr;
x := 100;
kar := CHR(x);
writeln('Nilai CHR dari ',x,' = ',kar);
readln;
end.

14 . program tampil_ord;
uses crt;
var
x : integer;
kar : char;
begin
clrscr;
kar := '@';
x := ORD(kar);
writeln('Nilai CHR dari ',kar,' = ',x);
readln;
end.

15.program fungsi_odd;
uses crt;
var
x : integer ;
hasil : boolean;
begin
clrscr;
x:=11;
hasil := ODD(x);
writeln(x,' apakah bilangan ganjil ? ',hasil);
readln;
end.

16. program INC_DEC;


uses crt;
var
x : integer;
begin
clrscr;
x := 1;
writeln('Perintah INC dengan while');
while x <= 10 do
begin
write(x,' ');
INC(x);
end;
writeln();
writeln('Perintah DEC dengan while');
while x >= 1 do
begin
write(x,' ');
DEC(x);
end;
readln;
end.

17. program acak_bilangan;


uses crt;
var : integer;
begin
clrscr;
for i:=1 to 20 do
begin
writeln('Bilangan ke ',i,' = ',random(100);
end;
readln;
end.

You might also like