Çözüldü Obeb okek

Konusu 'Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK' forumundadır ve enricoo_1981 tarafından 8 Kasım 2018 başlatılmıştır.

Yüklüyor...
  1. enricoo_1981

    enricoo_1981 Aktif Üye

    Mesajlar:
    146
    Beğenileri:
    62
    Cinsiyet:
    Bayan
    Yardım ederseniz sevinirim

    Ekli Dosyalar:

  2. Honore

    Honore Yönetici

    Mesajlar:
    2.656
    Beğenileri:
    354
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Yine aritmetik diziyle yapabildim ama daha basit bir çözümü de olabilir.

    9'un katları olarak 71. sayı 9·71 = 639 olur.
    İlk terimi 15 ve ortak farkı 15 olan aritmetik dizi 15, 30, 45, ... şeklinde gider ve EKOK(9, 15) = 45 olduğundan bu dizi aşağıdaki gibi iki parçaya ayrılabilir:
    15, 60, 105, ...
    30, 75, 120, ...
    100 - 71 = 29 olup bu iki dizide 14. terimler;
    15 + (14 - 1)·45 = 600 < 639
    30 + (14 - 1)·45 = 615 < 639
    O halde hepsi birden sıralandığında 71 + 14 + 14 = 99. terim 639 olup 100. terim 600 + 45 = 645 olur.
    ---
    Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:
    [​IMG]
    https://image.ibb.co/cJNB7q/siralama.png

    Program:
    Kod:
    program sayilar
    integer :: i=9,toplam=0
    
    open (unit = 1, file = "sayilar.txt")
    
    do
    
       if((mod(i,9)==0).or.(mod(i,15)==0)) then
          toplam=toplam+1
          write(6,10)toplam,'  ',i
          write(1,10)toplam,'  ',i
          if (toplam==100) exit
       endif
     
       i=i+1 
    
    enddo
    
    print*,''
    write(6,15) 'Bastan 100. sayi: ',i,' ve tam liste sayilar.txt dosyasindadir.'
    
    close(1)
    
    10 format (i3,a,i3)
    15 format (a,i3,a,/)
    
    end program
    Tam liste aşağıdadır ve ayrıca ekte de verilmiştir:
    1 9
    2 15
    3 18
    4 27
    5 30
    6 36
    7 45
    8 54
    9 60
    10 63
    11 72
    12 75
    13 81
    14 90
    15 99
    16 105
    17 108
    18 117
    19 120
    20 126
    21 135
    22 144
    23 150
    24 153
    25 162
    26 165
    27 171
    28 180
    29 189
    30 195
    31 198
    32 207
    33 210
    34 216
    35 225
    36 234
    37 240
    38 243
    39 252
    40 255
    41 261
    42 270
    43 279
    44 285
    45 288
    46 297
    47 300
    48 306
    49 315
    50 324
    51 330
    52 333
    53 342
    54 345
    55 351
    56 360
    57 369
    58 375
    59 378
    60 387
    61 390
    62 396
    63 405
    64 414
    65 420
    66 423
    67 432
    68 435
    69 441
    70 450
    71 459
    72 465
    73 468
    74 477
    75 480
    76 486
    77 495
    78 504
    79 510
    80 513
    81 522
    82 525
    83 531
    84 540
    85 549
    86 555
    87 558
    88 567
    89 570
    90 576
    91 585
    92 594
    93 600
    94 603
    95 612
    96 615
    97 621
    98 630
    99 639
    100 645

    Ekli Dosyalar:

    • sayilar.txt
      Dosya Boyutu:
      1.000 bayt
      Görüntüleme:
      8

Sayfayı Paylaş