TP 6 ALPRO : Kumpulan program repeat until menggunakan Turbo Pascal 7.0

Tugas Pendahuluan 6.

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 repeat ... until dengan hasil run

1 = 1

1+2=3

1+2+3=6

1+2+3+4=10

2.      Buat program deret menggunakan repeat...until.

1,8,27,....,n.

3.      Sigma menggunakan repeat until.

4.      Buat program mengitung rata-rata n buah data menggunakan repeat until.

5.      Buat program (no 1-4)

(Y/N)= …

Menggunakan repeat until.

PENYELESAIAN.

1.  Program menggunakan repeat …until.

uses crt;

var S, U, C, I, E, Y    : integer;

    rata                : real;

    ulang               : char;

begin

textbackground(1);

textcolor(14);

clrscr;

writeln;

repeat

C:=0;

I:=0;

write('Masukkan Banyak Data Yang Anda Inginkan = ');readln(U);

C:=1;

E:=1;

Y:=2*U;

writeln;

write(E,' ':2*U-1,'= ',E);

writeln;

repeat

write(E);

S:=1;

I:=0;

repeat

S:=S+1;

I:=S+I;

write('+',S);

until

S>C;

C:=C+1;

I:=I+1;

write(' = ':Y-1,I);

Y:=Y-2;

writeln;

until

C>=U;

writeln;

readln;

clrscr;

writeln;

writeln('Keterangan :  Y=Yes/Iya');

writeln('              N=No/Tidak');

writeln;

write('Apakah Anda Ingin Mengulang program Ini?[Y/N] : ');

readln(ulang);

until ulang ='N'

end.

Berikut tampilannya setelah di-RUN.

Berikut tampilan program perulangannya.

2.      Program deret.

program deret;

uses crt;

var c, i, n  : integer;

    ulang    : char;

begin

textbackground(magenta);

textcolor(10);

repeat;

clrscr;

writeln;

writeln('    ******** PROGRAM DERET ********');

writeln('-----------------------------------------');

writeln;

write('Masukkan Banyak Suku Dalam Deret = ');readln(n);

i:=1;

writeln;

repeat

c:=sqr(i)*i;

write(c:4,'  ');

i:=i+1;

until

i>n;

readln;

clrscr;

writeln('******************************************************');

writeln;

writeln('Keterangan :  Y = Yes/Iya');

writeln('              N = No/Tidak');

writeln;

write('Apakah Anda Ingin Mengulang Program Ini ? [Y/N] : ');readln(ulang);

until ulang='N'

end.

Berikut tampilannya setelah di-RUN.

3.      Program notasi sigma .

program notasi_sigma;

uses crt;

var u, c, i, n : integer;

    ulang      : char;

begin

textbackground(red);

textcolor(14);

repeat;

clrscr;

writeln;

writeln('    ******** PROGRAM NOTASI SIGMA ********');

writeln('-----------------------------------------');

writeln;

write('Masukkan Batas Atas Yang Anda Inginkan  = ');readln(n);

write('Masukkan Batas Bawah Yang Anda Inginkan = ');readln(i);

writeln;

repeat

c:=sqr(i)+5;

write(c:4,'  ');

i:=i+1;

u:=u+c;

until

i>n;

writeln(' = ',u);

readln;

clrscr;

writeln('******************************************************');

writeln;

writeln('Keterangan :  Y = Yes/Iya');

writeln('              N = No/Tidak');

writeln;

write('Apakah Anda Ingin Mengulang Program Ini ? [Y/N] : ');readln(ulang);

until ulang='N'

end.

Berikut tampilannya setelah di-RUN.

4.      Program rata-rata n data.

program rata_rata;

uses crt;

var U, C, I, jumlah    : integer;

    rata               : real;

    ulang              : char;

begin

textbackground(1);

textcolor(14);

repeat

clrscr;

writeln('==========PROGRAM MENGHITUNG RATA-RATA==========');

writeln;

writeln;

write('Masukkan Banyak Data Yang Anda Inginkan = ');readln(U);

writeln;

I:=0;

repeat

begin

I:=I+1;

write('Masukkan Nilai ke- ',I,' : ');readln(C);

jumlah:=jumlah+C;

end;

until I=U;

rata:=jumlah/(I);

writeln;

writeln;

writeln('Jumlah Data Yang Anda Masukkan Adalah    = ',jumlah);

writeln('Rata-rata Data Yang Anda Masukkan Adalah = ',rata:0:2);

writeln;

readln;

clrscr;

writeln;

writeln('Keterangan :  Y=Yes/Iya');

writeln('              N=No/Tidak');

writeln;

write('Apakah Anda Ingin Mengulang program Ini?[Y/N] : ');

readln(ulang);

until

ulang ='N'

end.

Berikut tampilannya setelah di-RUN.