Tugas I

program logikamatematika;

uses

wincrt;

var angka : integer ;

var nama :string ;

begin

writeln(‘Assalamualaikum Wr.Wb’);

readln ;

write(‘Masukkan nama anda : ‘);

readln(nama);

write (‘Ok. ‘);

write (nama);

writeln (‘ Salam kenal’);

readln ;

writeln (‘Pernyataan nilai kebenaran dan kalimat terbuka’);

writeln(‘Pernyataan adalah kalimat yang hanya benar saja atau salah saja, tetapi dapat sekaligus benar dan salah’);

readln ;

writeln (‘Kalimat terbuka adalah kalimat yang memuat peubah/variabel,sehingga belum dapat ditentukan nilai kebenarannya’);

readln ;

writeln(‘contoh kalimat terbuka’) ;

readln;

writeln (‘misal 2x+3=11’);

write(‘Jika x diganti dengan : ‘);

readln (angka);

if (angka=4) then

writeln (‘maka pernyataan benar’);

readln ;

writeln (‘maka pernyataan salah’);

readln;

end.

*******************************************************************

Tugas II

program casepilih ;

uses wincrt ;

var pilih : char ;

var angka, hasil : integer ;

var kata : string ;

procedure pernyataan ;

begin

clrscr ;

writeln (‘pernyataan’);

readln ;

write(‘Pernyataan adalah kalimat yang hanya benar saja atau salah saja, tetapi dapat sekaligus benar dan salah’);

readln;

write(‘contoh:’);

writeln(‘4 adalah bilangan genap’);

writeln(‘Besi adalah benda padat’);

end;

procedure nilaikebenaran ;

begin

clrscr;

writeln (‘Lambang dan nilai kebenaran suatu pernyataan’);

readln;

write(‘pengertian: ‘);

writeln(‘Suatu pernyataan biasanya dilambangkan dengan memakai huruf kecil, seperti a, b, c, d, ….dan seterusnya.’);

writeln(‘Benar atau salah dari suatu pernyataan dapat ditentukan memakai dasar empiris dan dasar tak-empiris.’);

end;

procedure DasarEmpiris ;

begin

clrscr;

write(‘Dasar Empiris yaitu:’);

writeln(‘menentukan benar atau salah dari sebuah pernyataan’);

write(‘Contoh: ‘);

writeln(‘Ibukota jawa timur adalah surabaya, merupakan pernyataan benar.’);

writeln(‘Air adalah benda padat, merupakan pernyataan salah.’);

end;

procedure Dasartakempiris ;

begin

clrscr;

write(‘Dasar Tak Empiris’);

write(‘ Contoh:’);

writeln(‘Akar persamaan 3x – 1 = 5 adalah 2, merupakan pernyataan benar’);

end;

procedure kalimatterbuka ;

begin

clrscr;

write(‘kalimat terbuka adalah:’);

writeln(‘Kalimat yang membuat peubah/variabel, sehingga belum dapat ditentukan nilai kebenarannya (benar atau salah)’);

write(‘contoh:’);

writeln(‘Jika x diganti 3, diperoleh 2(3) + 3 = 11,merupakan pernyataan salah’);

writeln(‘Jika x diganti 4, diperoleh 2(4) + 3 = 11, merupakan pernyataan benar’);

end;

begin

writeln (‘logika matematika’);

readln ;

writeln (‘1. pernyataan ‘);

writeln (‘2. nilai kebenaran’);

writeln (‘3. dasar empiris’);

writeln (‘4. dasar tak empiris’);

writeln (‘5. kalimat terbuka’);

readln ;

write (‘silahkan masukan pilihan yang kamu sukai :’);

readln (pilih) ;

case pilih of

‘1’ : pernyataan ;

‘2’ : nilaikebenaran ;

‘3’ : dasarempiris ;

‘4’ : dasartakempiris ;

‘5’ : kalimatterbuka ;

else

writeln (‘….. E R O R …..’) ;

end;

end.

********************************************************************

Tugas III

program menuok ;

uses wincrt ;

var pilih,tanya : char ;

var angka, hasil : integer ;

var kata : string ;

procedure pernyataan ;

begin

clrscr ;

writeln (‘berikut ini materi tentang pernyataan nilai kebenaran dan kalimat terbuka’);

writeln (‘pengertian :’);

readln ;

writeln (‘______________’);

writeln (‘Materi Pertama’);

writeln (‘______________’);

writeln (‘Pengertian Pernyataan’);

readln ;

