Tugas Pendahuluan 5.
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. Tanda
2. Buat
program deret genap dan ganjil dengan while do.
3. Buat
program notasi sigma dengan for do dengan fungsi
4. Buat
program perkalian ganjil dengan while do.
5. Buat
program untuk menghitung kembali program 1, 2, 3, dan 4.
PENYELESAIAN.
1. Tanda
uses
crt;
var
pass
: string;
begin
textbackground(magenta);
textcolor(10);
clrscr;
while
pass <> ‘ucy’ do
begin
write('Masukkan
Password Terbaik Anda : ');readln(pass);
writeln;
if
pass<>‘ucy’ then
writeln('Password
Yang Anda Masukkan SALAH!') else
writeln('Password
Yang Anda Masukkan BENAR!');
end;
readln;
end.
Setelah di-RUN
berikut tampilannya.
Dari
program diatas dapat diketahui fungsi dari tanda-tanda berikut ini:
|
Tanda
|
Kegunaan
|
|
Pass = ‘ucy’
|
Program
lanngsung menampilkan “ Password Yang Anda Masukkan BENAR! “ tanpa
menampilkan kalimat “ Masukkan Password Terbaik Anda : “ .
|
|
Pass ≥ ‘ucy’
|
Fungsinya hampir sama dengan tanda “ =
“.Program langsung menampilkan kalimat “ Password Yang Anda Masukkan BENAR! “
tanpa menampilkan kalimat “Masukkan Password Terbaik Anda : “ .
|
|
Pass ≤ ‘ucy’
|
Program
akan mengulang jika huruf yang dimasukkan itu lebih kecil atau sama dengan u,
c dan y. Apabila huruf yang dimasukkan itu lebih besar dari u, c dan y atau lebih besar dari semuanya seperti ‘Z’
akan memenuhi dan program akan berlanjut.
|
|
Pass > ‘ucy’
|
Program
lanngsung menampilkan kalimat “ Password Yang Anda Masukkan BENAR! “ tanpa
menampilkan kalimat “Masukkan Password Terbaik Anda : “ .
|
|
Pass < ‘ucy’
|
Program
akan mengulang jika huruf yang dimasukkan itu lebih kecil dari u, c dan y.
Apabila huruf yang dimasukkan itu lebih besar atau sama dengan u, c dan y atau
lebih besar dari semuanya seperti ‘z’ akan memenuhi dan program akan
berlanjut.
|
|
Pass < > ‘ucy’
|
Program
akan melanjutkan apabila kata yang dimasukkan itu sama dengan ‘ucy’. Apabila
selain dari kata ‘ucy’ maka program akan terus mengulang.
|
2. Program
deret genap dan ganjil dengan while do.
program
deret_ganjil_genap;
uses
crt;
var
S, U, C, I : integer;
ulang
: char;
begin
ulang:='Y';
while
upcase(ulang)<>'T' do
begin
textbackground(1);
textcolor(15);
clrscr;
U:=1;
C:=1;
writeln('--------------------------------------------------------------');
writeln;
writeln('========
DERET ARITMATIKA GANJIL ========');
writeln;
write('Masukkan
banyak suku dalam deret ganjil yang anda inginkan = ');readln(S);
writeln;
while(C<=S)
do
begin
write(U,'
');
U:=U+2;
C:=C+1;
end;
writeln;
writeln;
writeln('Jumlah
suku deret ganjil tersebut adalah = ',sqr(S));
readln;
writeln;
textcolor(14);
writeln('--------------------------------------------------------------');
writeln;
writeln('========
DERET ARITMATIKA GENAP ========');
writeln;
U:=2;
C:=2;
write('Masukkan
banyak suku dalam deret genap yang anda inginkan = ');readln(I);
writeln;
while(C<=I+1)
do
begin
write(U,'
');
U:=U+2;
C:=C+1;
end;
writeln;
writeln;
writeln('Jumlah
suku deret ganjil tersebut adalah = ',sqr(I)+I);
readln;
textbackground(magenta);
textcolor(10);
clrscr;
writeln('--------------------------------------------------------------');
writeln;
writeln('Keterangan
:');
writeln;
writeln('*
Y : Iya/Yes.');
writeln('*
T : Tidak/No.');
writeln;
write('Apakah
Anda Akan Mengulang Program ini (Y/T)? : ');readln(ulang);
end;
end.
Setelah di-RUN
berikut tampilannya.
3. Program
notasi sigma dengan for do dengan fungsi
program
menghitung_notasi_sigma;
uses
crt;
var
n, i, u : longint;
c, e
: real;
ulang
: char;
begin
ulang:='Y';
while
upcase(ulang)<>'T' do
begin
textbackground(1);
textcolor(15);
clrscr;
write('Masukkan
Batas Ke-n Yang Anda Inginkan = ');readln(n);
writeln;
writeln('Jadi,
sigma dari fungsi i^2 + 1 dengan batas 1 sampai ',n,' adalah :');
writeln;
for
i:=1 to n do
write(sqr(i)+1:5);
u:=n*(n+1)*(2*n+1);
c:=u/6;
e:=c+n;
write('=':5,e:5:0);
readln;
clrscr;
writeln('--------------------------------------------------------------');
writeln;
writeln('Keterangan
:');
writeln;
writeln('*
Y : Iya/Yes.');
writeln('*
T : Tidak/No.');
writeln;
write('Apakah
Anda Akan Mengulang Program Ini (Y/T)? : ');readln(ulang);
end;
end.
Setelah di-RUN
berikut tampilannya.
4. Program
perkalian ganjil dengan while do.
program
perkalian_ganjil;
uses
crt;
var
U,C,H,E,A,I,S:longint;
ulang
: char;
begin
ulang:='Y';
while
upcase(ulang)<>'T' do
begin
textbackground(1);
textcolor(14);
clrscr;
write('Masukan
nilai yang ingin anda kalikan = 1 sampai ');readln(S);
writeln;
clrscr;
writeln;
writeln(' DAFTAR PERKALIAN GANJIL ');
writeln('--------------------------------------------------------');
writeln('
No | x1 x3 x5
x7 x9 x11
|');
writeln('--------------------------------------------------------');
U:=1;
while
U<= S do
begin
C:=U*3;
H:=U*5;
E:=U*7;
A:=U*9;
I:=U*11;
writeln(U:2,'|':3,U:5,C:8,H:8,E:8,A:8,I:8,'|':6);
U:=U+1;
end;
writeln('--------------------------------------------------------');
readln;
clrscr;
writeln('--------------------------------------------------------------');
writeln;
writeln('Keterangan
:');
writeln;
writeln('*
Y : Iya/Yes.');
writeln('*
T : Tidak/No.');
writeln;
write('Apakah
Anda Akan Mengulang Program Ini (Y/T)? : ');readln(ulang);
end;
end.
Setelah di-RUN
berikut tampilannya.
Tidak ada komentar:
Posting Komentar