TUGAS 1

program logika;
uses wincrt;
var nama,nim, prodi,jawaban : string;
begin
writeln (‘Dianita sedang memprogram tentang LOGIKA MATEMATIKA’);
writeln (‘masukkan nama anda:’) ;
readln (nama);
writeln (‘masukkan nim anda:’);
readln (nim);
writeln (‘masukkan prodi anda :’) ;
readln (prodi);
clrscr;
writeln(‘LOGIKA MATEMATIKA’);
writeln (‘PERNYATAAN DAN KALIMAT TERBUKA BESERTA INGKARANNYA’);
write (’1. Pernyataan adalah suatu kalimat yang mempunyai nilai yang benar saja dan salah saja,’);
writeln (‘ tetapi tidak boleh keduanya pada saat yang sama.’);
writeln (’2. Kalimat Terbuka adalah suatu kalimat yang memuat peubah atau variabel yang belum mempunyai nilai kebenarannya.’) ;
write (‘Kalimat terbuka dapat berubah menjadi pernyataan apabila peubahnya diganti oleh suatu negara semesta pembicaraan ‘);
writeln ( ‘ dan mempunyai nilai kebenaran.’);
write (’3. Kalimat Bukan Pernyataan adalah suatu kalimat yang mempunyai arti yang tetap,’);
writeln (‘ tetapi tidak mempunyai nilai benar atau salah.’);
write (’4. Himpunan Penyelesaian adalah semua pengganti peubah atau variabel yang menyebabkan kalimat terbuka menjadi’);
writeln (‘ pernyataan yang bernilai benar’) ;
writeln (‘Contoh: 4x+2 < 11 x merupakan bilangan asli’);
writeln (‘Penyelesaian: x=0, 0+2 < 11, 2 < 11′);
writeln (‘x=1, 4+2 < 11, 6 < 11′);
writeln (‘x=2, 8+2 < 11, 10 < 11′);
writeln (‘Maka Himpunan penyaelesaian HP= {0,1,2}’);
write (’5. Ingkaran atau Negasi adalah suatu pernyataan yang nilai kebenarannya berlawanan dengan nilai kebenaran dari’) ;
writeln (‘ pernyataan yang semua ingkaran dari pernyataan p ditulis ~p atau p.’);
write (‘Semua dari ingkaran jika p bernilai benar maka ~p bernilai salah dan jika p bernilai salah maka ‘);
writeln (‘ ~p bernilai benar.’);
writeln;
writeln (‘Latihan Soal’);
writeln (’1. Diketahui f(x)= 9x+15, jika f(2)= y, maka nilai y agar kalimat terbuka tersebut bernilai benar adalah’);
write (‘masukkan jawaban anda :’);
readln (jawaban);
if (jawaban= ‘ 33′) then write(‘Betul Sekali’)
else write (‘Salah!!’);
readln;
end.

TUGAS 2 (CASH PROSEDUR, WHILE DO, REPEAT UNTIL)

program casePilih;
uses wincrt;
var pilih:char;

procedure pernyataan;
var ibukota, provinsi, hasil, nama, email, pswrd: string;

begin
writeln;
writeln (‘masukkan username anda:’) ;
readln (nama);
writeln (‘masukkan email anda :’) ;
readln (email);
writeln (‘tuliskan password* (*permisi): ‘) ;
readln (pswrd) ;
clrscr;
writeln (‘Program Logika : Kalimat Pernyataan’);
writeln (‘masukkan nama ibukota suatu provinsi:’);
readln (ibukota);
writeln (‘masukkan nama provinsi dari ibukota yang ditulis:’);
readln (provinsi);
hasil:=ibukota+provinsi;
writeln (‘Maka dapat disimpulkan ‘,ibukota , ‘ adalah ibukota ‘ , provinsi);
end;

begin
write (‘pilih angka yang anda suka [1]pernyataan, [2]tidak ada, [3]kosong:’);
readln (pilih);
case pilih of
’1′ : pernyataan;
else
write (‘baca informasi yang tertera!’) ;
end;
end.

 

 

program whiledo_LogikaMTK;
uses wincrt;
var ulang,lihat:char;
var jawab:string;

