uses wincrt; const L: array [1..6] of integer = (07, 08, 01, 02, 04, 10); pass:integer= 0; nilai_diingat: integer = 0; i:integer= 0; label 1; begin for pass:= 1 to 5 do begin nilai_diingat:= L[pass+1]; writeln(‘Nilai di ingat=’, nilai_dingat); for i:=pass downto 1 do begin writeln(‘test’); if nilai_diingat< L[i] then begin writeln(‘Sebelum digeser ‘, ‘L[i+1]=’, [...]
Perhitungan Tahun Kabisat. Uses Wincrt; Var tahun: integer; Begin Write (‘Masukkan angka tahun = ‘); readln(tahun); if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0))) then begin Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’); end else Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’); Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘); Writeln(‘ o0————–o0o————–0o [...]
Uses Wincrt; Var tahun: integer; Begin Write (‘Masukkan angka tahun = ‘); readln(tahun); if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0))) then begin Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’); end else Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’); Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘); Writeln(‘ o0————–o0o————–0o ‘); End.
Uses wincrt; var T:integer; Begin Writeln(‘#————————————————#’); writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’); writeln(‘#————————————————#’); write(‘Masukan kode hari = ‘);readln(T); begin if (T=0 )or(T >7) then writeln(‘Kode Hari yang anda input salah’); if (T=1 ) then writeln(‘Senin’); if (T=2 ) then writeln(‘Selasa’); if (T=3 ) then writeln(‘Rabu’); if (T=4 ) then writeln(‘Kamis’); if (T=5 ) [...]
Uses wincrt; var T:integer; Begin Writeln(‘#————————————————#’); writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’); writeln(‘#————————————————#’); write(‘Masukan kode hari = ‘);readln(T); begin if (T=0 )or(T >7) then writeln(‘Kode Hari yang anda input salah’); if (T=1 ) then writeln(‘Senin’); if (T=2 ) then writeln(‘Selasa’); if (T=3 ) then writeln(‘Rabu’); if (T=4 ) then writeln(‘Kamis’); if (T=5 ) [...]
