Jumat, 23 Januari 2015

Bahaya HP Zaman Sekarang

Di zaman sekarang ini, handphone sudah menjadi barang wajib yang harus dimiliki oleh setiap orang, bukan hanya orang dewasa, namun anak-anak pun pada zaman sekarang sudah banyak yang memiliki handphone berbagai jenis. Ironisnya, bahkan anak umur sekolah dasar sudah banyak yang memiliki handphone yang bisa dikategorikan handphone canggih semisal handphone android atau smartphone, sangat bertolak belakang ketika kita flashback 10 tahun yang lalu, dimana saat itu saya masih duduk di bangku sekolah dasar, handphone masih sangat jarang ditemukan, saat itu saya dan keluarga saya hanya memiliki satu handphone saja, itu pun handphone mahal pada zamannya, yaitu handphone 3315. Saat itu harga pulsa sangatlah mahal, zaman itu, anak-anak seumuran saya hanya bermain di lapangan maupun di depan rumah, namun pada zaman sekarang, sudah jarang ditemukan hal-hal seperti demikian. 

Hal ini merupakan salah satu akibat semakin berkembangnya teknologi informasi dan komunikasi yang telah merubah sifat dan mental anak-anak zaman sekarang. Sungguh disayangkan. Oleh karena itu, pengawasan dari orang tua dan guru di sekolah sangat diperlukan guna menjaga anak-anak agar tidak terlena dengan semakin majunya teknologi informasi dan kompunikasi. 

Senin, 12 Januari 2015

Penggunaan Fungsi Pada Matlab

MATLAB adalah sebuah bahasa dengan kemampuan tinggi untuk komputasi teknis. Ia menggabungkan komputasi, visualisasi, dan pemrograman dalam satu kesatuan yang mudah digunakan di mana masalah dan penyelesaiannya diekspresikan dalam notasi matematik yang sudah dikenal. Pemakaian MATLAB meliputi :
· Matematika dan komputasi
· Pengembangan algoritma
· Akuisisi data
· Pemodelan, simulasi dan prototype
· Grafik saintifik dan engineering
· Perluasan pemakaian, seperti graphical user interface (GUI).
MATLAB adalah system interaktif yang mempunyai basis data array yang tidak membutuhkan dimensi. Ini memungkinkan kita dapat menyelesaikan banyak masalah komputasi teknis, khususnya yang berkaitan dengan formulasi matrik dan vector.

Nama MATLAB merupakan singakatn dari matrix labolatory . MATLAB awalnya dibuat untuk memudahkan dalam mengakses software matriks yang telah dikembangkan oleh LINPACK dan EISPACK. Dalam perkembangannya, MATLAB mampu mengintegrasikan beberapa software matriks sebelumnya dalam satu software untuk komputasi matriks. Tidak hanya itu, MATLAB juga mampu melakukan komputasi simbolik yang biasa dilakukan oleh MAPLE.

Sistem MATLAB terdiri atas lima bagian utama :
1.      Development Environment. Ini adalah kumpulan semua alat-alat dan fasiltas untuk membantu kita dalam menggunakan fungsi dan file MATLAB. Bagian ini memuat desktop, Command window, command history, editor and debugger, dan browser untukmelihat help, workspace, files.
2.      The MATLAB Mathematical Function Library. Bagian ini adalah koleksi semua algoritma komputasi, mulai dari fungsi sederhana seperti sum, sine, cosine sampai fungsi lebih rumit seperti, invers matriks, nilai eigen, fungsi Bessel dan fast Fourier transform.
3.      The MATLAB language. Ini adalah bahasa matriks/array level tinggi dengan control flow, fungsi, struktur data, input/output, dan fitur objek programming lainnya.
4.      Graphics. MATLAB mempunyai fasilitas untuk menampilkan vector dan matriks sebagai grafik. Fasilitas ini mencakup visualisasi data dua / tiga dimensi, pemrosesan citra (image), animasi, dan grafik animasi.
5.      The MATLAB Application Program Interface (API). Paket ini memungkinkan kita menulis bahasa C dan Fortran yang berinteraksi dengan MATLAB. Ia memuat fasilitas untuk pemanggilan kode-kode dari MATLAB (dynamic linking), yang disebut MATLAB sebagai mesin penghitung, dan untuk membaca dan menulis MAT-files.

