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-2010(С) Sergey K HomePage
Написати менi листа
Хостинг від FerR0zer

  Rated by MyTOP      Яндекс цитирования   Internet Map