Tugas 1

program luas_permukaan_dan_volum_kerucut;

uses

wincrt;

var

r,t,luas,vol:real;

begin

write(‘PROGRAM KERUCUT’);writeln;

write(‘masukkan jari-jari tabung’);readln(r);

writeln(‘masukkan tinggi tabung’);readln(t);

luas:=22/7*r*r+t;

writeln(‘jadi luas kerucut adalah’,luas:0:2);

write(‘masukkan jari-jari kerucut:’);readln(r);

write(‘masukkan tinggi kerucut;’);readln(t);

vol:=22/7*r*r*t/3;

writeln(‘volume kerucut adalah’,vol:0:2);

end.

 

Tugas 2

program Kerucut2;

uses wincrt;

const

phi=3.141593;

var

nomor,panjang,lebar,sisi,luas,vol,keliling:integer;

r,d,alas,tinggi,selimut:real;

pilih: char;

begin

clrscr;

writeln(‘Selamat datang di Program Hitung kerucut’);

writeln(‘———–‘);

writeln(‘1. Tinggi kerucut ‘);

writeln(‘2. Luas alas kerucut ‘);

writeln(‘3. Luas Tabung dengan jaring berbentuk lingkaran’);

writeln(‘4. Keluar program’);

writeln(‘Masukan pilihan (1..4): ‘);

writeln(‘———–‘);

write(‘Masukan nomor =’);

readln(nomor);

case(nomor)of

1:writeln(‘Menghitung tinggi kerucut’);

2:writeln(‘Menghitung luas alas kerucut’);

3:writeln(‘Menghitung selimut kerucut’);

4:writeln(‘Menghitung luas permukaan kerucut’);

else

write(‘tidak ada program di nomor=’,nomor);

end;

if (nomor=1) then begin

writeln(‘/*===mulai menghitung Tinggi kerucut===*/’);

write(‘Masukan jari-jari =’);readln(r);

write(‘Masukan volume =’);readln(vol);

tinggi:=1/3*phi*r*r/vol;

writeln(‘jadi tinggi kerucut adalah’,tinggi:0:2);

end else if (nomor=2) then begin

writeln(‘/*===mulai menghitung Luas Alas kerucut===*/’);

write(‘Masukan jari-jari =’);readln(r);

alas:=phi*r*r;

writeln(‘jadi alas kerucut adalah’,alas:0:2);

end else if (nomor=3) then begin

writeln(‘/*===mulai menghitung Selimut kerucut===*/’);

write(‘Masukan jari-jari =’);readln(r);

writeln(‘masukan tinggi =’);readln(tinggi);

selimut:=r*tinggi;

writeln(‘jadi selimut kerucut adalah’,selimut:0:2);

end else if (nomor=4) then begin

writeln(‘***Keluar program***’);

write(‘…^_^terima kasih^_^…’)

end;

readln;

end.

 

Tugas 3

program menuOke_DIMENSI_3_KERUCUT;
uses wincrt;
var tanya,pilih:char;

procedure Mencari_Volum_Kerucut;
var jari_jari_lingkaran,tinggi_kerucut:integer;
var volum_kerucut:real;
begin
clrscr;
writeln(‘OPERASI MENCARI VOLUM KERUCUT’);
writeln(‘*****************************’);
write(‘masukan jari jari lingkaran:’);readln(jari_jari_lingkaran);
write(‘masukkan tinggi kerucut:’);readln(tinggi_kerucut);
writeln(jari_jari_lingkaran*jari_jari_lingkaran*tinggi_kerucut*3.14*0.33);
volum_kerucut:=jari_jari_lingkaran*jari_jari_lingkaran*tinggi_kerucut*3.14*0.33;
end;

procedure Mencari_Tinggi_Kerucut;
var volum,jari_jari_lingkaran:integer;
var tinggi_kerucut:real;
begin
clrscr;
writeln(‘OPERASI MENCARI TINGGI KERUCUT’);
writeln(‘******************************’);
writeln(‘masukan volum kerucut:’);
readln(volum);
writeln(‘masukan jari jari lingkaran:’);
readln(jari_jari_lingkaran);
writeln(volum/jari_jari_lingkaran*jari_jari_lingkaran*3.14*0.33);
tinggi_kerucut:=volum/jari_jari_lingkaran*jari_jari_lingkaran*3.14*0.33;
end;

procedure Mencari_jari_jari_kerucut;
var volum,tinggi:integer;
var jari_jari_kerucut:real;
begin
clrscr;
writeln(‘OPERASI MENCARI JARI-JARI KERUCUT’);
writeln(‘******************************’);
writeln(‘masukan volum kerucut:’);
readln(volum);
writeln(‘masukan tinggi kerucut:’);
readln(jari_jari_kerucut);
writeln(volum/tinggi*3.14*0.33);
jari_jari_kerucut:=volum/tinggi*3.14*0.33;
end;

procedure Mencari_Panjang_garis_pelukis;
var jari_jari,tinggi:integer;
var panjang_garis_pelukis:real;
begin
clrscr;
writeln(‘OPERASI MENCARI PANJANG GARIS PELUKIS’);
writeln(‘******************************’);
writeln(‘masukan tinggi kerucut:’);
readln(tinggi);
writeln(‘masukan jari-jari kerucut:’);
readln(jari_jari);
writeln(tinggi*tinggi+jari_jari*jari_jari);
Panjang_garis_pelukis:=tinggi*tinggi+jari_jari*jari_jari;
end;

begin
repeat
clrscr;
writeln(‘Nama : Iva istivaiyah’);
writeln(‘Nim  : 2225092151’);
writeln(‘Kelas: 3D’);
writeln(‘FKIP/ Pend. Matematika’);
writeln(‘###########################’);
writeln(‘program operasi matematika’);
writeln(‘##########################’);
writeln(‘1.Mencari volum kerucut’);
writeln(‘2.Mencari tinggi kerucut’);
writeln(‘3.Mencari jari jari kerucut’);
writeln(‘4.Mencari panjang garis pelukis’);
writeln(‘##########################’);
write(‘masukkan pilihan yang anda inginkan:….’);
readln(pilih);

case pilih of
‘1’:Mencari_Volum_Kerucut;
‘2’:Mencari_tinggi_kerucut;
‘3’:Mencari_jari_jari_kerucut;
‘4’:Mencari_panjang_garis_pelukis;
else
writeln(‘pilih sesuai yang di inginkan pada menu (“,)’);
writeln;
end;
write(‘Anda Masih Mau Lanjut [TEKAN y/t]:…’);readln(tanya);
until tanya=’t’;
clrscr;
writeln(‘=====Thank you for using this program=====’);
writeln(‘>>>>>>>Iva istivaiyah 3D Matematika<<<<<<<‘);
writeln(‘==============See..Yaaaa ^_^==============’);

end.

 

TUGAS 4

Program kerucut_function;

uses wincrt;

 

Function volum(r,t:real ):real;

begin

volum:=22/7*1/3*r*t;

end;

 

var

jari_jari,tinggi:real;

begin

clrscr;

writeln(‘Program Untuk Menghitung volum kerucut’);

writeln;

write(‘Masukan jari-jari : ‘);readln(jari_jari);

write(‘Masukan tinggi : ‘);readln(tinggi);

write(‘volumenya = ‘,volum(jari_jari,tinggi));

readln;

end.

 

 

Program kerucut_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.