Pada artikel ini akan membahas mengenai fungsi-fungsi atau perintah-perintah dasar yang ada pada Matlab, diantaranya :
A.    Imread
B.     Imshow
C.     Size
D.    Imfinfo
E.     Imhist






A.    Imread
         Adalah suatu perintah dalam Matlab untuk membaca suatu data citra dari file atau gambar dengan menggunakan suatu perintah a=imread(‘nama file.bmp’). Imread digunakan untuk membaca image dari file qoleb.bmp yang hasilnya berupa matrik dan disimpan dalam sebuah variable a.

maka akan muncul suatu hasil seperti pada gambar berikut :

Data di atas merupakan hasil dari perintah a=imread(‘qoleb.bmp’). hasilnya dapat diketahui mengenai data citra dari sebuah file atau foto.

B.    Imshow
            Adalah suatu perintah dalam Matlab yang berfungsi untuk menampilkan suatu objek citra pada sebuah file atau foto. Perintah yang digunakan yaitu imshow(‘qoleb.bmp’) lalu tekan enter, maka akan muncul jendela baru seperti pada gambar berikut :


C.    Size
            Adalah sebuah perintah yang ada pada Matlab yang berfungsi untuk menampilkan suatu dimensi citra pada sebuah file atau foto dengan menggunakan suatu perintah size(a). menghasilkan ukuran matriks(ordo matriks), maka akan muncul hasil dimensi citra seperti pada gamabar berikut :


D.    Imfinfo
            Adalah sebuah perintah dalam Matlab yang berfungsi untuk menampilkan informasi secara lengkap mengenai sebuah citra. Imfinfo digunakan untuk memberikan informasi gambar suatu file grafik. Untuk perintah Imfinfo menggunakan imfinfo(‘qoleb.bmp’) maka akan menghasilkan suatu tampilan seperti pada gambar berikut, yaitu informasi lengkap mengenai citra, seperti ukuran, format, nama file, dan lain-lain. Kita gunakan untuk mengetahui detail informasi dari suatu file gambar. Mulai dari Nama File, Format, Size, Color Type, dan lain. Caranya cukup sederhana dengan memanfaatkan fungsi imfinfo().





E.    Imhist
            Adalah suatu perintah yang ada pada Matlab yang berfungsi untuk menampilkan suatu histogram dari sebuah citra dengan diawali menggunakan perintah p=imread(‘qoleb.bmp’) sebagai perintah deklarasi citra sebelum menampilkan histogram. Histogram adalah tampilan grafis dari tabulasi frekuensi yang digambarkan dengan grafis batangan manifestasi data benning. Tiap tampilan batang menunjukan proporsi frekuensi pada masing-masing deret karegori yang berdampingan dengan interval yang tidak tumpang tindih. Cara menjalankan langkah pertama sama seperti pada postingan sebelumnya (Cara Menampilkan File Gambar Menggunakan Matlab). Masukkan gambar (File -> Import Data) pilih gambar.


Setelah itu, gunakan perintah imhist(p) maka akan muncul tampilan histogram dari sebuah citra.




Sabtu, 10 Januari 2015

Contoh Program Sederhana Repeat

program pdhwd;
uses crt;

var pekan:integer;
    hari:integer;


begin

clrscr;
pekan:=1;
hari:=1;

  repeat hari<=1;

  begin

      until hari<=7;
      begin
      writeln('pekan ',pekan,' hari ',hari);
      hari:=hari+1;
      end;
  pekan:=pekan+1;

  end;


  readln;

end.

About Me

