Program array dalam record

1. Contoh Program

2. Uses Crt;

3. Const

4. JumlahSiswa = 1;

5. Type Nilai = Record

6. Nim : String;

7. Nama: String;

8. Tugas : Real;

9. UTS : Real;

10. UAS : Real;

11. End;

12. Var

13. Mhs : Array[1..JumlahSiswa] of Nilai;

14. I : Integer;

15. Begin

16. Clrscr;

17. For I := 1 To JumlahSiswa Do

18. Begin

19. Writeln('Mahasiswa ke : ',i:2);

20. Write('Nim : ');Readln(Mhs[i].Nim);

21. Write('Nama : ');Readln(Mhs[i].Nama);

22. Write('Tugas : ');Readln(Mhs[i].Tugas);

23. Write('UTS : ');Readln(Mhs[i].Uts);

24. Write('UAS : ');Readln(Mhs[i].Uas);

25. End;

26. Writeln('----------------------------------------------------------');

27. Writeln(' NO NIM NAMA TUGAS UTS UAS NA GRADE ');

28. Writeln('----------------------------------------------------------');

29. For I := 1 To JumlahSiswa Do

30. Begin

31. Writeln(i:3,Mhs[i].Nim:10,Mhs[i].Nama:10,Mhs[i].Tugas:7:2,Mhs[i].Uts:7:2,

32. Mhs[i].Uas:7:2);

33. End;

34. Readln;

35. End.

36.

37.

Output program yang dihasilkan

Contoh program array dalam record

1. Uses Crt;
2. Const
3. JumlahSiswa = 3;
4. Type Nilai = Record
5. Nim : String;
6. Nama: String;
7. Tugas : Real;
8. UTS : Real;
9. UAS : Real;
10. Na : Real;
11. Grade : Char;
12. End;
13. Var
14. Mhs : Array[1..JumlahSiswa] of Nilai;
15. I : Integer;
16. Begin
17. Clrscr;
18. For I := 1 To JumlahSiswa Do
19. Begin
20. With Mhs[i] Do
21. Begin
22. Writeln('Mahasiswa ke : ',i:2);
23. Write('Nim : ');Readln(Nim);
24. Write('Nama : ');Readln(Nama);
25. Write('Tugas : ');Readln(Tugas);
26. Write('UTS : ');Readln(Uts);
27. Write('UAS : ');Readln(Uas);
28. End;
29. End;
30. For I := 1 To JumlahSiswa Do
31. Begin
32. With Mhs[i] Do
33. Begin
34. Na := (Tugas + Uts + Uas) / 3;
35. If (Na >= 80) Then Grade := 'A' Else
36. If (Na < 80) and (Na>=70) Then Grade := 'B' Else
37. If (Na < 70) and (Na>=60) Then Grade := 'C' Else
38. If (Na < 60) and (Na>=50) Then Grade := 'D' Else
39. Grade :='E';
40. End;
41. End;
42. Writeln('----------------------------------------------------------');
43. Writeln(' NO NIM NAMA TUGAS UTS UAS NA GRADE ');
44. Writeln('----------------------------------------------------------');
45. For I := 1 To JumlahSiswa Do
46. Begin
47. With Mhs[i] Do
48. Begin
49. Writeln(i:3,Nim:10,Nama:10,Tugas:7:2,Uts:7:2,
50. Uas:7:2,Na:7:2,Grade:5);
51. End;
52. End;
53. Readln;
54. End.

Jika program ini dijalankan, maka akan mendapatkan hasil output yang sama seperti dengan tanpa menggunakan statement With

Soal UAS MetNum

Mohon maaf karena ada trouble,,maka silakan ambil soal di Lab. Matematika

UNIVERSITAS MUHAMMADIYAH SURAKARTA

Jl. A. Yani Pabelan Kartosuro Telp. ( 0271 ) 717417 Tromol Pos Surakarta 57102

UJIAN AKHIR SEMESTER GENAP TAHUN 2011/2012
Fakultas : Keguruan dan Ilmu Pendidikan Mata Uji : Metode Numerik Jurusan : Pend. Matematika Semester : V ( lima )	Hari, tanggal : 2 Januari 2012 Jam ke : Waktu : Penguji : Suci Juniarto

Petunjuk :

1. Sifat : Take Home

2. Dikumpulkan paling lambat tanggal 9 Januari 2012

Soal :

1. Hitunglah nilai persamaan integral dengan menggunakan metode trapesium, simpson 1/3 dan simpson 3/8, dengan n (cacah interval) = 3, 6, 12 Buatlah analisis dan bandingkan keakuratan (dengan melihat errornya) dari tiap metode! Apa yang dapat anda simpulkan dari hasil ketiga metode tersebut?

2. Selesaikan persamaan , y(0) = 2, 0 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, Rk-2 dan RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

3. Selesaikan persamaan , y(0) = 1, 0 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, RK-2 dan RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

4. Selesaikan persamaan , y(-1) = 1, -1 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, RK-2, RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

5. Hitunglah nilai persamaan integral dengan menggunakan metode trapesium, simpson 1/3 dan simpson 3/8, dengan (cacah interval) n = 3, 6, 12. Buatlah analisis dan bandingkan keakuratan (dengan melihat errornya) dari tiap metode! Apa yang dapat anda simpulkan dari hasil ketiga metode tersebut?

UNIVERSITAS MUHAMMADIYAH SURAKARTA

Jl. A. Yani Pabelan Kartosuro Telp. ( 0271 ) 717417 Tromol Pos Surakarta 57102

UJIAN AKHIR SEMESTER GENAP TAHUN 2011/2012
Fakultas : Keguruan dan Ilmu Pendidikan Mata Uji : Metode Numerik Jurusan : Pend. Matematika Semester : V ( lima )	Hari, tanggal : 2 Januari 2012 Jam ke : Waktu : Penguji : Suci Juniarto

Petunjuk :

1. Sifat : Take Home

2. Dikumpulkan paling lambat tanggal 9 Januari 2012

Soal :

1. Hitunglah nilai persamaan integral dengan menggunakan metode trapesium, simpson 1/3 dan simpson 3/8, dengan n (cacah interval) = 3, 6, 12 Buatlah analisis dan bandingkan keakuratan (dengan melihat errornya) dari tiap metode! Apa yang dapat anda simpulkan dari hasil ketiga metode tersebut?

2. Selesaikan persamaan , y(0) = 2, 0 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, Rk-2 dan RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

3. Selesaikan persamaan , y(0) = 1, 0 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, RK-2 dan RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

4. Selesaikan persamaan , y(-1) = 1, -1 ≤ t ≤ 1 dengan menggunakan ukuran langkah h = 0,2 dan h = 0,4 untuk masing-masing metode (Euler, RK-2, RK-3). Buatlah analisis dan bandingkan hasil penyelesaian pada titik yang sama pada tiap metode dan apa kesimpulannya?

5. Hitunglah nilai persamaan integral dengan menggunakan metode trapesium, simpson 1/3 dan simpson 3/8, dengan (cacah interval) n = 3, 6, 12. Buatlah analisis dan bandingkan keakuratan (dengan melihat errornya) dari tiap metode! Apa yang dapat anda simpulkan dari hasil ketiga metode tersebut?