begin
writeln(‘apakah anda tahu program while do??’);
readln(jawab);
if (jawab= ‘ya’) or (jawab= ‘YA’) then write(‘Exellent!!. Tekan enter maka anda dapat lihat contohnya’)
else write (‘Program ini dapat mengulang2 kata, kalimat,dsb. Anda bisa lihat contohnya berikut ini.’);
readln;
clrscr;
begin
while (ulang<>’T’) and (ulang<>’t’)do
begin
writeln;
writeln (‘=========================’);
writeln (‘program kalimat peryataan’);
writeln (‘=========================’);
writeln (‘Ir Soekarno adalah presiden pertama di Indonesia’);
writeln(‘[pernyataan diatas bernilai benar]‘);
writeln;
write(‘mau mengulanginya [y/t]?? ‘);
readln(ulang);
end;
end;
end.

 

 

program repeatuntil1;
uses wincrt;
var ulang :char;

begin
repeat
writeln (‘Selamat siang untuk Anda!’);
writeln (‘Pada kesempatan kali ini saya akan memperkenalkan:’);
writeln(‘——————————-’);
writeln(‘program logika: kalimat terbuka’);
writeln(‘——————————-’);
writeln(’5x – 5 < 11′);
writeln(‘jika x diganti dengan 1, maka berubah menjadi pernyataan bernilai benar’);
writeln(‘jika x diganti dengan 2, maka berubah menjadi pernyataan bernilai benar’);
writeln(‘jika x diganti dengan 3, maka berubah menjadi pernyataan bernilai benar’);
writeln(‘jika x diganti dengan 4, maka berubah menjadi pernyataan bernilai salah’);
writeln(‘jika x diganti dengan 5, maka berubah menjadi pernyataan bernilai salah’);
writeln;
write(‘anda mau mencoba ulang program ini [y/t]?’);
readln(ulang);
until (ulang=’t’);
writeln (‘terima kasih atas perhatiannya..’);
writeln (‘goodbye’);
end.

TUGAS 3 ( REPEATUNTIL & FOR TO)

program logikamatematika;
uses wincrt;
var tanya, pilih:char;
var komen: string;
procedure pernyataan;
var kata1, kata2, hasil:string;
begin
clrscr;
writeln (‘kalimat pernyataan’);
writeln (‘^^^^^^^^^^^^^^^^^^’);
writeln(‘Masukkan kota dalam sebuah provinsi di Indonesia:’);
readln(kata1);
writeln(‘Masukkan provinsi sesuai kota yang ditulis:’);
readln(kata2);
hasil:= kata1+kata2 ;
writeln(‘Diperoleh bahwa ‘,kata1,’ terletak di provinsi ‘,kata2,”);
end;
procedure negasi;
var angka: integer;
var hasil:string;
begin
clrscr;
writeln (‘negasi/ingkaran’);
writeln (‘^^^^^^^^^^^^^^^’);
writeln(‘Masukkan salah satu angka bilangan ganjil:’);
readln(angka);
writeln(‘Diperoleh bahwa negasi dari angka diatas adalah ‘,angka,’ bukan bilangan ganjil.’);
end;
procedure terbuka;
var jawaban : integer;
begin
clrscr;
writeln (‘kalimat terbuka’);
writeln (‘^^^^^^^^^^^^^^^’);
writeln (‘Diketahui f(x)= 9x+15, jika f(2)= y, maka nilai y agar kalimat terbuka tersebut bernilai benar adalah’);
write (‘masukkan jawaban anda :’);
readln (jawaban);
if (jawaban=  33) then write(‘Betul Sekali’)
else write (‘Salah!!’);
readln;
end;

begin
repeat
clrscr;
writeln(‘”””””””””””””””””””””””””‘);
writeln(‘Program Logika Matematika’);
writeln(‘”””””””””””””””””””””””””‘);
writeln(’1. Kalimat pernyataan’);
writeln(’2. Negasi/ingkaran’);
writeln(’3. Kalimat terbuka’);
writeln(‘”””””””””””””””””””””””””‘);
write(‘Masukan pilihan yang kamu suka ya:’);
readln (pilih);

