TP 7 ALPRO : Kumpulan program if...then (fungsi f(x), tahun kabisat, nilai akhir, dan nilai maksimal minimal)

Tugas Pendahuluan 7.

PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN

OLEH

LUH PUTU SUCI VANDASARI

F1A113054

KELAS A

JURUSAN MATEMATIKA

PROGRAM STUDI MATEMATIKA

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS HALU OLEO

2014

 

SOAL.

1.      Buat program menggunakan if..then

2.      Tahun kabisat.

Hasil run.

Masukkan tahun =

Tahun ini adalah tahun …….

3.      Masukkan nilai tugas (x 20%).

Masukkan nilai mid  (x 30%).

Masukkan nilai final(x 50%).

Jadi, nilai akhir = …… (A,B,C,D,E).

4.      Masukkan banyak data =

Data ke-1=

.

.

.

Nilai terbesar =

Nilai terkecil  =

PENYELESAIAN.

1.      Program menggunakan if..then.

program mencari_nilai_F(x);

uses crt;

var U, I       : integer;

begin

textbackground(1);

textcolor(15);

clrscr;

writeln('OOOOOOO PROGRAM MENCARI NILAI F(x) OOOOOOO');

writeln;

writeln('       { 0,   x<0');

writeln(' F(x)  { 1,   x>4');

writeln('       { 2-x, 0<= x <=4');

writeln;

write('Masukkan Nilai x yang anda inginkan = ');readln(U);

writeln;

writeln;

I:=2-U;

writeln;

if (U<0) then write('Nilai F(x) = 0');

if (U>4) then write('Nilai F(x) = 1');

if (0<=U) and (U<=4) then write('Nilai F(x) = ',I);

writeln;

writeln;

writeln;

writeln('Terima Kasih Telah Menggunakan Program Ini ^^');

readln;

end.

Setelah di-RUN, berikut tampilannya.

 

2.      Program menentukan tahun kabisat menggunakan if…then.

program menentukan_tahun_kabisat;

uses crt;

var U, I       : integer;

begin

textbackground(red);

textcolor(lightgreen);

clrscr;

writeln('****** PROGRAM MENENTUKAN TAHUN KABISAT ******');

writeln('______________________________________________');

writeln;

write('Masukkan Tahun yang anda inginkan = ');readln(U);

I:= U mod 4;

writeln;

writeln;

textcolor(15);

if (I=0) then write('Tahun yang anda masukkan adalah tahun kabisat!') else

if (I<>0) then write('Tahun yang anda masukkan bukan tahun kabisat!');

readln;

end.

Setelah di-RUN, berikut tampilannya.

3.      Program menentukan nilai akhir menggunakan if..then.

program nilai_akhir;

uses crt;

var U,C,I       : integer;

    a,b,e,d    : real;

begin

textbackground(1);

textcolor(lightred);

clrscr;

writeln('%%%%% PROGRAM MENENTUKAN NILAI AKHIR %%%%%');

writeln;

writeln;

write('Masukkan Nilai Tugas Anda = ');textcolor(15);readln(U);

textcolor(lightred);

write('Masukkan Nilai MID Anda   = ');textcolor(15);readln(C);

textcolor(lightred);

write('Masukkan Nilai Final Anda = ');textcolor(15);readln(I);

writeln;

a:=U*20/100;

b:=C*30/100;

e:=I*50/100;

d:=a+b+e;

textcolor(lightred);

write('Nilai Akhir Anda Adalah = ');textcolor(15);write(d:0:2);

textcolor(15);

if (d<21) then write(' = E');

if (d>=21)  and (d<41) then write(' = D');

if (d>=41) and (d<61) then write(' = C');

if (d>=61) and (d<81) then write(' = B');

if (d>=81) then write(' = A');

readln;

end.

Setelah di-RUN, berikut tampilannya.

4.      Program menentukan data minimal dan maksimal.

program maks_min;

uses crt;

var

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

S,U,n,C,max,min : integer;

begin

textbackground(1);

textcolor(14);

clrscr;

writeln('===== MENCARI NILAI TERBESAR DAN TERKECIL =====');

writeln;

writeln;

write('Masukkan banyak data yang anda inginkan = ');readln(n);

writeln;

S:=0;

for C:= 1 to n do

begin

write('Masukkan data ke-',C,' = ');readln(a[C]);

writeln;

U:=U+a[C];

end;

begin

max:=a[1];

min:=a[1];

for S:=2 to n do

if a[C]>max then max:=a[C] else

if a[C]<min then min:=a[C];

writeln('Nilai Minimum = ',min);

writeln('Nilai maksimum = ',max);

end;

readln;

end.

Setelah di-RUN, berikut tampilannya.