Blog gadgetmainstream.blogspot.com adalah blog yang berisi tentang informasi mengenai berbagai teknologi-teknologi terbaru seperti gadget, handphone, laptop, dan berbagai aksesoris-aksesoris pelengkap handphone dan laptop seperti powerbank, headset, dan masih banyak lainnya. blog ini juga menampilkan berbagai ilmu pengetahuan mengenai dunia pemrograman dalam ilmu komputer, seperti pemrograman bahasa C, bahasa PHP, dan masih banyak lainnya. 


Nama saya adalah Ahmad Asif Qolbi, saat ini (2015) masih menempuh pendidikan di bangku kuliah semester 5. mulai aktif bermain nge-blog pada saat duduk di bangku SMP kelas 2. saat itu, pertama kali diajarkan oleh kakak saya bagaimana cara nge-blog. saat itu, mulailah saya tergiur untuk terus nge-blog hingga sampai saat ini. sudah banyak blog yang dibuat namun karena faktor kesibukan di dunia nyata, beberapa blog terabaikan walau tidak semuanya. Terima kasih sudah membaca profil saya. Assalamu'alaikum. Regards.



Admin.

Jumat, 09 Januari 2015

Privacy Policy

Privacy Policy for www.gadgetmainstream.blogspot.com 

If you require any more information or have any questions about our privacy policy, please feel free to contact us by email at qolbiilkom2009@gmail.com. 

At www.gadgetmainstream.blogspot.com, the privacy of our visitors is of extreme importance to us. This privacy policy document outlines the types of personal information is received and collected by www.gadgetmainstream.blogspot.com and how it is used. 

Log Files
Like many other Web sites, www.gadgetmainstream.blogspot.com makes use of log files. The information inside the log files includes internet protocol ( IP ) addresses, type of browser, Internet Service Provider ( ISP ), date/time stamp, referring/exit pages, and number of clicks to analyze trends, administer the site, track user’s movement around the site, and gather demographic information. IP addresses, and other such information are not linked to any information that is personally identifiable. 

Cookies and Web Beacons 
www.gadgetmainstream.blogspot.com does use cookies to store information about visitors preferences, record user-specific information on which pages the user access or visit, customize Web page content based on visitors browser type or other information that the visitor sends via their browser. 

DoubleClick DART Cookie 
.:: Google, as a third party vendor, uses cookies to serve ads on www.gadgetmainstream.blogspot.com.
.:: Google's use of the DART cookie enables it to serve ads to users based on their visit to www.gadgetmainstream.blogspot.com and other sites on the Internet. 
.:: Users may opt out of the use of the DART cookie by visiting the Google ad and content network privacy policy at the following URL - http://www.google.com/privacy_ads.html 

Some of our advertising partners may use cookies and web beacons on our site. Our advertising partners include ....
Google Adsense


These third-party ad servers or ad networks use technology to the advertisements and links that appear on www.gadgetmainstream.blogspot.com send directly to your browsers. They automatically receive your IP address when this occurs. Other technologies ( such as cookies, JavaScript, or Web Beacons ) may also be used by the third-party ad networks to measure the effectiveness of their advertisements and / or to personalize the advertising content that you see. 

www.gadgetmainstream.blogspot.com has no access to or control over these cookies that are used by third-party advertisers. 

You should consult the respective privacy policies of these third-party ad servers for more detailed information on their practices as well as for instructions about how to opt-out of certain practices. www.gadgetmainstream.blogspot.com's privacy policy does not apply to, and we cannot control the activities of, such other advertisers or web sites. 

If you wish to disable cookies, you may do so through your individual browser options. More detailed information about cookie management with specific web browsers can be found at the browsers' respective websites.

DMCA

