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
bai1
LETICIA VIEIRA TEIXEIRA 600618795
Zad 3 a
formato_real
test22
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
practica 9 ejercicio 7
IPR2
1
jhjj