_tugas 1_

program logika;
uses wincrt;
var nama, prodi,jawaban : string;
begin
writeln (‘ratu dian sedang memprogram tentang LOGIKA MATEMATIKA’);
writeln (‘masukkan nama anda:’) ;
readln (nama);
writeln (‘masukkan prodi anda :’) ;
readln (prodi);
if (prodi= ‘matematika’) or (prodi= ‘MATEMATIKA’) then write(‘akses diterima: silahkan membaca ‘)
else write (‘akses ditolak: tidak diizinkan’);
readln;
clrscr;
writeln (‘PENARIKAN KESIMPULAN’);
write (‘1. suatu argumentasi dikatakan sah (valid) jika konjungsi dari premis premisnya benar.,’);
writeln (‘ ada 3 penarikan kesimpulan ,yaitu modus ponens modus tolen dan silogisme.’);
writeln (‘1.modus ponens’) ;
writeln (‘jika p => q benar,dapat di simpulkan q juga benar ‘);
writeln ( ‘prinsip modus ponens: ‘);
writeln (‘premis 1 : p => q (B),’);
writeln (‘premis 2 :p (B)’);
writeln (‘konklusi : q (B)’);
writeln (‘2 modus tollens’) ;
writeln (‘jika p => q benar dan ~q benar maka disimpulakan ~p juga benar’);
writeln (‘prinsip modus tollens:’);
writeln (‘premis 1 : p=>q (B)’);
writeln (‘premis 2 : ~q (B)’);
writeln (‘konklusi :~p (B)’);
writeln (‘3.silogisme’) ;
writeln (‘jika p =>q benar dan q=>r benar,maka dapat disimpulkan p=>r juga benar’);
writeln (‘premis 1 :p=>q (B)’);
writeln (‘premis 2 :q=>r (B)’);
writeln (‘konklusi :p=>r (B)’);
writeln (‘contoh soal’);
writeln (‘a.premis 1 :Jika hasan rajin maka ia pandai’);
writeln (‘ premis 2 :hasan rajin’);
writeln (‘ konklusi :……..’);
write (‘masukkan jawaban anda :’);
readln (jawaban);
if (jawaban= ‘ia pandai’) then write(‘Betul Sekali’)
else write (‘Salah!!’);
readln;

end;

end.

=======================================

_tugas 2_

program casepilih;

uses wincrt;

var pilih : char;

var kata : string;

procedure pembahasan ;

begin

clrscr;

writeln (‘PENARIKAN KESIMPULAN’);

writeln (‘ ada 3 penarikan kesimpulan ,yaitu modus ponens modus tolen dan silogisme.’);

writeln (’1.modus ponens’) ;

writeln (‘jika p => q benar,dapat di simpulkan q juga benar ‘);

writeln ( ‘prinsip modus ponens: ‘);

writeln (‘premis 1  : p => q (B),’);

writeln (‘premis 2  :p (B)’);

writeln (‘konklusi  : q (B)’);

writeln (’2 modus tollens’) ;

writeln (‘jika p => q benar dan ~q benar maka disimpulakan ~p juga benar’);

writeln (‘prinsip modus tollens:’);

writeln (‘premis 1 : p=>q (B)’);

writeln (‘premis 2 : ~q (B)’);

writeln (‘konklusi :~p (B)’);

writeln (’3.silogisme’) ;

writeln (‘jika p =>q benar dan q=>r benar,maka dapat disimpulkan p=>r juga benar’);

writeln (‘premis 1 :p=>q (B)’);

writeln (‘premis 2 :q=>r (B)’);

writeln (‘konklusi :p=>r (B)’);

writeln (‘contoh soal’);

writeln (‘a.premis 1 :jika badu rajin belajar, maka ia akan naik kelas’);

writeln (‘  premis 2 :badu rajin balajar’);

writeln (‘  konklusi :……..’);

readln ;

begin

end;

end.

=================================================

_tugas3_

program logika;uses
WinCrt;
var nama,prodi,jawaban:string;
var pilih,lagi:char;

procedure modus ponens;
var premis1,premis2,konklusi: string;

begin
clrscr;
writeln(‘1. modus ponens’);
writeln(‘jika p=>q benar, dapat disimpulkan q juga benar’);
write(‘Masukkan premis pertama : ‘);
readln(premis1: jika dia rajin maka dia pandai);
write(‘Masukkan premis kedua : ‘);
readln(premis2: dia rajin);
writeln(‘Konklusinya adalah : dia pandai’ );
end;

