Sri Lestari

Tugas Pascal 3

2009-05-28T09:15:00.000-07:00

Input:

Output:

Listing Program:
Uses Crt;
Var
nama,grd:string;
mt,ft,tm,mmt,mft,mtm,na:real;
Function Nilai_Akhir(Var nmt,nft,ntm,mnmt,mnft,mntm:real):real;
Begin
mnmt:=nmt*0.3;
mnft:=nft*0.3;
mntm:=ntm*0.4;
nilai_akhir:=mnmt+mnft+mntm;
End;
Function Grade(Var n_akhir:real):string;
Begin
IF n_akhir>=85 THEN
grade:=’A’
ELSE IF n_akhir>=76 THEN
grade:=’B’
ELSE IF n_akhir>=67 THEN
grade:=’C’
ELSE
grade:=’D';
End;
Begin
Clrscr;
Writeln(’ HITUNG NILAI’);
Writeln(’—————————————’);
Write(’Nama Siswa : ‘);readln(nama);
Write(’Nilai Mid Test : ‘);readln(mt);
Write(’Nilai Final Test : ‘);readln(ft);
Write(’Nilai Tugas Mandiri : ‘);readln(tm);
na:=Nilai_Akhir(mt,ft,tm,mmt,mft,mtm);
Clrscr;
Writeln(’ HASIL PERHITUNGAN’);
Writeln(’—————————————’);
Writeln(’Nilai Mid Test : ‘,mt:0:0,’* 30%’,'= ‘,mmt:0:0);
Writeln(’Nilai Final Test : ‘,ft:0:0,’* 30%’,'= ‘,mft:0:0);
Writeln(’Nilai Tugas Mandiri: ‘,tm:0:0,’* 40%’,'= ‘,mtm:0:0);
Writeln(’—————————————’);
Writeln(’Nilai Akhir : ‘,na:0:0);
Writeln(’Grade : ‘,grade(na));
Readln;
end.

Penjelasan Program :

Program di atas menggunakan 2 fungsi, yaitu fungsi menghitung nilai akhir dan fungsi mencari grade. Pada fungsi menghitung nilai akhir menggunakan pemanggilan parameter by reference, karena nilai yang dikirim dari program utama, setelah diterima pada function nilai akhir, maka akan dikirim balik ke program utama. Jika pada function nilai akhir terdapat proses, maka proses ini akan mempengaruhi program utama. Ada variabel untuk input, dan penampungan dari hasil perhitungan sebelum akhirnya dihitung lagi pada proses nilai terakhir.
Nilai yang diinput pada program utama yaitu nilai final test(nhnf), nilai mid test(nhnm), nilai ujian murni(nhnt), setelah nilai diinput, nilai akan dikirimkan ke function hitung, untuk nilai yang tidak diinput maka nilainya nol (0), semua nilai dikirimkan ke function hitung . Nilai nf sama dengan nilai nhf, nilai nm sama dengan nilai nhm, nilai nt sama dengan nilai nht, nilai nnf sama dengan nilai nhnf, nilai nnm sama dengan nilai nhnm, nilai nnt sama dengan nilai nhnt, nilai na sama dengan nilai nha. Setelah nilai diterima nila akan diproses, setelah itu nilai akan dikirim balik, semua perubahan pada function hitung akan mempengaruhi program utama. Jadi jika nilai yang awalnya nol(0), akan berubah sesuai dengan perubahan yang terjadi pada function hitung.
Pada function grade, menggunakan pengiriman nilai secara by value. Function grade digunakan untuk menentukan grade dari nilai akhiryang didapat sesuai dengan ketentuan yang telah ditentukan. Grade ini juga dipanggil pada program utama, maka akan dihasilkan keluaran sesuai dengan hasil perhitungan.

Tampilan Tugas Pascal 2

2009-05-18T06:16:00.000-07:00

Tampilan input

Tampilan Hasil

Tugas Pascal 2

2009-05-18T04:18:00.000-07:00

Uses crt;
var n_murni:real;
grade:char;
function nilaiakhir(var n_absen,n_tgs,n_ujian:integer):integer;
begin
n_murni:=(n_absen*0.3)+(n_tgs*0.3)+(n_ujian*0.4);
end;

function nilaigrade:integer;
begin
if n_murni>=80 then
grade:='A'
else
if n_murni<70 then
grade:='B'
else
if n_murni<70 then
grade:='C';
end;

var nm:string;
nab,ntg,nuj:integer;
begin
clrscr;
writeln('Input Nilai');
writeln('-----------');
write('Nama Siswa :');readln(nm);
write('Nilai Absen :');readln(nab);
write('Nilai Tugas :');readln(ntg);
write('Nilai Ujian :');readln(nuj);
nilaiakhir(nab,ntg,nuj);
clrscr;
writeln('Siswa yang bernama :',nm);
writeln('Nilai Akhir =',n_murni:2:2);
writeln('Grade=',grade);
readln;
end.

Tugas Pascal

2009-04-15T23:49:00.000-07:00

soal A

Output Program

1 + 2 + 3 + 4 + 5 = 15

Sourcode Program

program latihan;

uses crt;

var a,b:integer;

begin

b:=0;

clrscr;

for a:=1 to 5 do

begin

write (a,'');

if a(5 then

write (' + ');

end;

writeln(' = ',b);

readln;

end

Soal B

Output Program

1+3+5+7+9=25

Sourcode Program

uses crt;

var

a,b:integer;

begin

clrscr;

for a:=1 to 9 do

begin

write(a);

b:=b+a;

if a<9>

Soal C

Output Program

1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

source code

uses crt;

var

a,b:integer;

begin

clrscr;

a:=1;

repeat

b:=1;

repeat

write(b);

b:=b+1;

until

b>a;

writeln;

a:=a+1;

until a>5;

readln;

end.

Latihan 1
uses crt;
var
A,b:integer;
begin
clrscr;
for a:=1 to 10 do
begin
for b:=1 to 5 do
writeln(b);
end;
readln;
end.

Soal D

Latihan Fibonancy
Output Program

Masukkan deret Angka :9
0,1,1,2,3,5,8,13,21

Sourcode Program

uses crt;

var a,b,c,d,e:integer;

begin

clrscr;

write('Masukan deret angka: ');
readln(a);{menginput banyaknya deret angka}

c:=0;

d:=1;

for b:=0 to a do {mengulang sampai a kali}

begin

if (b=0)or(b=2) then {jika b=0 atau b=2 maka mencetak nilai c dan tanda ,}

write(c,',')

else {jika tidak, menghitung nilai e,c,d, dan mencetak nilai e diikuti tanda ,}

begin

e:=c+d;

c:=d;

d:=e;

write(e,',');

end;

end;
readln;
end.