Tugas ke 3, Algoritma Dan Pemrograman 1

 

Nama        :     Andi Mandiri

NIM         :     1109113382

Jurusan     :     Sistem Informasi Group P2(302)

Masalah     :     Membuat Rumus Deret Aritmatika

Algoritma   :

-    Input  :     1. Suku Awal (a)

            2. Beda Nilai Antar Tiap Suku (b)

            3. Banyak Suku (n)

-    Proses :     Un = a + (n-1)b

-    Output :     U1, U2, U3, U4, . . . . . Un

Program     :

           

uses crt;

var

   pilih        :byte;

   a,b,c,n,x,un :integer;

   hasil        :real;

   ulang        :char;

begin

    repeat

      clrscr;

      writeln('-------- Program Deret Artimatika  -------');

      writeln('-------- Silahkan Masukkan Pilihan -------');

      writeln('1) Mencari Suku ke-n (Un)');

      writeln('2) Mencari Jumlah n Suku (Sn)');

      read;

      gotoxy(1,10);

      write('Masukkan Pilihan : ');

      readln(pilih);

              case pilih of

                    1:

                    begin

                      clrscr;

                      writeln('1) Mencari Suku ke-n (Un) ');

                      write('Suku Awal (a)             : ');

                      readln(a);

                      write('Beda Nilai Antar Suku (b) : ');

                      readln(b);

                      write('Banyak Suku (n)           : ');

                      readln(n);

                      clrscr;

                      write(a,' ');

                      for c:= 1 to n-1 do

                       begin

                            un:=a+b;

                            x :=un;

                            a :=x;

                            write(x,' ');

                       end;

                      read;

                      writeln(' ');

                      gotoxy(1,20);

                      write('Maka Nilai Suku ke ',n,' = ',x);

                      readln;

                    end;

                    2:

                    begin

                      clrscr;

                      writeln('2) Mencari Jumlah n Suku (Sn)');

                      write('Suku Awal (a)             : ');

                      readln(a);

                      write('Beda Nilai Antar Suku (b) : ');

                      readln(b);

                      write('Banyak Suku (n)           : ');

                      readln(n);

                      hasil:=(n/2)*((2*a)+(n-1)*b);

                      gotoxy(1,10);

                      write('Jumlah n suku (Sn) adalah  ',hasil:1:1);

                      readln;

                    end;

                    else

                      gotoxy(1,8);

                      write('Pilihan Yang Anda Masukkan Tidak Tersedia');

                      readln;

              end;

      clrscr;

      gotoxy(5,8);

      writeln('Terima Kasih Telah Mencoba Program Deret Aritmatika ini');

      gotoxy(5,9);

      writeln('by Andi Mandiri');

      gotoxy(5,10);

      write('Ingin Mencoba Kembali?? (y/n) : ');

      readln(ulang);

    until ((ulang='n' ) or (ulang='N'));

end.

silahkan Download Programnya Disini