22 September Latihan Peru Lang An

Nada dasar Doremi fasolasido Nada dasar Doremi fasolasido Nada dasar Doremi fasolasido Nada dasar Doremi fasolasido Bentuk programnya : Perulangan menaik : Begin For i:= 1 to 4 do Begin Writeln(‘nada dasar’); Writeln(‘Doremi fasolasido’); End; End. Perulangan menurun : Begin For i:= 4 downto 1 do Begin Writeln(‘nada dasar’); Writeln(‘Doremi fasolasido’); End; End. Contoh hasil perulangan : 1 4 9 16 25 36 49 Persamaan : Bil2 == bil * bil Penyelesaian dengan pascal : Var I, X : integer; Begin For I:= 1 to 7 do Begin x := I * I; write(x); End; End.

Latihan : Contoh hasil : TAHUN 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 dst 2010

KETERANGAN Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat Kabisat / bukan Kabisat

Penyelesaian dengan program Jawaban versi 1 : Var Tahun : integer; Begin FOR tahun := 1900 TO 2010 DO Begin If (tahun mod 4 = 0) then begin Write(tahun); Writeln(‘tahun kabisat’) End Else begin Write(tahun); Writeln(‘Bukan kabisat’); End; End; End.

Jawaban versi 2 ( penyederhanaan baris program) Var Tahun : integer; Ket : string; Begin FOR tahun := 1900 TO 2010 DO Begin If (tahun mod 4 = 0) then Ket := ‘Tahun Kabisat’ Else Ket := ‘Bukan Tahun Kabisat’; Write(tahun); Writeln(Ket); End; End.

Jawaban versi 3 ( penyederhanaan baris program) : Var Tahun : integer; Begin FOR tahun := 1900 TO 2010 DO Begin Write(tahun); If (tahun mod 4 = 0) then Writeln(‘tahun kabisat’) Else Writeln(‘Bukan kabisat’); End; End.

Bagaimana programnya, jika ada output matrik seperti dibawah ini :

1 1 1 1 2 2 2 2

1 1 2 2 1 1 2 2

1 2 1 2 1 2 1 2

Begin For I := 1 to 2 do Begin For J := 1 to 2 do Begin For K := 1 to 2 do Writeln(I: 5, J: 5, End; end ; End.

K: 5);

Bagaimana cara mencari JUMLAH sebuah bilangan yang berderet 1, 2, 3, 4 Penyelesaian dengan pascal : Var I, Jumlah : integer; Begin Jumlah := 0; For I:= 1 to 4 do Begin Jumlah := jumlah + I; End; End.

Dari program diatas, Bagaimana cara mencari RATA-RATA sebuah bilangan yang berderet

Penyelesaian dengan pascal : Var I, Jumlah : integer; RATA : REAL; Begin Jumlah := 0; For I:= 1 to 7 do Begin Jumlah := jumlah + I; End; RATA := jumlah / 7 ; End.

Jumlah := 0; Jumlah := jumlah + 1; Jumlah := jumlah + 2; Jumlah := jumlah + 3; Jumlah := jumlah + 4; Berapa nilai jumlah terakhir ? 10