TUGAS 1 : SPLK DENGAN BAGIAN KUADRAT BERBENTUK EKSPLISIT

program SPLK ;

uses wincrt;

var nama, nama1, nama2 : string ;

begin

writeln (‘SPLK dengan Bagian Kuadrat Berbentuk Eksplisit’);

readln ;

writeln (‘Manakah di antara persamaan berikut yang merupakan bagian linear/kuadrat’);

readln ;

writeln (‘y = ax + b, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama1);

if (nama1=’bagian linear’) or (nama1=’linear’) then

begin

writeln (‘Anda memang pintar’);

end

else

begin

writeln (‘Anda kurang beruntung’);

end ;

readln ;

writeln (‘y = px^2 + qx + r, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama2);

if (nama2=’bagian kuadrat’) or (nama2=’kuadrat’) then

begin

writeln (‘Anda jago ya’);

end

else

begin

writeln (‘Wah, ternyata anda bodoh’);

end ;

readln ;

writeln (‘Ok. Kita langsung ke contoh’);

readln ;

clrscr ;

writeln (‘Misalkan ada persamaan : ‘);

writeln (‘y = x + 2’);

writeln (‘y = x^2’);

writeln (‘maka untuk menyelesaikannya yaitu dengan cara mensubstitusi’);

writeln (‘bagian linear ke bagian kuadrat yang diperoleh’);

readln ;

writeln (‘x + 2 = x^2’);

writeln (‘x^2 – x – 2 = 0’);

readln ;

writeln (‘maka didapat x = -1 / x = 2’);

writeln (‘kemudian substitusi x ke persamaan y = x + 2’);

readln ;

writeln (‘jadi himpunan SPLK itu adalah {(-1,1),(2,4)})’);

write (‘benar atau tidak ? ‘);

readln (nama);

if (nama=’benar’) then

begin

writeln (‘Terima kasih telah memahami materi ini, dan cukup sekian perjumpaan kita’);

writeln (‘Wassalam’);

end

else

begin

writeln (‘Silakah ulangi dari bagian awal lagi’);

end;

end.

TUGAS 2 : PROGRAM CASE_OF

program CASE_PILIHAN;

uses

wincrt;

var

pilih:char;

procedure

penjumlahan;

var

bil1,bil2:integer;

var

hasil:real;

begin

clrscr;

writeln(‘ANDA MASUK DALAM PROGRAM PENJUMLAHAN’);readln;

write(‘Masukkan Bilangan Bulat pertama: ‘);readln(bil1);

write(‘Masukkan Bilangan Bulat kedua: ‘);readln(bil2);

hasil :=bil1+bil2;

write (‘hasil penjumlahan ‘,bil1,’ dengan ‘,bil2,’ adalah:’,hasil:3:0);readln;

write(‘selamat anda BENAR’);

end;

begin

write(‘assalamualaikum, silahkan tekan ENTER!’);readln;

clrscr;

write(‘Masukan Pilihan Anda [1],[2],[3] : ‘);readln(pilih);readln;

case pilih of

‘1’: penjumlahan;

‘2’:write(‘SILAHKAN PILIH ANGKA YANG LAIN!’);

‘3’:write(‘ANDA KURANG BERUNTUNG’);

else

write(‘COBA LAGI!!!’);

end;

end.

TUGAS 3

Program menuOke;

uses wincrt;

var tanya,pilih: char;

procedure kali ;

var a,b,hasil:integer;

begin

clrscr;

writeln(‘OPERASI PERKALIAN’);

writeln (‘==============’);

write(‘masukan bilangan ke-1:’);

readln(a);

write(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil kali’,a,’dengan’,b,’adalah’,hasil);

end;

procedure bagi ;

var a,b,hasil:real;

begin

clrscr;

writeln(‘OPERASI PEMBAGIAN’);

writeln (‘==============’);

write(‘masukan bilangan ke-1:’);

readln(a);

