Помогите с задачей в Паскале!

@Prescott · Регистрация: 16.12.2008

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

(a*x^2) + (b^(2/3)) x < 0,1
S={(a*x^2) x = 0,1
(b^(2/3)) x > 0,1; x Є [-1;1]

@Puporev · 16.12.2008, 15:14

Код

uses crt;
var x,a,b,S:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
repeat
write('x=');
readln(x);
until abs(x)<=1;
if x<0.1 then S:=a*x*x+exp(ln(b*b)/3)
else if x=0.1 then S:=a*x*x
else if x>0.1 then S:=exp(ln(b*b)/3);
write('S=',S:0:5);
readln
end.

@Prescott 0 / 0 / 0 Регистрация: 16.12.2008 Сообщений: 3
		1
	Помогите с задачей в Паскале! 16.12.2008, 14:47. Показов 665. Ответов 1 Метки нет (Все метки) (ax^2) + (b^(2/3)) x < 0,1 S={(ax^2) x = 0,1 (b^(2/3)) x > 0,1; x Є [-1;1] 0

	16.12.2008, 15:14