FreePascal.ru

4 задача.jpg 3 задача.jpg посмотрите еще 2 задачки plz
program zad3_var3;
uses crt;
var
a, b, x, y: real;

begin clrscr;

a:=1.1;
while a<1&#46;61 do

begin
writeln(' a= ',a&#58;3&#58;1);
writeln('------------------------------');
x&#58;=0&#46;5;
while x<5&#46;1 do

begin ...

bormant писал(а):

xoma писал(а):

спасибище

я поняла, погрешность..
а если без нее делать?
вот и результаты с обычным решение совпадают(как вы говорили при х = 1,4, 2 и -2)
program zad1_var4;
uses crt;
const
a=1&#46;65;
b=1&#46;4;
var
x, q&#58; real;
begin
clrscr;
writeln (' Kontrol&#46; rabota 1, varian 4');
writeln ...

Но даже после исправления всех синтаксических ошибок, логические останутся на месте.
Ваши результаты: Q(1.4) = 2.586, Q(-2) = 10.816, Q(2) = 1.187
Берём куркулятор, считаем Q(1.4) = 1.65 * 1.4^3 + 7 * √1.4 = 4.5276 + 8.2825 = 12.810.
Не сходится, однако. Согласны?
да((
код я в ручную набирала,а ...

эту я написала,ток у меня вот как получилось:
Получилось ли? Ведь оно 1) не скомпилируется, 2) если исправить ошибки синтаксиса, будет считать несколько иную функцию, проверьте калькулятором, 3) условие (x = 1.4) and (x > 1.4) ложно при любых значениях x, 4) возведение в целую степень n при помощи ...

эту я написала,ток у меня вот как получилось:
program zad1_var4;
user crt;
const
a=1&#46;65;
var
x, q&#58; real;
begin
clrscr;
writeln (' a= ',a&#58;4&#58;2);
write ('Vvedite x = ');readln(x);
if x < 1&#46;4 then q&#58;=pi*sqr(x)-7/sqr(x) else
if (x = 1&#46;4) and (x > 1&#46;4) then q&#58;=a ...

Дарю:
const
eps = 1E-7;
a = 1&#46;65;
var
x, q&#58; real;
begin
write('Введите x&#58; '); readln(x);
if (abs(x) > 1&#46;4 - eps) and (abs(x) < 1&#46;4 + eps) then
q &#58;= pi * sqr(x) - 7 / sqr(x)
else if x < 1&#46;4 then
q &#58;= a * sqr(x) * x + 7 * sqrt(x)
else
q &#58;= ln(x + 7 ...

var a,x,pi,Q:real
Точка с запятой в конце строки иде??

pi - это НЕ переменная, а константа. Ее объявлять не надо - зарезервированное слово.
Q=('pi*sqr(x-7/sqr(x))')

Это полная бредятина - вместо = используйте оператор присваивания :=
А в кавычках указывается переменная строкового типа

И ...

то что я пытаюсь сделать,но исправляя одни ошибки получаются другие


var a,x,pi,Q:real

begin
a:=1.65;
pi:=3.14;
readln(x);
if (x < 1.4) then
begin
Q=('pi*sqr(x-7/sqr(x))')
end
else if (x = 1.4) then
begin
Q=('a*(x*x*x)+7*sqrt(x)')
end
else if (x > 1.4) then
begin
Q=('ln(x+7*sqrt(abs ...