DMCA Policy
gadgetmainstream.blogspot.com is in compliance with 17 U.S.C. § 512 and the Digital Millennium Copyright Act (“DMCA”). It is our
policy to respond to any infringement notices and take appropriate actions under the Digital Millennium Copyright
Act (“DMCA”) and other applicable intellectual property laws. If your copyrighted material has been posted on
danabebas or if links to your copyrighted material are returned through our search engine and you want this material
removed, you must provide a written communication that details the information listed in the following section.
Please be aware that you will be liable for damages (including costs and attorneys’ fees) if you misrepresent
information listed on our site that is infringing on your copyrights. We suggest that you first contact an attorney for
legal assistance on this matter.
The following elements must be included in your copyright infringement claim:
* Provide evidence of the authorized person to act on behalf of the owner of an exclusive right that is allegedly
infringed.
* Provide sufficient contact information so that we may contact you. You must also include a valid email address.
* You must identify in sufficient detail the copyrighted work claimed to have been infringed and including at least
one search term under which the material appears in danabebas search results.
* A statement that the complaining party has a good faith belief that use of the material in the manner complained of
is not authorized by the copyright owner, its agent, or the law.
* A statement that the information in the notification is accurate, and under penalty of perjury, that the complaining
party is authorized to act on behalf of the owner of an exclusive right that is allegedly infringed.
* Must be signed by the authorized person to act on behalf of the owner of an exclusive right that is allegedly being
infringed.
Send the written infringement notice to the following address and an email notifcation, Please, use Contact.
We inform you that due to problem with our search engine we can’t guarantee that all content will be deleted, please
sent us CLICKABLE direct links to each publication which contains your illegal material. Only in this case we can
guarantee removal of all content.
Please allow 1-5 business days for an email response. Note that emailing your complaint to other parties such as our
Internet Service Provider will not expedite your request and may result in a delayed response due the complaint not
properly being filed.

Disclaimer

gadget-mainstream Web Site Agreement

