Çözüldü Tam Sayılar - Eşitsizlik - Programlama

https://i.ibb.co/XxbJHkmV/E-itsizlik.png
https://testcoz.hangisoru.com/ayt-matematik-deneme-sinavi-online-coz/
(Soru 1)

b ≥ 1 olmalı çünkü aksi durumda b - a > |a| eşitsizliği sağlanamaz,
a ≠ {-1, 0, 1} olmalı çünkü aksi durumda |a| > 1 eşitsizliği sağlanamaz.
Probleme göre bu şartlarda;
Maksimum(a) = 6 - 2 = 4 ve Minimum(a) = -4 olup a ∈ [-4, 4] - {-1, 0, 1}
Maksimum(b) = 4 + 6 - 1 = 9, b ∈ [1, 9] - {4} ===> b - a > |a| nedeniyle.

Kod:

|a| > 1        a        b        b - a < 6
-----------------------------------------
   4           -4       1            5
   3           -3       1, 2         4, 5
   2           -2       1, 2, 3      3, 4, 5
   2            2       5, 6, 7      3, 4, 5
   3            3       7, 8         4, 5
   4            4       9            5

Farklı Σb = 9(9 + 1) / 2 - 4 = 41.

Bilgisayar programlamayla ilgilenen öğrenciler için https://codingfleet.com/code-generator/fortran/ sitesindeki yapay zekâ tarafından
yazılan program (önemli iki hatasını düzelttim ve çıktı güzelliği için de birkaç kozmetik değişiklik yaptım):

https://i.ibb.co/Qj8tYWg0/E-itsizlik-Fortran.png

Program:

Kod:

! https://testcoz.hangisoru.com/ayt-matematik-deneme-sinavi-online-coz/
! sitesindeki 1. Soru
! https://i.ibb.co/XxbJHkmV/E-itsizlik.png
!
! For the integers a and b that satisfy the inequality 1 < |a| < b - a < 6,
! write a Fortran program to list the different values of b and calculate
! the sum of those distinct values.
!
! https://codingfleet.com/code-generator/fortran/ sitesindeki yapay zekâ tarafından
! yazılan programdır. Önemli iki hatasını düzelttim ve çıktı güzelliği için de
! birkaç kozmetik değişiklik yaptım.
program inequality_solver
    implicit none
    integer :: a, b, count_distinct_b = 0, count !count değişkenini tanımlamayı unutmuştu.
    integer, dimension(100) :: distinct_b
    integer :: sum_distinct_b = 0
    logical :: is_unique

    ! count_distinct_b ve sum_distinct_b değişkenlerinin başlangıç değerleri için gereksiz ayrı iki satır kullanmıştı.

    print*, "  Farkli b Degerleri" ! Liste yapmayı unuttuğu için başlık filan da yazmamıştı.
    print*, "  ------------------" ! Görüntü güzelliği için ekledim.
  
    ! Nested loops to check all possible combinations of a and b
    do a = -100, 100
        do b = a + 2, 100
            ! Check the inequality conditions
            if (abs(a) > 1 .and. b - a < 6 .and. b - a > abs(a)) then ! b - a > 0 yazdığı için saçma bir sonuç çıkıyordu.
                ! Check if b is unique
                is_unique = .true.
                do count = 1, count_distinct_b
                    if (distinct_b(count) == b) then
                        is_unique = .false.
                        exit
                    end if
                end do

                ! If b is unique, add it to the list and sum
                if (is_unique) then
                    count_distinct_b = count_distinct_b + 1
                    distinct_b(count_distinct_b) = b; print*,b ! b değerlerini yazdırmayı unutmuştu.
                    sum_distinct_b = sum_distinct_b + b
                end if
            end if
        end do
    end do
    print*, " "

! Print results
write(6, 10)"Number of distinct b values:", count_distinct_b ! Görüntü güzelliği için formatlı yazdırma yaptırdım.
print*, "  " ! Görüntü güzelliği için araya boşluk koydurdum
write(6, 10)"Sum of distinct b values: ", sum_distinct_b ! Görüntü güzelliği için formatlı yazdırma yaptırdım.
  
10 format(a,i2)

end program inequality_solver