Çözüldü Basit Eşitsizlik - Programlama

Konusu 'Denklem Çözme, Eşitsizlikler, Oran-Orantı, Özdeşlikler ve Çarpanlara Ayırma' forumundadır ve TalhaEnes tarafından 6 Eylül 2015 başlatılmıştır.

Yüklüyor...
  1. TalhaEnes

    TalhaEnes Yeni Üye

    Mesajlar:
    2
    Beğenileri:
    0
    Cinsiyet:
    Bay
    x, y ve z pozitif tam sayılardır. x < y - z ve x·y = 36 + x·z ise x sayısının alabileceği farklı değerlerin toplamı kaçtır?
    Son düzenleyen: Moderatör: 24 Kasım 2025
    TalhaEnes, 6 Eylül 2015
    #1
     
    : Fortran

    2. Benzer Konular: Basit Eşitsizlik
    Forum Başlık Tarih
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Mutlak Değer Fonksiyonu - Birinci Derece Basit Eşitsizlik (Diploma İptali Sınavından) 19 Nisan 2025
    Matematik - Geometri Birinci Dereceden Çok Bilinmeyenli Denklem ve Basit Eşitsizlikle Problem Çözümü 30 Ocak 2019
    Matematik - Geometri Pisagor Teoremi-Öklit Bağıntıları-Kareköklü Sayılar-Basit Eşitsizlikler (2 Soru) 20 Ekim 2018
    Denklem Çözme, Eşitsizlikler, Oran-Orantı, Özdeşlikler ve Çarpanlara Ayırma Basit Eşitsizlikler (3 Soru) 21 Kasım 2017
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Basit Eşitsizlikler 7 Nisan 2015

  2. murat_16

    murat_16 Yeni Üye

    Mesajlar:
    355
    Beğenileri:
    127
    x·y - x·z = 36
    x(y - z) = 36
    x < y - z olduğundan
    x = 1, x = 2, x = 3, x = 4
    1 + 2 + 3 + 4 = 10
    murat_16, 15 Eylül 2015
    #2
    Honore bunu beğendi.
  3. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    11.402
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Bilgisayar programlama (kodlama) ile ilgilenen öğrenciler için Fortran çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/xyz_fo10.png

    Program:
    Kod:
    ! x, y ve z pozitif tam sayılardır. x < y - z ve x·y = 36 + x·z ise x
! sayısının alabileceği farklı değerlerin toplamı kaçtır?
program xyz
integer :: x, y, z, boyut = 0, i = 0, j, k = 0, p, temp, toplamx = 0
integer, allocatable :: topx(:),res(:)

do x=1,36; do y = 1, 100; do z = 1, 100
   if ((x < y - z).and.(x*y ==(36+x*z))) then
      boyut = boyut + 1
   endif
enddo; enddo; enddo

allocate(topx(boyut)) 

do x=1,36; do y = 1, 100; do z = 1, 100
   if ((x < y - z).and.(x*y ==(36+x*z))) then
      i = i + 1; topx(i) = x
   endif
enddo; enddo; enddo

allocate(res(size(topx)))

do j=1,i
   if (any(res == topx(j))) cycle
   k = k + 1
   res(k) = topx(j)
enddo

print*,''
write(*,fmt='(a,i3,a,/)') 'Farkli x degerlerinin sayisi:',k,' adet.'

do j=1,k-1
   do p=j+1,k
      if (res(j) /= res(p)) then
      temp=res(j)
      res(j)=res(p)
      res(p)=temp
      endif
    enddo
enddo

do j=1,k
   write(6,10)"         ",res(j); toplamx=toplamx+res(j)
enddo

print*,"        ---"
write(6, 10)"Toplam = ",toplamx

deallocate(topx, res)

10 format(a,i3)

end
    Honore, 24 Kasım 2025
    #3

Sayfayı Paylaş