tugas pemkom

1. Membuat identitas diri.

program identitas_diri;
uses crt;
var N,S,j,F,A:integer;
begin
clrscr;
write('nama :');readln;
write('stambuk :');readln;
write('jurusan :');readln;
write('fakultas :');readln;
write('alamat :');readln;
readln;
end.





2. program konversi hari

Program Konversi_Hari;
Uses Crt;
Var
H,Hr,T,B,M,sisa,sisa2:integer;
begin
clrscr;
write('jumlah hari dikonversi=');readln(H);
T:=H div 365;
sisa:=H mod 365;
B:=sisa div 30;
sisa2:=sisa mod 30;
M:=sisa2 div 7;
Hr:=sisa2 mod 7;
write('jumlah tahun=',T);
writeln;
write('jumlah bulan=',B);
writeln;
write('jumlah minggu=',M);
writeln;
writeln('jumlah hari tersisa=',Hr);
readln;
end.



3. deret aritmatika
a. dengan for…do












b. dengan while….do



c. deret aritmatika dengan menggunakan repeat……until







4. program pilihan


program pilihan;
uses crt;
var pilih : char;
p,luas,a,a1,b,t,r,luas1,luas2,luas3:real;
begin
clrscr;
writeln('pilihan proses');
writeln('----------------');
writeln;
writeln('1.Menghitung luas segitiga');
writeln('2.Menghitung luas lingkaran');
writeln('3.Menghitung luas trapesium');
writeln('4.Keluar');
writeln;
write('(1234):');
readln (pilih);
writeln('--------------');
case pilih of
'1': begin
clrscr;
writeln ('menghitung luas segitiga');
writeln('-------------------------');
write('alas : ');readln(a);
write('tinggi : ');readln(t);
luas1:=(a*t)/2;
writeln('luas1:',luas1:4:2);
writeln;
write ('tekan enter untuk melenjutkan..!');
readln;
end;
'2': begin
clrscr;
writeln ('menghitung luas lingkaran');
write ('jari-jari :');
readln(r);
luas2:= pi*r*r;
writeln ('luas2 :',luas2:4:2);
writeln ('tekan enter untuk melenjutkan..!');
readln;
end;
'3': begin
clrscr;
writeln ('menghitung luas trapesium');
write ('masukan nilai a=');readln(a1);
write ('masukan nilai b =');readln(b);
write('masukkan tinggi = ');readln(t);
luas3:=(a1+b)*t*0.5;
writeln('luas3 :',luas3 :4:2);
writeln ('tekan enter untuk melanjutkan..!');
readln;
end;
'4': halt;
end;
write ('keluar.....');
readln;
write ('tekan enter');
end.