The gadgetmainstream.blogspot.com Web Site (the "Site") is an online information service provided by gadget-mainstream ("gadgetmainstream.blogspot.com "), subject to your compliance with the terms and conditions set forth below. PLEASE READ THIS DOCUMENT CAREFULLY BEFORE ACCESSING OR USING THE SITE. BY ACCESSING OR USING THE SITE, YOU AGREE TO BE BOUND BY THE TERMS AND CONDITIONS SET FORTH BELOW. IF YOU DO NOT WISH TO BE BOUND BY THESE TERMS AND CONDITIONS, YOU MAY NOT ACCESS OR USE THE SITE. gadgetmainstream.blogspot.com MAY MODIFY THIS AGREEMENT AT ANY TIME, AND SUCH MODIFICATIONS SHALL BE EFFECTIVE IMMEDIATELY UPON POSTING OF THE MODIFIED AGREEMENT ON THE SITE. YOU AGREE TO REVIEW THE AGREEMENT PERIODICALLY TO BE AWARE OF SUCH MODIFICATIONS AND YOUR CONTINUED ACCESS OR USE OF THE SITE SHALL BE DEEMED YOUR CONCLUSIVE ACCEPTANCE OF THE MODIFIED AGREEMENT.
1. Copyright, Licenses and Idea Submissions. 
The entire contents of the Site are protected by international copyright and trademark laws. The owner of the copyrights and trademarks are gadgetmainstream.blogspot.com, its affiliates or other third party licensors. YOU MAY NOT MODIFY, COPY, REPRODUCE, REPUBLISH, UPLOAD, POST, TRANSMIT, OR DISTRIBUTE, IN ANY MANNER, THE MATERIAL ON THE SITE, INCLUDING TEXT, GRAPHICS, CODE AND/OR SOFTWARE. You may print and download portions of material from the different areas of the Site solely for your own non-commercial use provided that you agree not to change or delete any copyright or proprietary notices from the materials. You agree to grant to gadgetmainstream.blogspot.com a non-exclusive, royalty-free, worldwide, perpetual license, with the right to sub-license, to reproduce, distribute, transmit, create derivative works of, publicly display and publicly perform any materials and other information (including, without limitation, ideas contained therein for new or improved products and services) you submit to any public areas of the Site (such as bulletin boards, forums and newsgroups) or by e-mail to gadgetmainstream.blogspot.com by all means and in any media now known or hereafter developed. You also grant to gadgetmainstream.blogspot.com the right to use your name in connection with the submitted materials and other information as well as in connection with all advertising, marketing and promotional material related thereto. You agree that you shall have no recourse against gadgetmainstream.blogspot.com for any alleged or actual infringement or misappropriation of any proprietary right in your communications to gadgetmainstream.blogspot.com.
TrafficServer 1.01  TRADEMARKS.
Publications, products, content or services referenced herein or on the Site are the exclusive trademarks or servicemarks of gadgetmainstream.blogspot.com. Other product and company names mentioned in the Site may be the trademarks of their respective owners.
2. Use of the Site.
You understand that, except for information, products or services clearly identified as being supplied by gadgetmainstream.blogspot.com, gadgetmainstream.blogspot.comdoes not operate, control or endorse any information, products or services on the Internet in any way. Except for gadgetmainstream.blogspot.com- identified information, products or services, all information, products and services offered through the Site or on the Internet generally are offered by third parties, that are not affiliated with gadgetmainstream.blogspot.com a. You also understand that gadgetmainstream.blogspot.com cannot and does not guarantee or warrant that files available for downloading through the Site will be free of infection or viruses, worms, Trojan horses or other code that manifest contaminating or destructive properties. You are responsible for implementing sufficient procedures and checkpoints to satisfy your particular requirements for accuracy of data input and output, and for maintaining a means external to the Site for the reconstruction of any lost data.YOU ASSUME TOTAL RESPONSIBILITY AND RISK FOR YOUR USE OF THE SITE AND THE INTERNET. gadgetmainstream.blogspot.com PROVIDES THE SITE AND RELATED INFORMATION "AS IS" AND DOES NOT MAKE ANY EXPRESS OR IMPLIED WARRANTIES, REPRESENTATIONS OR ENDORSEMENTS WHATSOEVER (INCLUDING WITHOUT LIMITATION WARRANTIES OF TITLE OR NONINFRINGEMENT, OR THE IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE) WITH REGARD TO THE SERVICE, ANY MERCHANDISE INFORMATION OR SERVICE PROVIDED THROUGH THE SERVICE OR ON THE INTERNET GENERALLY, AND gadgetmainstream.blogspot.com SHALL NOT BE LIABLE FOR ANY COST OR DAMAGE ARISING EITHER DIRECTLY OR INDIRECTLY FROM ANY SUCH TRANSACTION. IT IS SOLELY YOUR RESPONSIBILITY TO EVALUATE THE ACCURACY, COMPLETENESS AND USEFULNESS OF ALL OPINIONS, ADVICE, SERVICES, MERCHANDISE AND OTHER INFORMATION PROVIDED THROUGH THE SERVICE OR ON THE INTERNET GENERALLY. gadgetmainstream.blogspot.com DOES NOT WARRANT THAT THE SERVICE WILL BE UNINTERRUPTED OR ERROR-FREE OR THAT DEFECTS IN THE SERVICE WILL BE CORRECTED.
YOU UNDERSTAND FURTHER THAT THE PURE NATURE OF THE INTERNET CONTAINS UNEDITED MATERIALS SOME OF WHICH ARE SEXUALLY EXPLICIT OR MAY BE OFFENSIVE TO YOU. YOUR ACCESS TO SUCH MATERIALS IS AT YOUR RISK. gadgetmainstream.blogspot.com HAS NO CONTROL OVER AND ACCEPTS NO RESPONSIBILITY WHATSOEVER FOR SUCH MATERIALS.

LIMITATION OF LIABILITY

