Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
program z1
program z1; uses crt; var x, y, b,c:real; l:integer; begin write('Ведите коэффиценты'); readln(b,c); writeln('x':6, 'y=x^3+bx+c' :15); {выводим заголовок} writeln('________________' ); {while} x:=2; {начальное значение} while x<=20 do begin {20 - конечное значание} y:=x*x*x+b*x+c; writeln(x:6:2, y:15:2); x:=x+2; end; x:=2 repeat y:=x*x*x+b*x+c writeln(x:6:2,5:15:2); x:=x+2; until x>20 {for} {расчет кол-ва точек на [A, B] с шагом H. k:=round(B-A)/H+1} x:=2 for i:=1 to round ((20_2)/2+1) do begin y:=x*x*x+b*x+c wtiteln(x:6:2, y:15:2); x:=x+2 end.
run
|
edit
|
history
|
help
0
BubbleSor (slimmer)
считалочка06
dad
Ariketa 06
Kim
Ejercicio SQRT
Урок 4 задача 6
JHONATAN MARINS DA SILVA 600623806
Lunohod-1
Урок 6. Задача 9 (1533). Два самых маленьких числа