TP 4 ALPRO : Membuat Program For...do Menggunakan Aplikasi Turbo Pascal

Tugas Pendahuluan 4.

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 mengunakan for….do dengan hasil RUN

3/4, 6/8, 9/12, 12/16, 15/20.

2.      Buat program menjumlahkan deret genap untuk stambuk genap dan deret ganjil untuk stambuk ganjil (deret positif).

3.      Buat program menggunakan for..do dengan hasil RUN

1 1

1 2

1 3

2 1

2 2

2 3

3 1

3 2

3 3

4.      Buat program for…do dengan hasil RUN

i….1,2,3,…,n

Jumlah =

PENYELESAIAN.

1.      Program menggunakan for…do.

uses crt;

var a, b, c, d :integer;

begin

textbackground(1);

textcolor(14);

clrscr;

write('Masukkan Banyak Pecahan Yang Anda Inginkan =  ');readln(a);

writeln;

write('Kemudian Tekan Enter Pada Keyboard, Maka Hasil RUN Akan Ditampilkan.');readln;

writeln;

clrscr;

writeln;

begin

for b:= 1 to a do

write(b*3:4,' ');

writeln;

for c:= 1 to a do

write(' __':4,',');

writeln;

for d:= 1 to a do

write(d*4:4,' ');

writeln;

end;

readln;

end.

Berikut tampilan setelah di-RUN.

2.      Program menjumlahkan deret aritmatika genap positif.

Program DeretAritmatikaGenap;

uses crt;

var S, U , C, I :longint;

begin

textbackground(magenta);

textcolor(14);

clrscr;

write('Masukkan Banyaknya Suku Dalam Deret Aritmatika Yang Anda Inginkan = ');readln(C);

writeln;

write('Masukkan Suku Pertama Yang Anda Inginkan (Bilangan Genap Positif Atau 0) = ');readln(U);

writeln;

write('Masukkan Beda Suku Yang Anda Inginkan (Bilangan Genap Positif Atau 0) = ');readln(I);

writeln;

write('Berikut Hasilnya :');readln;

writeln;

for S:= U to (C+U-1) do

begin

write((I*S-(I-1)*U),' ');

end;

writeln;

writeln;

writeln('Jumlah Deret Aritmatika Tersebut Adalah = ',(C/2)*(2*U+(C-1)*I):0:2);

readln;

end.

Berikut tampilan setelah di-RUN.

3.      Program menggunakan for..do.

uses crt;

var U, C, Y : integer;

begin

textbackground(red);

textcolor(15);

clrscr;

write('  Masukkan Banyak Perulangan Yang Anda Inginkan = ');readln(C);

writeln;

write('  Tekan Enter Pada Keyboard, Maka Hasil RUN Akan Ditampilkan.');readln;

writeln;

clrscr;

for U:=1 to C do

begin

for Y:=1 to C do

writeln('    ',U,' ',Y,' ');

writeln;

end;

readln;

end.

Berikut tampilan setelah di-RUN.

4.      Program menggunakan for..do.

uses crt;

var S, U , C, I :integer;

begin

textbackground(red);

textcolor(yellow);

clrscr;

write('Masukkan Suku Terakhir Dalam Deret Aritmatika Yang Anda Inginkan (n) = ');readln(U);

writeln;

write('Masukkan Suku Pertama Yang Anda Inginkan (i) = ');readln(C);

writeln;

write('Tekan Enter Pada Keyboard, Maka Hasil RUN Akan Ditampilkan.');readln;

clrscr;

writeln;

for I:= C to (U) do

begin

write('+',I:2);

end;

writeln;

writeln;

writeln('Jumlah Deret Aritmatika Tersebut Adalah = ',I+C);

readln;

end.

Berikut tampilan setelah di-RUN.