IN NO EVENT WILL gadgetmainstream.blogspot.com BE LIABLE FOR (I) ANY INCIDENTAL, CONSEQUENTIAL, OR INDIRECT DAMAGES (INCLUDING, BUT NOT LIMITED TO, DAMAGES FOR LOSS OF PROFITS, BUSINESS INTERRUPTION, LOSS OF PROGRAMS OR INFORMATION, AND THE LIKE) ARISING OUT OF THE USE OF OR INABILITY TO USE THE SERVICE, OR ANY INFORMATION, OR TRANSACTIONS PROVIDED ON THE SERVICE, OR DOWNLOADED FROM THE SERVICE, OR ANY DELAY OF SUCH INFORMATION OR SERVICE. EVEN IF gadgetmainstream.blogspot.com OR ITS AUTHORIZED REPRESENTATIVES HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES, OR (II) ANY CLAIM ATTRIBUTABLE TO ERRORS, OMISSIONS, OR OTHER INACCURACIES IN THE SERVICE AND/OR MATERIALS OR INFORMATION DOWNLOADED THROUGH THE SERVICE. BECAUSE SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATION MAY NOT APPLY TO YOU. IN SUCH STATES, gadgetmainstream.blogspot.com LIABILITY IS LIMITED TO THE GREATEST EXTENT PERMITTED BY LAW.gadgetmainstream.blogspot.com makes no representations whatsoever about any other web site which you may access through this one or which may link to this Site. When you access a non-gadgetmainstream.blogspot.com web site, please understand that it is independent from gadgetmainstream.blogspot.com, and that gadgetmainstream.blogspot.com has no control over the content on that web site. In addition, a link to a gadgetmainstream.blogspot.com web site does not mean that gadgetmainstream.blogspot.com endorses or accepts any responsibility for the content, or the use, of such web site.
3. Indemnification. 
You agree to indemnify, defend and hold harmless gadgetmainstream.blogspot.com, its officers, directors, employees, agents, licensors, suppliers and any third party information providers to the Service from and against all losses, expenses, damages and costs, including reasonable attorneys' fees, resulting from any violation of this Agreement (including negligent or wrongful conduct) by you or any other person accessing the Service.
4. Third Party Rights.
The provisions of paragraphs 2 (Use of the Service), and 3 (Indemnification) are for the benefit of gadgetmainstream.blogspot.com and its officers, directors, employees, agents, licensors, suppliers, and any third party information providers to the Service. Each of these individuals or entities shall have the right to assert and enforce those provisions directly against you on its own behalf.
5.Term; Termination. 
This Agreement may be terminated by either party without notice at any time for any reason. The provisions of paragraphs 1 (Copyright, Licenses and Idea Submissions), 2 (Use of the Service), 3 (Indemnification), 4 (Third Party Rights) and 6 (Miscellaneous) shall survive any termination of this Agreement.
6.Miscellaneous. 
This Agreement shall all be governed and construed in accordance with the laws of The United States of America applicable to agreements made and to be performed in The United States of America. You agree that any legal action or proceeding between gadgetmainstream.blogspot.com and you for any purpose concerning this Agreement or the parties' obligations hereunder shall be brought exclusively in a federal or state court of competent jurisdiction sitting in The United States of America . Any cause of action or claim you may have with respect to the Service must be commenced within one (1) year after the claim or cause of action arises or such claim or cause of action is barred. gadgetmainstream.blogspot.com's failure to insist upon or enforce strict performance of any provision of this Agreement shall not be construed as a waiver of any provision or right. Neither the course of conduct between the parties nor trade practice shall act to modify any provision of this Agreement. gadgetmainstream.blogspot.com may assign its rights and duties under this Agreement to any party at any time without notice to you.
Any rights not expressly granted herein are reserved.

Kamis, 08 Januari 2015

Program Pemanggilan Nilai dengan Pascal

program prose;
uses crt;
procedure hitung (x,y,z :byte);
begin
clrscr;
z:=x+y;
writeln('nilai x= ',x);
writeln('nilai y= ',y);
writeln('nilai z= ',z);
end;

var a,b,c :byte;
begin
a:=5;
b:=7;
c:=3;
hitung (a,b,c);
writeln;
writeln('nilai a:= ',a);
writeln('nilai b:= ',b);
writeln('nilai c:= ',c);
readln;
end.

