Wah.. liburan tidak kuliah dapat tugas dari dosen, ” buat program kelipatan 7 kurang dari 200, he..he..”. program menghitung_bilangan_kelipatan_7_kurang_dari_200; uses wincrt; var y,jumlah:integer; begin writeln(‘——————————————————-’); writeln(‘PROGRAM MENGHITUNG BILANGAN KELIPATAN 7 KURANG DARI 200′); writeln(‘——————————————————-’); y:=0; repeat y:=y+7; writeln(y); until y>=196; writeln; writeln(‘SELESAI’); writeln(‘by jendrow’); readln; end.
Archive for July, 2008
12 Jul
Program Menghitung Bilangan Prima
Selamat mencoba ya…. program berikut ini. Ini hanya iseng-iseng ngisi waktu luang. program mencari_bilangan_prima_ERASTOSTHENES; uses wincrt; const batasan=198; (*batas bilangan yang akan dicari*) var prima:array [1..batasan] of boolean;(*bilangan prima*) batas, (*batas pergeseran*) i,j:integer;(*konter*) BEGIN for i:=1 to batasan do prima[i]:=true; batas:=trunc(sqrt(batasan)); i:=1; while i<=batas do begin if prima[i] then begin j:=i+1; while j<=batasan do begin prima[j]:=false; j:=j+1; end [...]
9 Jul
Pengumuman Penerimaan Peserta Didik (PPD) 2008/2009
Pukul 11.00 WIB, 09 Juli 2008 seluruh Sekolah Mengengah Atas Kabupaten Blora mengumumkan peserta didik untuk tahun 2008. SMA N 1 Tunjungan, sejak jam 08.00 WIB telah dibanjiri calon siswa dan orang tua calon yang tak sabar mengetahui pengumumannya. Kesempatan itu dimanfaatkan sekolah swasta sekitar untuk calon peserta didik yang tidak diterima, pagi itu STM [...]
4 Jul
Hari Terakhir Pendaftaran
“Cepet tulis jurnalnya … “, penggalan kata Bu Wati seorang waka kurikulum sekaligus pembina penerimaan PSD tahun ini. Kesibukan lain terlihat dari operator penginputan data, panitia pendaftaran cek data dan paling sibuk adalah Pak Marno bagian pencabutan. Ada beberapa siswa yang terpaksa mencabutkan diri karena mereka mengganggap peluanggnya lebih kecil untuk diterima. Saat ditanya mau [...]
2 Jul
Penerimaan Siswa Baru SMA N 1 Tunjungan Blora
Hari pertama kemarin 1 Juli 2008, jumlah calon siswa ( siswa yang mendaftar) sebanyak 102 orang. Mereka berasal dari SMP kabupaten Blora ada pula yang diluar kota. Syarat-syarat pendaftaran adalah : 1. Biaya Pendaftaran Rp. 10.000,00 ( sepuluh ribu rupiah) 2. STL Asli 3. Foto copy legalisir SKHUN 4. Foto 3×4 = 2 lembar 5. Calon datang sendiri untuk mengisi formulir. Tanggal Pendaftaran [...]
Comments