Tugas Bu sri
program pemilihan_huruf_vokal;
uses wincrt;
var
huruf:char;
begin
write('masukan huruf');readln(huruf);
if(huruf='a') or (huruf='i') or (huruf='u') or (huruf='e') or (huruf='o') then
write('huruftertersebut merupakan huruf vokal')
else
write('huruf tersebut bukan merupakan huruf vokal')
end.
program bilangan_terbesar;
uses wincrt;
var
bilangan1,bilangan2:integer;
begin
write('masukan bilangan ke-1=');readln(bilangan1);
write('masukan bilangan ke-2=');readln(bilangan2);
if bilangan1>bilangan2 then
write('bilangan terbesar =',bilangan1)
else
write('bilangan terbesar =',bilangan1)
end.
Word kurang dari 65.000
Longint 65.000 sampai 2.000.000.000
program cetak_angka;
uses wincrt;
var
N, i:integer;
begin
write('tulis berapa angkanya?');readln(N);{isi dengan angka}
for i:=1 to N do
begin
write(i);
writeln;
end;
end.
program cetak_angka;
uses wincrt;
var
N, i:integer;
begin
write('tulis berapa angkanya sih?');readln(N);{isi dengan angka}
for i:=N downto 1 do
begin
write(i);
writeln;
end;
end.
program cetak_segitiga_bintang;
uses wincrt;
var
N,i,j:integer;
begin
write('tulis segitiga bintang?');readln(N);{isi dengan angka}
for i:=1 to N do
begin
write('*');
writeln;
end;
end.
program cetak_segitiga_bintang;
uses wincrt;
var
N,i,j:integer;
begin
write('tulis segitiga bintang?');readln(N);{isi dengan angka}
for i:=1 to N do
begin
for j:=1to i do
write('*');
writeln;
end;
end
program cetak_segitiga_bintang;
uses wincrt;
var
N,i,j:integer;
begin
write('tulis segitiga bintang?');readln(N);{isi dengan angka}
for i:=N downto 1 do
begin
for j:=1 to i do
write('*');
writeln;
end;
end..
program luas;
uses wincrt;
var
nomor_menu,panjang,lebar,alas,tinggi,jari_jari,luas_persegi_panjang:integer;
luas_segitiga,luas_lingkaran:real;
begin
writeln(' MENU LUAS ');
writeln('..........................................');
writeln(' 1.luas persegi panjang ');
writeln(' 2.luas segi tiga ');
writeln(' 3.luas lingkaran ');
writeln('..........................................');
write('masukan pilihan nomor menu (1/2/3 ?');readln(nomor_menu);
writeln('..........................................');
if (nomor_menu=1) then
begin
writeln(' masukan luas persegi panjang ');
writeln('.....................................');
write('masukan nilai panjang =');readln(panjang);
write('masukan nilai lebar =');readln(lebar);
luas_persegi_panjang:=panjang*lebar;
writeln('luas persegi paNJANG =-',LUAS_PERSEGI_PANJANG);
writeln('.....................................');
end
else if (nomor_menu=2) then
begin
writeln(' masukan luas segi tiga ');
writeln('.....................................');
write('masukan nilai alas =');readln(alas);
write('masukan nilai tinggi =');readln(tinggi);
luas_segitiga:=0.5*alas*tinggi;
writeln('luas persegi paNJANG =-',LUAS_segitiga:2:2);
writeln('.....................................');
end
else if (nomor_menu=3) then
begin
writeln(' masukan luas lingkaran ');
writeln('.....................................');
write('masukan nilai jari_jari =');readln(jari_jari);
luas_lingkaran:=3.14*jari_jari*jari_jari;
writeln('.....................................');
writeln('luas lingkaran =',luas_lingkaran:2:2);
writeln('.....................................');
end
else
begin
writeln('nomer menu yang anda pilih tidak ada !!!!!');
write('silahkan pilih nomer menu!!!!!');
end
end.
program luas_persegi_panjang; (1)
uses wincrt;
var
p,l,luas:integer;
begin
write('masukan nilai panjang=');readln(p);
write('masukan nilai lebar=');readln(l);
luas:=p*l;
writeln('maka luas persegi panjang adalah =',luas);
end.
program luas_persegi_panjang; (2)
uses wincrt;
var
p,l,luas:integer;
procedure hitung_luas;
begin
luas:=p*l;
writeln('maka luas persegi panjang adalah =',luas);
end;
{program utama}
begin
write('masukan nilai panjang=');readln(p);
write('masukan nilai lebar=');readln(l);
hitung_luas;
end.
program luas_persegi_panjang; (3)
uses wincrt;
var
p,l,luas:integer;
function
luas_(p,l:integer):integer;
begin
luas:=p*l;
end;
{program utama}
begin
write('masukan nilai panjang=');readln(p);
write('masukan nilai lebar=');readln(l);
write('masukan nilai persegi panjang adalah=',luas_(p,l));
end.
SoaL…………
Tuliskan program yang membaca tahanan (ohm) dan asus(amphere), kemudan kemudian menghitung tegangan yang di hasilkan dan menuliskan hasilnya perhitungan tegangan harus di tuliskan menjadi sebuah procedure bernama proses (infut-proses_autput)
Input : R:integer,tahanan(ohm)dan A:Integer, arus (amphere)
Proses menghitung V=R*A
outputV : Integer, tegangan (Volt).
- buat program dengan procedure
- buat program dengan Fungsi
JAWAB:
a. PROCEDURE
program menghitung_tegangan;
uses wincrt;
var
R,A,V:integer;
procedure hitung_tegang;
begin
V:=R*A;
writeln('Maka besarnya tegangan adalah =',V);
end;
begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);
hitung_tegang;
end.
procedure hitung_volume;
begin
volume:=p*l*t;
writeln('Maka Volume Balok adalah = ',volume);
end;
begin
write('Masukan nilai panjang = ');readln(p);
write('Masukan Nilai panjang = ');readln(l);
write('Masukan Nilai tinggi = ');readln(t);
hitung_volume;
end.
b. FUNCTION
program menghitung_tegangan;
uses wincrt;
var
R,A:integer;
Function tegangan(R,A:integer):integer;
begin
tegangan:=R*A;
end;
begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);
write('Maka besarnya tegangan adalah = ',tegangan(R,A));
end.
program anak_ayam;
uses wincrt;
var
a,b:integer;
begin
writeln('PROGRAM ANAK AYAM');
writeln('Tek Kotek Kotek Kojing ada ketek digigit anjing');
writeln('Tek Kotek Kotek Kojing anak ayam berkotek kotek');
write('Anak Ayam ada : ');read(a);
writeln;
for b:=a downto 2 do
writeln(' Anak ayam turun ',b,' Mati satu tinggal ',b-1);
writeln(' Anak ayam turun ',1,' Mati satu tinggal induknya');
writeln (' Anak Ayam mati semua mati satu mati semua ');
end.
Tidak ada komentar:
Posting Komentar