procedure modus tollens;
var premis1,premis2,konklusi: string;

begin
clrscr;
writeln(‘2.modus tollens’);
writeln(‘jika  p=>benar, maka disimpulkan ~p juga benar’) ;
write(‘Masukkan premis pertama : ‘);
readln(premis1: jika harga naik maka permintaan turun);
write(‘Masukkan premis kedua : ‘);
readln(premis2: permintaan tidak turun);
writeln(‘konklusinya adalah : harga tidak naik’);

procedure sillogisme;
var premis1,premis2,konklusi: string;

begin
clrscr;
writeln(‘3.sillogisme’);
writeln(‘jika p=>q benar dan q=>r benar, maka dapat disimpulkan p=> juga benar’)
write(‘Masukan premis pertama : ‘);
readln(premis1: jika ana belajar matematika, maka eva belajar fisika)
write(‘Masukan premis kedua : ‘)
readln(premis2: jika eva belajar fisika, maka ina belajar kimia)
writeln(‘konklusinya adalah :  jika ana belajar matematika, maka ina belajar kimia’);

end;

procedure lain;
var baris,kolom,jumbaris :integer;

begin
clrscr;
write (‘Jumlah Baris : ‘);readln(jumbaris);
FOR BARIS:=1 TO jumbaris do
begin

write (‘*’: jumbaris);
FOR kolom := 2 TO (2 *baris -1 ) do
begin
write(‘*’);
end;
end;
end;

begin
writeln(‘Haaiiii.. Selamat Datang di Dunia Logika Matematika’);
clrscr;
write(‘Silahkan Masukan Nama Anda :’);
readln(nama);
write(‘Silahkan Masukan Prodi Anda :’);
readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘Selamaaaaatt…. Anda berhasil memasuki dunia LOGIKA MATEMATIKA’)
else write(‘Anda Belum Berhasil. Silahkan Ulangi.’);
readln;

repeat
clrscr;
writeln (‘======================’);
writeln (‘Menu Logika Matematika’);
writeln (‘======================’);
writeln (‘1. Modus Ponens’);
writeln (‘2. Modus Tollens’);
writeln (‘3. Sillogisme’);
write (‘Masukan pilihan anda 1,2 atau 3: ‘);
readln(pilih);

case pilih of
1?: modus ponens;
2?: modus tollens;
3?: sillogisme;
else
writeln;
writeln(‘=====================================’);
writeln(‘Baca baik-baik!!!! Pilih yang ada !!!’);
writeln(‘=====================================’);
end;
write(‘Untuk melanjutkan program tekan [Y]. Untuk berhenti tekan [N]= ‘);
readln(lagi);

until(lagi=’N’) or (lagi=’n’);
clrscr;
writeln(‘=====================================’);
writeln(‘Terimakasih Telah Berkunjung ke Program Ini’);
writeln(‘Datang Kembali yaaa.. !’);
writeln(‘ratudian@yahoo.co.id’);
writeln(‘=====================================’);
end.
====================================================

_tugas 4_

program funcDanproc;

uses wincrt;

var x :array [1..2]  of string; z:integer;

var a,b,c,d,x1,x2:real;

nama:string[25];

var akar:integer;

var input:real;

procedure garis;

begin

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

end;

function siqt(var r:real):real;

begin

siqt:=sqrt(r)*sqrt(r)*r*sqr(r)*r*r*r*sqrt(r)*sqrt(r)*r*sqr(r)*r*r

end;

procedure inputan(var s:real);

begin

garis;

writeln(‘Hasil pangkat tiga belas dari’,input,’adalah’,siqt(input):2:0’);

garis;

end;

function siqt1(var p:integer):integer;

begin

siqt1:=p*p*p*p*p*p*p*p*p*p*p*p*p;

end;

end.

=============================

 

Program array;

uses wincrt;

procedure garis;

begin

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

end;

var n,i,tot,data,angka:integer;

var rata:real;

x:array [1..100] of integer;

function pangkat1(a:integer; n:integer):integer;

var

pangkat:integer;

begin

pangkat:=1;

pangkat:=pangkat*a;

pangkat1:=pangkat;

end;

begin

clrscr;

writeln(‘PROGRAM ARRAY’);

garis;

writeln;

write(‘masukkan jumlah data: ‘);readln(n);

writeln;

for i:= 1 to n do

readln(x[i]);

writeln;

write(‘data yang telah dimasukkan: ‘);

for i:= 1 to n do

write(x[i],’ ‘);

writeln;

garis;

end.

=========================================