write(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a/b;

writeln(‘hasil bagi’,a,’dengan’,b,’adalah’,hasil);

end;

procedure pangkat ;

var a,b,hasil:integer;

begin

writeln(‘OPERASI PERKALIAN’);

writeln (‘==============’);

writeln(‘masukan bilangan ke-1:’);

readln(a);

writeln(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil kali’,a,’dengan’,b,’adalah’,hasil);

end;

procedure akar ;

var a,b,hasil:integer;

begin

writeln(‘OPERASI PERKALIAN’);

writeln (‘==============’);

writeln(‘masukan bilangan ke-1:’);

readln(a);

writeln(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil akar’,a,’dengan’,b,’adalah’,hasil);

end;

begin

repeat

clrscr;

writeln(‘===========’);

writeln(‘PROGRAM OPERASI MATEMATIKA’);

writeln(‘==========’);

writeln(‘1.perkalian’);

writeln(‘2.pembagian’);

writeln(‘3.perpangkatan’);

writeln(‘4.pengakaran’);

writeln(‘================’);

write(‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’: kali;

‘2’:bagi;

‘3’:pangkat;

‘4’:akar;

else

writeln;

writeln(‘Pilih seuai menu!!!’);

end;

write (‘Anda Masih Mau Lanjut[TEKAN y/t]:….’);

readln (tanya);

until (tanya=’t’)or (tanya=’T’);

clrscr;

writeln(‘TERIMAKASIH ANDA TELAH MEMAKAI PROGRAM KAMI’);

writeln(‘nade.miobi02@gmail.com’);

writeln(‘sampai jumpa’);

end.

program forulangterbata;

uses wincrt;

var i:byte;

var hasil:longint;

begin

hasil:=1;

for i:= 1 to 8 do

begin

hasil:=hasil*i;

writeln(hasil);

end;

end.

program forulangterbata;

uses wincrt;

var i, bil, hasil1,hasil2:byte;

begin

writeln(‘masukan bilangan:’);

readln(bil);

hasil1:=bil mod 2;

hasil2:=bil mod 3;

if hasil1=0 then writeln(bil,’mempunyai faktor 2′) ;

if hasil1=0 then writeln(bil,’mempunyai faktor 3′)

else

writeln(bil,’mungkin mempunyai faktor yang lain’);

end.

program SPLK ;

uses wincrt;

var nama, nama1, nama2 : string ;

begin

writeln (‘SPLK dengan Bagian Kuadrat Berbentuk Eksplisit’);

readln ;

writeln (‘Manakah di antara persamaan berikut yang merupakan bagian linear/kuadrat’);

readln ;

writeln (‘y = ax + b, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama1);

if (nama1=’bagian linear’) or (nama1=’linear’) then

begin

writeln (‘Anda memang pintar’);

end

else

begin

writeln (‘Anda kurang beruntung’);

end ;

readln ;

writeln (‘y = px^2 + qx + r, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama2);

if (nama2=’bagian kuadrat’) or (nama2=’kuadrat’) then

begin

writeln (‘Anda jago ya’);

end

else

begin

writeln (‘Wah, ternyata anda bodoh’);

end ;

readln ;

writeln (‘Ok. Kita langsung ke contoh’);

readln ;

clrscr ;

writeln (‘Misalkan ada persamaan : ‘);

writeln (‘y = x + 2’);

writeln (‘y = x^2’);

writeln (‘maka untuk menyelesaikannya yaitu dengan cara mensubstitusi’);

writeln (‘bagian linear ke bagian kuadrat yang diperoleh’);

readln ;

writeln (‘x + 2 = x^2’);

writeln (‘x^2 – x – 2 = 0’);

readln ;

writeln (‘maka didapat x = -1 / x = 2’);

writeln (‘kemudian substitusi x ke persamaan y = x + 2’);

readln ;

writeln (‘jadi himpunan SPLK itu adalah {(-1,1),(2,4)})’);

write (‘benar atau tidak ? ‘);

readln (nama);

if (nama=’benar’) then

begin

writeln (‘Terima kasih telah memahami materi ini, dan cukup sekian perjumpaan kita’);

writeln (‘Wassalam’);

end

else

begin

writeln (‘Silakah ulangi dari bagian awal lagi’);

end;

end.

end.

 

TUGAS 4

program funcDanproc_dan_PesanLokasiArray ;
uses wincrt;
var maju :longint ;
var nama,nama1,nama2,nama3 :string;
var angka,angka1,angka2,angka3: longint;
var sistempersmaanlinierdankudratbagianeksplesit :array [1..5] of longint ;
var i:longint;
var aha: byte;
procedure garis;
begin
writeln (‘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
end;
procedure garis2;
begin
writeln (‘++++++++++++++++++++++++++++++’);
end;
procedure apaaja(var a:longint);
function hasil (var a:longint) : longint ;
begin
hasil :=angka*a*a+angka2*a+angka3;
end;
begin
for i :=1 to 5 do
end;
begin
writeln (‘SPLK dengan Bagian Kuadrat Berbentuk Eksplisit’);
readln ;
writeln (‘Manakah di antara persamaan berikut yang merupakan bagian linear/kuadrat’);
readln ;
writeln (‘y = ax + b, bagian linear/kuadrat ? ‘);
writeln (‘Jawab.’);
readln (nama1);
if (nama1=’bagian linear’) or (nama1=’linear’) then
begin
writeln (‘Anda memang pintar’);
end
else
begin
writeln (‘Anda kurang beruntung’);
end ;
readln ;
writeln (‘y = px^2 + qx + r, bagian linear/kuadrat ? ‘);
writeln (‘Jawab.’);
readln (nama2);
if (nama2=’bagian kuadrat’) or (nama2=’kuadrat’) then
begin
writeln (‘Anda jago ya’);
end
else
begin
writeln (‘Wah, ternyata anda bodoh’);
end ;
readln ;
writeln (‘Ok. Kita langsung ke contoh’);
readln ;
clrscr ;
writeln (‘Misalkan ada persamaan : ‘);
writeln (‘y = x + 2’);
writeln (‘y = x^2’);
writeln (‘maka untuk menyelesaikannya yaitu dengan cara mensubstitusi’);
writeln (‘bagian linear ke bagian kuadrat yang diperoleh’);
readln ;
writeln (‘x + 2 = x^2?’);
writeln (‘x^2 – x – 2 = 0?’);
readln ;
writeln (‘maka didapat x = -1 / x = 2?’);
writeln (‘maka didapat x = -1 / x = 2’);
writeln (‘kemudian substitusi x ke persamaan y = x + 2’);
readln ;
writeln (‘jadi himpunan SPLK itu adalah {(-1,1),(2,4)})’);
write (‘benar atau tidak ? ‘);
readln (nama);
if (nama=’benar’) then
begin
writeln (‘Terima kasih telah memahami materi ini, dan cukup sekian perjumpaan kita’);
writeln (‘Wassalam’);
end
else
begin
writeln (‘Silakah ulangi dari bagian awal lagi’);
end;
end.