Nilai TIK Kelas XI IPS 1
Nilai TIK Kelas XI IPS 2
Nilai TIK Kelas XI IPS 3
Nilai TIK Kelas XI BAHASA
Nilai TIK Kelas XI IPS 2
Nilai TIK Kelas XI IPS 3
Nilai TIK Kelas XI BAHASA
UAS Tahap I untuk Mapel TIK telah selesai. Penasaran dengan Nilai kamu ? Lihat langsung disini. Tetap semangat dan rajin belajar...
Persiapkan diri untuk menyambut Ujian Akhir Semester tahap I. Silakan ajukan pertanyaan seputar pelajaran TIK, disini...
Musim baru selalu memberikan semangat dan motivasi yang luar biasa bagi seluruh fans MU. Inilah fantasiku, inilah Jersey MU.
Saya begitu sangat menggilai klub sepak bola yang bernama Manchester United. Baca selengkapnya pengalaman saya selama mencintai Manchester United
Sukses atau gagal. 2 kata yang selalu menghantui gerak langkah perjuangan hidup manusia dalam mewujudkan cita-cita di masa depan. Ayo semangat, jaga terus motivasi diri.
program luas_persegipanjang; uses wincrt; var panjang,lebar,luas:integer; begin clrscr; writeln(‘ Ini adalah Program Hitung Luas Persegi Panjang ’); write(‘ Berapa Panjangnya = ‘);readln(panjang); write(‘ Berapa lebarnya = ‘);readlan(lebar); luas:=panjang*lebar; writeln(‘ Jadi, luasnya adalah ‘,luas); readln; end. |
Keluaran program : Ini adalah Program Hitung Luas Persegi Panjang Berapa panjangnya = 2 Berapa lebarnya = 3 Jadi, luasnya adalah 6 |
program luas_segitiga; uses wincrt; var alas,tinggi:integer; luas:integer; begin clrscr; writeln(‘ Ini adalah Program Hitung Luas Segitiga ’); write(‘ Berapa Alasnya = ‘);readln(alas); write(‘ Berapa Tingginya = ‘);readln(tinggi); luas:=1/2*alas*tinggi; writeln(‘ Jadi, luasnya adalah ‘,luas:2:2); readln; end. |
Keluaran program : Ini adalah Program Hitung Luas Segitiga Berapa Alasnya = 3 Berapa Tingginya = 7 Jadi, luasnya adalah 10.50 |
program input_data_siswa; uses wincrt; var nama_siswa:string[30]; kelas:string[4]; no_urut:integer; begin clrscr; writeln(‘ Ini adalah Program Input Data Siswa ’); write(‘ Masukkan Nama Siswa = ‘);readln(nama_siswa); write(‘ Masukkan Nomer Urut = ‘);readln(no_urut); write(‘ Masukkan Kelas = ‘);readln(kelas); writeln(‘ Terima Kasih ‘); readln; end. |
Keluaran program : Ini adalah Program Input Data Siswa Masukkan Nama Siswa = Wahyu Masukkan Nomer Urut = 32 Masukkan Kelas = X-2 Terima Kasih |
program input_data_siswa; uses wincrt; var nama_siswa:string[30]; kelas:string[4]; no_urut:integer; begin clrscr; gotoxy(20,3);writeln(‘ Ini adalah Program Input Data Siswa ’); gotoxy(15,4);write(‘ Masukkan Nama Siswa = ‘); gotoxy(15,5);write(‘ Masukkan Nomer Urut = ‘); gotoxy(15,6);write(‘ Masukkan Kelas = ‘); gotoxy(15,7);writeln(‘ <> Terima Kasih <> ‘); gotoxy(40,4); readln(nama_siswa); gotoxy(40,5); readln(no_urut); gotoxy(40,6); readln(kelas); readln; end. |
Keluaran program : Ini adalah Program Input Data Siswa Masukkan Nama Siswa = Wahyu Masukkan Nomer Urut = 32 Masukkan Kelas = X-2 <> Terima Kasih <> |