Araştırma ve ödevleriniz için her türlü kaynağı ve dokümanı En Geniş Araştırma ve Ödev Sitesi: www.arsivbelge.com ile bulabilir ve İsterseniz siz de kendi belge ve çalışmalarınızı gönderebilirsiniz!
Her türlü ödev ve dokümanı
www.arsivbelge.com ile kolayca bulabilirsiniz!

Araştırmalarınız için Arama Yapın:


Araştırmalarınız için Arama Yapın:

  
                    

Qbasic Programı Örnekleri
www.arsivbelge.com
Qbasic Programı Örnekleri dokümanıyla ilgili bilgi için yazıyı inceleyebilirsiniz. Binlerce kaynak ve araştırmanın yer aldığı www.arsivbelge.com sitemizden ücretsiz yararlanabilirsiniz.
Qbasic Programı Örnekleri başlıklı doküman hakkında bilgi yazının devamında...
Ödev ve Araştırmalarınız için binlerce dokümanı www.arsivbelge.com sitesinde kolayca bulabilirsiniz.

Qbasic Örnek Kodları:

Silindir, Konik, Küre, Küp, Piramit, Kare Prizma, Üçgen Prizma, Dikdörtgen Prizma Şekillerinin Alan ve Hacimlerini QBasic ile Bulan Örnek Program Kodları:

REM SİLİNDİR ALAN VE HACMİ

CLS

INPUT  “SİLİNDİR YÜKSEKLİĞİNİ GİRİNİZ(H):”;  h

INPUT  “ÇEMBER YARIÇAPINI GİRİNİZ(R):”;  r

ALAN = 2 * 3 * r * (r + h)

HACIM = 3 * r * r * h

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM KONİK ALAN VE HACMİ

CLS

INPUT  “KONİK YÜKSEKLİĞİNİ GİRİNİZ(H):”;  h

INPUT  “ÇEMBER YARIÇAPINI GİRİNİZ(R):”;  r

sayi = r * r + h * h

KAREKOK = sayi ^ ( 1 / 2 )

ALAN = 3 * r * KAREKOK

HACIM = 3 * r * r * h / 3

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM KÜRE  ALAN VE HACMİ

CLS

INPUT  “KÜRE YARIÇAPINI GİRİNİZ(R):”;  r

ALAN = 4 * 3 * r * r

HACIM = 4 * 3 *  r * r * r / 3

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM KÜP  ALAN VE HACMİ

CLS

INPUT  “KÜP KENAR UZUNLUĞU GİRİNİZ(A):”;  a

ALAN = 6 * a * a

HACIM = a * a *  a

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM PİRAMİT   HACMİ

CLS

INPUT  “PİRAMİT TABAN KENAR UZUNLUĞU GİRİNİZ(A):”;  a

INPUT  “PİRAMİT  YÜKSEKLİĞİNİ GİRİNİZ(H):”;  h

HACIM = a * a  * h / 3

PRINT  “HACMİ=” HACIM

REM KARE PRİZMA  ALAN  VE  HACMİ

CLS

INPUT  “KARE KENARI UZUNLUĞU GİRİNİZ(A):”;  a

INPUT  “YÜKSEKLİK UZUNLUĞU GİRİNİZ(B):”;  b

ALAN =  2 * a * a  +  4 * a * b

HACIM = a * a  * b

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM ÜÇGEN  PRİZMA  ALAN  VE  HACMİ

CLS

INPUT  “ÜÇGEN  KENARI UZUNLUĞU GİRİNİZ(A):”;  a

INPUT  “YÜKSEKLİK UZUNLUĞU GİRİNİZ(B):”;  b

sayikarekoku = 3 ^ ( 1 / 2 )

ALAN =  2 * a*a * sayikarekoku / 4 +  3 * a * b

HACIM = b * a*a * sayikarekoku / 4

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

REM DİKDÖRTGEN  PRİZMA  ALAN  VE  HACMİ

CLS

INPUT  “A KENAR UZUNLUĞU GİRİNİZ(A):”;  a

INPUT  “B KENAR UZUNLUĞU GİRİNİZ (B):”;  b

INPUT  “C KENAR UZUNLUĞU GİRİNİZ (C):”;  c

ALAN =  2 * (a * b  +  b * c  +  a * c)

HACIM = a * b * c

PRINT “ALANI=”;  ALAN;  “HACMİ=” HACIM

Yazan: Ümit Sert


Ekleyen:Ümit SERT
Kaynak:(Alıntıdır)
Aradığınız Dokümanı Bulamadıysanız, Farklı Araştırmalar Yapmak İstiyorsanız Site İçi Arama Yapabilirsiniz!

Ödev ve Araştırmalarınız için www.arsivbelge.com Sitesinde Kaynak Arayın:

Ödev ve Araştırmalarınız için Arama Yapın:
     Benzer Dokümanları İnceleyin
23 Nisan Konuşma Metinleri, Güzel sözler ve Şiirler(5534)

          Tanıtım Yazıları
      
Türkçe İtalyanca ve Almanca Cümle Çevirisi İçin Birimçevir Sitesi

Esenyurt, Beylikdüzü ve Kartal Bölgelerinde Satılık Daire İlanları

Belge Çevirisi

Siz de Tanıtım Yazısı Yayınlamak İçin Tıklayın

Diğer Dökümanlarımızı görmek için: www.arsivbelge.com tıklayın.          

Siz de Yorum Yapmak İstiyorsanız Sayfanın Altındaki Formu Kullanarak Yorum Yazabilirsiniz!

Yorum Yaz          
Öncelikle Yandaki İşlemin Sonucunu Yazın: İşlemin Sonucunu Kutucuğa Yazınız!
Ad Soyad:
          
Yorumunuz site yönetimi tarafından onaylandıktan sonra yayınlanacaktır!