TUGAS PASCAL 1

NAMA       : YUSRINA FITRIA                                                          ‘Praktikum’

NIM           : 1201252

PRODI       : Pend. Matematika (R) ‘12

                                           

1.            Program Menghitung Luas Lingkaran yang diketahui Kelilingnya

Program Luas_Lingkaran; Uses crt; Var      K      :  integer;      L,r    :  real; Begin      {bagian masukkan)      clrscr;      write(‘Masukkan Keliling Lingkaran : ‘); readln(K);      {bagian proses}      r:=K*7/44;      L:=(22/7)*r*r;      {bagian keluaran)      clrscr;      write(‘Untuk Keliling : ‘,K,‘, maka Luas Lingkarannya = ‘,L:0:1);      readln; End.

2.            Program MATEMATIKA menjadi MATA MATA , MAKA

Program Matematika; Uses crt; Var      word  :  string;      Begin      clrscr;      word:=’MATEMATIKA’;      delete(word,4,6); writeln(word,’  ‘,word);      word:=’MATEMATIKA’;      delete(word,3,6); writeln(word);      readln; End.

3.            Program Mengubah satuan detik ke jam + menit + detik

Program konverter_waktu; Uses crt; Var      w,x,y,z        :  longint;      h,m,s          :  integer; Begin      clrscr;      write(‘Masukkan nilai waktu (detik) : ‘); readln(w);      h:=w div 3600;      x:=w mod 3600;      m:=x div 60;      y:=x mod 60;      s:=y div 1;      z:=y mod 1;      clrscr;      write(‘Untuk Waktu: ‘,w,’ detik = ‘,h,’ jam + ‘,m,’ menit + ‘,s,’ detik’);      readln; End.