10 PRINT TAB(10);"ПОИСК МИНИМУМА ФУНКЦИИ F(X)" 20 PRINT TAB(7);"С ИСПОЛЬЗОВАНИЕМ ЧИСЕЛ ФИБОНАЧЧИ":PRINT 30 PRINT"ПОДПРОГРАММА ВЫЧИСЛЕНИЯ ФУНКЦИИ F(X) ВВЕДЕНА (ДА-НЕТ)"; 40 INPUT A$:PRINT:IF A$="ДА" THEN 90 50 PRINT:PRINT" ВВЕДИТЕ ПОДПРОГРАММУ 250, ВХОДОМ КОТОРОЙ ЯВЛЯЕТСЯ" 60 PRINT"X-ВЕЛИЧИНА АРГУМЕНТА, ВЫХОДОМ-ЗНАЧЕНИЕ F ФУНКЦИИ F(X)." 70 PRINT:PRINT" ВВЕДЯ ПОДПРОГРАММУ, ЗАПУСТИТЕ ПРОГРАММУ СНАЧАЛА." 80 GOTO 240 90 DIM F(100) 100 PRINT"ЗАДАЙТЕ A,B-ЛЕВУЮ И ПРАВУЮ ГРАНИЦЫ ЗОНЫ ПОИСКА"; 110 INPUT A,B 120 PRINT"E-ПРЕДЕЛ СУЖЕНИЯ ШИРИНЫ ЗОНЫ ПОИСКА"; 130 INPUT E 140 F(1)=0:F(2)=1:N=(B-A)/E:M=2 150 M=M+1:F(M)=F(M-2)+F(M-1):IF F(M) 2003-2022 (С) SergeyK HomePage
Кoнтaкти
Хостинг від FerR0zer Повне копіювання матеріалів лише зі згоди автора.
Часткове копіювання обов'язково з посиланням на джерело.