Materi Dan Soal TIK SMA

Tahun baru semangat belajar baru
dengan modul yang sudah dibuat mudah2an anak belajar excel semakin mudah amin 3X
dalam modul ini saya berikan materi dan latihan soal jika ada teman dari sekolah lain butuh madul excel dan bersedia memberikan koreksi dari modul yang sudah saya buat silahkan kirim ke email ikawidyas@gmail.com

uses wincrt;
var

bulan,tgl,tahun :integer;

kembali:char;
label awal;


begin
awal:

writeln('             BintangKu');
writeln('**********************************');
write('Tanggal : ');read(tgl);write('bulan   : ');read(bulan);write('tahun   : ');read(tahun);
writeln('==================================');


if bulan=1 then
   begin                
   writeln('bintangKu capicorn');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=2 then
   begin
   writeln('bintangKu Aquarius');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=3 then
   begin
   writeln('bintang anda Gemini');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
         
if bulan=4 then
   begin
   writeln('bintang anda aries');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=5 then
   begin
   writeln('bintang anda *******5******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
        
if bulan=6 then
   begin
   writeln('bintang anda *******6******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
  

if bulan=7 then
   begin
   writeln('bintang anda *******7******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=8 then
   begin
   writeln('bintang anda leo');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=9 then
   begin
   writeln('bintang anda *******9******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=10 then
   begin
   writeln('bintang anda *******10******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=11 then
   begin
   writeln('bintang anda *******11******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

 if bulan=12 then
   begin
   writeln('bintang anda *******12******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
writeln('==================================');
writeln('anda ingin lagi (y/t)');kembali:=readkey;
if kembali='y' then goto awal ;          


end.

manfaat belajar pascal secara sederhana antara lain:

1. bisa membedakan bentuk inputan yang berupa angka dan string dan bisa mengaplikasikan kedalam program sederhana misal kurang, jumlah, bagi dan kali
2. bisa membuat program sedrehana misalnya menentukan rumus bangun datar (segitiga, persegi, belah ketupat)
3. membangun belajar logika sederhana misalnya jika nilainya lebih dari 78 maka seorang siswa bisa dikatakan tuntas dengan perintah if
4. bisa mengasah intelegensi numerik melalui deret angka yang terpola misalnya aritmatika, geometri dan pola jumlah-kali yang digunakan secara bersamaan melalui looping (for-to-do dan while-do)

Percobaan 1

perulangan sederhana deret aritmatika 1-2-3-4-5 diselesaikan dengan

 1. for-to do

2. while do

Program predikat nilai

uses wincrt;
var

nilai:integer;
ket:string[6];

begin
writeln('hasil ulangan');
write('masukkan nilai  : ');readln(nilai);
if nilai>90 then ket:='A' else
if nilai>= 80 then ket:='B' else
if nilai>= 70 then ket:='C' else
if nilai>= 60 then ket:='D' else
ket:='E';
writeln(ket);
end.