Program Hitung Faktorial Bilangan Prima dengan Pascal

program fakbaru;
uses crt;
var i,j,n:integer;

begin
clrscr;

for i:=1 to 10 do
begin

n:=0;
//writeln('faktor ',i);
for j:=1 to i do
   if (i mod j=0) then
   begin
   //writeln (j);
   n:=n+1;
   end;
//writeln('cacah faktor =',n);
if (n=2) then writeln(i,'bilangan prima');
end;


readln;
end.

Senin, 05 Januari 2015

Istilah-Istilah Penting dalam Komputer

Download
                The process of carrying copies fail from remote computer to computer caller with the help of a modem or network. To copy data from a main source to a peripheral device. The term is often used to describe the process of copying a file from an online service.
Intel
                One company that introduced the pentium microprocessor maker famous in the world. The world’s largest manufacturer of computer chips Intel still dominates the market for PC microprocessor.
Mother board
                The largest component in a PC. Called the mother because the board is a place all PC components such as the processor, main memory and bush controller support series. This is where the core components of your computer reside which are listed below. Also the support cards for video, sound and networking.
Pentium
                The name for the Intel processor called P5. Based pentium processor 64-bit operation and had 3.2 milion transistors. Pentium is a brand used for a series of X86 compatible microprocessor produced by Intel. In its most current from a pentium processor is a consumer level product with a two star rating.
Processor
                Called also single-chip. Central processing unit which is a tool that translates and executes an instruction through it or a tool that serves as the brain of  the computer.


Script Luas Lingkaran dengan Pascal

program lingkaran;
uses crt;
var r:integer;
s:real;
const p=3.14;
begin

r:=7;
s:=p*(r*r);

writeln(s);
readln;

end.

Menghitung Rumus Segitiga dengan Pascal

program segitiga1;
uses crt;

var a,t:integer;
L:real;
const k=0.5;

begin
clrscr;

a:=3;
t:=3;
l:=k*(a*t);

writeln(l);
readln;


end.

Program Pekan dan Hari dengan Pascal

program pekandanhari3;
uses crt;
var pekan:integer;
    hari:integer;
    begin
    clrscr;
    writeln(' pekan','hari');
    writeln('--------------');
    readln;
    for pekan:=1 to 4 do
    begin
    for hari:=1 to 7 do
    begin
    writeln('   ',pekan,'   ',hari);
    end;
    writeln('-------------');
    readln;
    end;
    end.

Program Penghitungan Dasar dengan Pascal

program tes2;
uses crt;
var a,b:real;
    c,d,e,f:integer;
begin
clrscr;

begin
write('Bilangan pertama = ');
readln(a);
end;

begin
write('Bilangan kedua = ');
readln(b);
end;

begin
writeln('Penjumlahan = ',a+b);

writeln('Pengurangan = ',a-b);

writeln('Perkalian = ',a*b);

writeln('Pembagian = ',a/b);

readln;
end;

end.

Program Luas Daerah dengan Pascal

program luasdaerah;
uses crt;
const phi=3.14;

var jarijari,zizi,luaz,n,y:integer;

function fungsii(luas:real):real;
  begin
  fungsi:=(luaz-luas);
  end;

begin
clrscr;
  begin
  writeln ('menghitung luas lingkaran');
  write ('Masukan jari-jari = ');
  readln (jarijari);
  luas:=phi*sqr(jarijari);
  writeln;
  writeln('Luas lingkaran adalah ',round(luas),' cm2, ');
  readln;
  end;

begin
writeln ('menghitung luas persegi');
write ('Masukan sisi = ');
readln (zizi);
luaz:=zizi*zizi;
writeln;
writeln ('Luas persegi adalah ',luaz);
readln;
end;

begin
writeln ('luas daerah yang diarsir adalah = ');
readln(fungsi);
end;

begin
for n:=10 to 100 do
writeln(y);
end;

end.