bardzo przydatny program

 dla cyklistów z wątpliwościami co do biegów.

No bo po co nawalać w karkulator? Można dorobić coś uwzględniającego rozmiary obręczy i ogumienia, żeby nie powiedzieć opon; 

program tarcze
                                  ! gfortran -Wall -g tarcze.f90

                                          ! ./a.out

implicit none 

integer :: p(4), t(3), i, j

p(1) = 48; p(2) = 50; p(3) = 52; p(4) = 53

t(1) = 11; t(2) = 12; t(3) = 13

write(*,*) '******ciezkie*********'

do i = 1, size(p)

   do j = 1, size(t)

      write(*,'(''tylna: '',(i2), & 

      & ''; przednia: '',(i2), & 

      & ''; przel.: '',(f5.3))') &         

      &  t(j), p(i), real(p(i))/real(t(j))

   enddo

enddo

write(*,*) '******lekkie*********'

p(1) = 32; p(2) = 34; p(3) = 36; p(4) = 39

t(1) = 28; t(2) = 26; t(3) = 24

do i = 1, size(p)

   do j = 1, size(t)

      write(*,'(''tylna: '',(i2), &

      & ''; przednia: '', (i2), & 

      & ''; przel.: '',(f5.3))') &

      &   t(j), p(i), real(p(i))/real(t(j))

   enddo

enddo


end program tarcze

U mnie daje tyle:

 ******ciezkie*********
tylna: 11; przednia: 48; przel.: 4.364*
tylna: 12; przednia: 48; przel.: 4.000
tylna: 13; przednia: 48; przel.: 3.692
tylna: 11; przednia: 50; przel.: 4.545
tylna: 12; przednia: 50; przel.: 4.167
tylna: 13; przednia: 50; przel.: 3.846
tylna: 11; przednia: 52; przel.: 4.727
tylna: 12; przednia: 52; przel.: 4.333
tylna: 13; przednia: 52; przel.: 4.000
tylna: 11; przednia: 53; przel.: 4.818
tylna: 12; przednia: 53; przel.: 4.417
tylna: 13; przednia: 53; przel.: 4.077
 ******lekkie*********
tylna: 28; przednia: 32; przel.: 1.143
tylna: 26; przednia: 32; przel.: 1.231
tylna: 24; przednia: 32; przel.: 1.333**
tylna: 28; przednia: 34; przel.: 1.214
tylna: 26; przednia: 34; przel.: 1.308
tylna: 24; przednia: 34; przel.: 1.417
tylna: 28; przednia: 36; przel.: 1.286
tylna: 26; przednia: 36; przel.: 1.385
tylna: 24; przednia: 36; przel.: 1.500
tylna: 28; przednia: 39; przel.: 1.393
tylna: 26; przednia: 39; przel.: 1.500
tylna: 24; przednia: 39; przel.: 1.625

Nieliche, co?

(*) i (**) to skład sprzed roku, z kołami 26'' i oponkami 1.0. Na zjazdach lekki niedosyt, w górkę spokojnie wystarcza, jeśli dobrze wstać i się napiąć, kiedy stromizna przykazuje.