Materi Dan Soal TIK SMA

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)