catanedelcu

RE:  am facut programul in VB pentru excel  si se verifica si raspunsurile lui Lucipet  ,  in afara de 2018x2017  unde rezultatul e 4034 : (algoritmul e simplu,  e un derivat din Bresenham)
daca vrea cineva sa se joace cu asta poate descarca excelul gata facut, de aici ,  dar ca sa functioneze trebuie sa dati "enable editing"  si apoi "enable actions" dupa descarcare, ceea ce nu e recomandabil mereu)  

Sub Button1_Click()
L = Sheet1.Cells(7, 6)
h = Sheet1.Cells(7, 7)

Dim v As Double
p = 0
k = 1
For i = 1 To L
  v = i * (h / L)
  If v < k Then p = p + 1
 
  If v = k Then
           p = p + 1
           k = k + 1
           End If
           
  If v > k Then
           p = p + 2
           k = k + 1
           End If
Next i
Sheet1.Cells(7, 9) = p
             
End Sub

catanedelcu

RE:  ah  ,  si trebuiesc introduse ca Lungime  numarul mai mare adica latura mai mare a careului si ca inaltime  latura mai mica,   ca n-am mai stat sa fac discutie dupa panta dreptei.  daca e supraunitara  nu merge.