zadach11.BAS

{* Задача11 *}

REM basic

' Вывести на экран алфавитно-цифрового дисплея график y=sinx+cos2x и печать минимума и максимума функции.


10 INPUT "Введите интервал: ", a, b
30 INPUT "Введите количество точек: ", n
40 min=1E+10
50 max=1E-10
60 Dx=(b-a)/n
70 For x=a To b Step Dx
80 y=SIN(x)+COS(x+x)
90 If ymax Then max=y: xmax=x
110 Next x
120 Dy=(max-min)/n
130 For x=a To 3.225 Step Dx
140 y=SIN(x)+COS(x+x)
150 Nx=INT((y-min)/Dy+.5)
160 PRINT TAB(Nx*b); "*"; TAB(70); Using "##.##"; x
170 Next x
180 For i=0 To 6
190 PRINT TAB(i*10); Using "##.#"; min+Dy*i*3.225;
200 Next i
210 PRINT
220 PRINT "Ymin="; min; "Xmin="; xmin; "Ymax="; max; "Xmax="; xmax
230 End