Sub slot() Dim c As Double Dim c1 As Double Dim c2 As Double Dim c3 As Double Dim z As Integer Dim b As Integer Dim T As Integer Dim n As Integer n = 100 ' nado golov c = 100 ' vsego deneg c1 = 10 ' za bika c2 = 5 'za korovy c3 = 0.5 'za telenka z = 0 Do b = 0 Do While b <= c / c2 T = 0 Do While T <= c / c3 If z + b + T = n Then If z * c1 + b * c2 + T * c3 = c Then MsgBox ("bikov: " & z & "korov: " & b & "Teliat: " & T) End If End If T = T + 1 Loop b = b + 1 Loop z = z + 1 Loop Until z > c / c1 End Sub
begin Writeln('Год Запас рыбы,т. Улов,т'); zapas := perv_zapas; for year := 1 to 20 do begin zapas := zapas * (1 + percent / 100); if zapas - plan < 250 then ulov := zapas - 250 else ulov := plan; zapas := zapas - ulov; if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1) else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана') end end.
Результат выполнения программы: Год Запас рыбы,т. Улов,т 1 950.0 180.0 2 893.5 180.0 3 829.7 180.0 4 757.5 180.0 5 676.0 180.0 6 583.9 180.0 7 479.8 180.0 8 362.1 180.0 9 250.0 159.2 - меньше плана 10 250.0 32.5 - меньше плана 11 250.0 32.5 - меньше плана 12 250.0 32.5 - меньше плана 13 250.0 32.5 - меньше плана 14 250.0 32.5 - меньше плана 15 250.0 32.5 - меньше плана 16 250.0 32.5 - меньше плана 17 250.0 32.5 - меньше плана 18 250.0 32.5 - меньше плана 19 250.0 32.5 - меньше плана 20 250.0 32.5 - меньше плана
Sub slot()
Dim c As Double
Dim c1 As Double
Dim c2 As Double
Dim c3 As Double
Dim z As Integer
Dim b As Integer
Dim T As Integer
Dim n As Integer
n = 100 ' nado golov
c = 100 ' vsego deneg
c1 = 10 ' za bika
c2 = 5 'za korovy
c3 = 0.5 'za telenka
z = 0
Do
b = 0
Do While b <= c / c2
T = 0
Do While T <= c / c3
If z + b + T = n Then
If z * c1 + b * c2 + T * c3 = c Then
MsgBox ("bikov: " & z & "korov: " & b & "Teliat: " & T)
End If
End If
T = T + 1
Loop
b = b + 1
Loop
z = z + 1
Loop Until z > c / c1
End Sub