writeln (‘kalimat yang hanya benar saja atau salah saja, tetapi dapat sekaligus benar dan salah’);

readln ;

writeln (‘____________’);

writeln (‘Materi Kedua’);

writeln (‘____________’);

writeln (‘Lambang dan nilai kebenaran suatu pernyataan’);

readln;

writeln (‘Suatu pernyataan biasanya dilambangkan dengan memakai huruf kecil, seperti a, b, c,…dan seterusnya’);

writeln (‘Benar atau salah dari suatu pernyataan dapat ditentukan memakai dasar empiris dan dasar tak-empiris’);

readln ;

writeln (‘_____________’);

writeln (‘Materi Ketiga’);

writeln (‘_____________’);

writeln (‘Pengertian Dasar Empiris’);

readln ;

writeln (‘yaitu menentukan benar atau salah dari sebuah pernyataan berdasarkann contoh’);

writeln (‘Dasar tak empiris, lihat dicontoh’);

readln ;

writeln (‘______________’);

writeln (‘Materi Keempat’);

writeln (‘______________’);

writeln (‘Pengertian Kalimat Terbuka’);

readln ;

writeln (‘Kalimat yang memuat peubah/variabel, sehingga belum dapat ditentukan nilai kebenarannya (benar atau salah)’);

readln ;

end ;

procedure contoh ;

begin

clrscr ;

writeln (‘————————–‘);

writeln (‘|Contoh sebuah Pernyataan|’);

writeln (‘————————–‘);

readln ;

writeln (‘4 adalah bilangan genap’);

writeln (‘Besi adalah benda padat’);

readln ;

writeln (‘———————-‘);

writeln (‘|contoh Dasar Empiris|’);

writeln (‘———————-‘);

readln ;

writeln (‘Ibukota jawa timur adalah surabaya, merupakan pernyataan benar’);

writeln (‘Air adalah benda padat, merupakan pernyataan salah’);

readln ;

writeln (‘————————–‘);

writeln (‘|contoh Dasar tak Empiris|’);

writeln (‘————————–‘);

readln ;

writeln (‘Akar persamaan 3x – 1 = 5 adalah 2, merupakan pernyataan benar’);

readln ;

writeln (‘————————‘);

writeln (‘|contoh Kalimat Terbuka|’);

writeln (‘————————‘);

readln ;

writeln (‘Jika x diganti 3, diperoleh 2(3) + 3 = 11,merupakan pernyataan salah’);

writeln (‘Jika x diganti 4, diperoleh 2(4) + 3 = 11, merupakan pernyataan benar’);

readln;

writeln (‘———-‘);

writeln (‘|misalkan|’);

writeln (‘———-‘);

writeln (‘. . . 2x+3=11 . . .’);

write(‘Jika x diganti dengan : ‘);

readln (angka);

if (angka=4) then

writeln (‘maka pernyataan benar’);

readln ;

writeln (‘maka pernyataan salah’);

readln;

readln ;

end ;

begin

repeat

clrscr ;

writeln (‘”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”_”‘);

writeln (‘_______________________________________________’);

writeln (‘Pernyataan Nilai Kebenaran dan Kalimat Terbuka ‘);

writeln (‘_______________________________________________’);

readln ;

writeln (‘<. . . . . . . . . .>’);

writeln (‘| 1- pernyataan    |’);

writeln (‘<. . . . . . . . . .>’);

writeln (‘| 2- contoh         |’);

writeln (‘<. . . . . . . . . .>’);

readln ;

write (‘Silakan masukkan pilihan Anda….’);

readln (pilih);

case pilih of

‘1’ : pernyataan;

‘2’ : contoh;

else

writeln (‘{{{____________________ E R R O R ____________________}}}’);

readln ;

end;

writeln(‘Jika Anda Mau Melanjutkan !!! ‘);

write (‘Tekan yes/no……….!!!’);

readln(tanya);

until tanya=’no’;

clrscr;

writeln (‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);

writeln (‘……….Thanks You……….’);

writeln (‘______________________________’);

writeln (‘^^^^^^^^^^^^^^’);

writeln (‘Devi Wulandari’);

writeln (‘————–‘);

readln ;

writeln (‘Bila Anda ingin Menanyakan Sesuatu krimkan saja @-mail ke : …..’);

writeln (‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);

writeln (‘>>>>>>>>>>devi_wulandari15@rocketmail.com<<<<<<<<<<‘);

writeln (‘—————————————————‘);

end.

********************************************************************