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
1
Huong11a2@
Banking
practica 11 ejercicio 2
jhjj
LogOp2
Huong11a2@
practica 7 ejercicio B7
xFiles
ANDERSON MARINS DE SOUZA 600622591