Вычислить значение функции

@alc · Регистрация: 23.04.2009

Author24 — интернет-сервис помощи студентам

вычислить значение функции y=(4*x*x*x)-(2*x*x)+5 для значений Х изменяющихся от -3 до 1 с шагом 0.1

@Puporev · 25.04.2009, 21:08

Pascal

uses crt;
var x,y:real;
    k:integer;
begin
clrscr;
x:=-3;{начальное значение}
k:=0;
repeat
y:=4*x*x*x-2*x*x+5;{считаем}
writeln('x=',x:4:1,'   y=',y:7:2);{выводим}
x:=x+0.1;{добавляем х}
k:=k+1;{считаем сколько раз}
if k mod 21=0 then readln;{если 21, то задерживаем для просмотра, все на экран не войдет}
until x>1;{дошли до конца, заканчиваем}
readln
end.

@alc 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 4
		1
	Вычислить значение функции 25.04.2009, 20:26. Показов 1176. Ответов 1 Метки нет (Все метки) вычислить значение функции y=(4xxx)-(2x*x)+5 для значений Х изменяющихся от -3 до 1 с шагом 0.1 0

	25.04.2009, 21:08

Вычислить значение функции

Решение