case pilih of
’1′: pernyataan;
’2′: negasi;
’3′: terbuka;
else
writeln;
writeln(‘baca petunjuk yang diminta!! pahami perintahnya.’);
writeln;
end;
writeln;
writeln(‘Apa ingin melanjutkan halaman berikutnya?? [tekan y/t]‘);
readln(tanya);
until (tanya=’t’);
clrscr;
writeln (‘thanks buat mencoba program saya ini.. oke?’);
writeln(‘kritik dan saran bisa anda tuliskan disini..’);
writeln(‘kamu ingin berkomentar?’) ;
readln (komen);
if (komen=’ya’)  then write (‘silahkan dengan senang hati’)
else write (‘anda boleh meninggalkan program ini. bye..’);
end.

 

 

program forlogika;
uses wincrt;
var i, x, n:integer;
var hasil:longint;
begin
clrscr;
hasil:=0;
writeln(‘Himpunan Penyelesaian’);
writeln(‘”””””””””””””””””””””‘);
writeln(’2x + 1 < 20, x E R’);
writeln (‘Pertanyaan: nilai x yang memenuhi adalah.. tentukan Himpunan Penyelesaiannya!’);
for i:=0 to 4 do
begin
x:=2*i+1;
writeln (‘nilai x= ‘,2*i+1,”);
writeln (‘ Himpunan penyelesaian = {‘,2*i+1,’}’);
end;
readln;
writeln (‘Terima kasih telah berkunjung dalam program ini ya..’);
writeln (‘Tunggu program lainnya ya..’);
end.

 

TUGAS 4 ( array, FuncdanProc)

program Logikaarray;
uses wincrt;
var bilangan:array [1..5] of integer;
var i:integer;
var a:byte;
var ulang:char;
begin
while (ulang<>’T’) and (ulang<>’t’)do
begin
for i:= 1 to 5 do
begin
write (‘masukan bilangan ke-’,i,’ {*isi dengan bil.ganjil antara 1-10 secara berurutan}: ‘);
readln (bilangan[i]);
end;
writeln;
writeln (‘Jika ada suatu persamaan y= 4x+3. diketahui nilai y= 23.’);
writeln (‘Pertanyaan:’);
writeln ( ‘Nilai x yang memenuhi persamaan diatas adalah..’);
writeln;
writeln (‘Masukkan urutan bilangan ke- berapa untuk memenuhi nilai x!’);
readln(a);
writeln;
writeln( ‘urutan ke- ‘,a,’ adalah ‘, bilangan[a]);
if(a=3)then write (‘nilai x=5 maka 4×5 + 3 = 23. SELAMAT ANDA BENAR! ‘)
else writeln (‘Nilai x tidak cocok, ANDA SALAH! Mau mencoba lagi [y/t]??’);
readln(ulang);
clrscr;
end;
end.

 

 

program funcproc_logika;
uses wincrt;
var input:integer;
var jawab: string;
procedure garis;
begin
writeln (‘”””””””””””””””””””””‘);
end;

function pers( var a:integer):integer;
begin
pers:= a*a+2*a-8;
end;
procedure inputan (var input:integer);
begin
writeln (‘jika x= ‘,input,’ maka x2 + 2x – 8 = ‘,pers(input));
end;
begin
garis;
writeln (‘HIMPUNAN PENYELESAIAN’);
garis;
writeln (‘SOAL’);
writeln(‘Diketahui suatu persamaan x2 + 2x = 8. Maka himpunan penyelesaiannya adalah ‘);
writeln (‘a. [-4,1]‘);
writeln (‘b. [-4,2]‘);
writeln (‘c. [-2,4]‘);
writeln (‘d. [-4,-2]‘);
writeln (‘e. [2,4]‘);
writeln;
writeln (‘Penyelesaian: ‘);
writeln (‘x2 + 2x = 8′);
writeln (‘x2 + 2x – 8= 0′);
writeln(‘(x+4) (x-2) = 0′);
writeln (‘x=-4, x=2′);
writeln;
writeln (‘BUKTI !’);
writeln (‘masukan salah satu nilai x diatas:’);
readln (input);
inputan(input);
writeln;
writeln (‘Jadi, jawabannya adalah B’);
end.

About these ads