Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Projeler
  • Bu Konuda
Şimdi Ara

PASCAL BİLEN BİRİ YARDIM EDEBİLİR Mİİİİ?

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
1
Favori
987
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • BİLGİSAYAR PROGRAMLAMA I. DERSİ ÖRNEK SORULARI

    1) Klavyeden eleman sayısı girilen bir kümenin belirtilen kombinasyonlarının sayısını hesaplayan programı yazınız.
    ( n elemanlı bir kümenin r’li kombinasyonlarının sayısı aşağıdaki formülden bulunmaktadır.)


    2) Klavyeden girilen bir A tamsayısının tam bölenlerini veren programı yazınız.

    3) Klavyeden girilen bir sayının, belirtilen pozitif tam sayı üssünü alan programı yazınız.

    4) Bir ve kendisinden başka tamsayıya tam bölünemeyen tamsayılara “asal sayı” denir. Buna göre klavyeden girilen üst sınıra kadar olan asal sayıları ekrana yazdıran programı yazınız.

    5) Girilen bir pozitif tamsayının, iki sayının kareleri toplamı şeklinde yazılabilenleri hesaplayıp ekrana yazdıran programı yapınız.

    6) Klavyeden girilen b tamsayısına göre a3 – a2 = b şartını sağlayan 0 < a <100 arasındaki tam sayı veya sayıları bulup ekrana yazdıran programı yazınız.

    7) Basamaklarının toplamı basamak sayısına eşit olan 100-999 arasındaki tamsayıları bulan programı yapınız. (Örnek : 102=1+0+2=3, 111=1+1+1=3 gibi)

    8) Kendisi hariç bütün pozitif çarpanları (tam bölenleri) toplamı yine kendisine eşit olan sayılara “mükemmel sayı” denir. (Örnek : 6=1+2+3, 28=1+2+4+7+14 gibi) Buna göre,

    a) Klavyeden girilen bir tamsayının “mükemmel sayı” olup olmadığını kontrol eden programı,
    b) 0 ile 999 arasındaki mükemmel sayıları bulup ekrana yazdıran programı yazınız.

    9) Bir tam sayının en büyük bölenini bulup ekrana yazdıran programı yazınız.

    10) Ekrandan girilen iki tam sayının Ortak Bölenlerinin En Büyüğünü (OBEB) bulan ve ekrana yazdıran programı yazınız.

    11) Aşağıda verilen işlemin sonucunu, ekrandan girilen herhangi bir d tam sayısı için bulup, sonucunu ekrana yazan programı yazınız.




    12) Aşağıda verilen işlemin sonucunu, ekrandan girilen herhangi bir d tam sayısı için bulup, sonucunu ekrana yazan programı yazınız.




    13) Matrislerin boyutlarının ve elemanlarının ekrandan kullanıcı tarafından belirlendiği A ve B matrisin toplamını bulan Pascal programı yapınız.(Maksimum matris boyutu 10X10 olacaktır.)

    14) Ekranın EN ÜST SATIRINA yazdıracağınız isim ve soyadınızın, ekranda 500ms.’lik aralıklar ile aşağı kayarak hareket edip, alt kenara geldikten sonra kaybolup tekrar en üst satırdan aşağı doğru kaydığı ve herhangi bir tuşa basılana kadar devam eden programı yapınız.

    15) Klavyeden girilen; sıfırdan farklı, üç haneli bir tamsayıyı yazı ile ekrana yazdıran program yazınız.

    16) Klavyeden girilen bir noktanın ax+by+c=0 doğrusu üzerinde olup olmadığını, eğer değil ise noktanın doğruya olan uzaklığını veren programı yazınız.
    Bilgi Notu: P(x1, y1) noktası doğru üzerinde ise ax1+by1+c=0 doğru denklemini sağlar. Eğer değilse de noktanın doğruya olan üzaklığı uz= |ax1+by1+c| / (a2+b2)1/2 formülü ile hesaplanır.

    17) Her bir hanenin basamak sayısı kadar üstlerinin toplamı yine aynı sayıya eşit olan tam sayılara “Amstrong Sayıları” denir. Örneğin 153=1.1.1+5.5.5+3.3.3 gibi. Buna göre 100-999 arasındaki Amstrong sayılarını bulan programı yazınız.

    18) Kendi hanelerine tam bölünen 11 ile 99 arasındaki tam sayıları veren programı yazınız. Örneğin : 24 sayısı hem 2’ye hem de 4’e tam bölünmektedir (15, 36 vb).

    19) Basamaklarının toplamı basamak sayısına eşit olan 100 ile 999 arasındaki sayıları bulan programı yazınız. Örnek : 102 sayısı için 1+0+2=3 dir.

    20) Klavyeden girilen N elemanlı A dizisinin en büyük ve en küçük elemanlarını ve bu elemanların dizinin kaçıncı elemanı olduğunu bulan programı yazınız.




    LÜTFEN YARDIMMM







  • ACİL YARDIM LÜTFENNNN
  • Evet lütfen

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • yapamıyoruuum bunları ben
  • 4)
    var
    i,a:integer;
    begin

    for i:=3 to 100 do
    for a:=2 to i-1 do begin
    if((i mod a)=0)then
    break

    else if(a=i-1)then
    writeln('asal sayilar',i); end;
    readln;
    end.


    Kopyala yapıştırdan sonra kesme işaretlerini yeniden yazın.
  • Eger böyle sorarsa sınıfın çoğu kalır
  • evet zaten kaldık
    • Yapay Zeka’dan İlgili Konular
    Şu sorunuma birisi yardım edebilir mi acill
    9 yıl önce açıldı
    Şirket üzerine araba alan veya anlayan yardım edebilir mi ?
    7 yıl önce açıldı
    Allah rızası için biri yardım edebilir mi?
    3 ay önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız