Vera101

Добрый день. Необходима проверка и указания по исправлению. Спасибо.

Миниатюры

       

Vladimir_S

Добрый день, Вера. Готов Вам помочь, но при условии, что программы будут выложены в ТЕКСТОВОМ виде, а не рисунками. Или вручную их набивать для тестирования прикажете?
Сразу скажу - ошибки есть. Конкретнее после появления ТЕКСТОВЫХ листингов.

Vera101

<code>program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math;

procedure F(x,e:real);
var y0,y1:real;
begin
y0:=1;
y1:=1.5*y0-0.5*x*sqr(y0)*y0;
while Abs (y0-y1)>e do
begin
y0:=y1;
y1:=1.5*y0-0.5*x*sqr(y0)*y0;
end;
writeln('y=',y1:0:5);
write('1/sqrt(x)=', 1/sqrt(x):0:5);
end;
var x,e:real;
begin
e:=0.00001;
x:=2;
F(x,e);
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
</code>

Ошибки логические.

<code>
program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x,a,y,b,h,p:Real;
i,n:Integer;
function f1(x:Real):Real;
var yy:Real;
begin
yy:=(sqr(sqr(x)))+sqr(x)*x-10*sqr(x)-34*x-25;
f1:=yy;
end;
begin
a:=-2;
b:=0;
h:=0.1;
writeln ('a= ',a:4:0);
writeln ('b= ',b:4:0);
writeln ('h= ',h:4:1);
n:=Round((b-a)/h);
writeln ('n= ',n:4);
p:=1;
x:=a;
y:=f1(x);
writeln ('x= ',x:4:0);
writeln ('y= ',y:4:0);
writeln ('proizvedenie y>0 ravno',p:5:2);
if y>0
then p:=p*y;
for i:=1 to n do
begin
x:=x+h;
y:=f1(x);
writeln ('x= ',x:4:2);
writeln ('y= ',y:4:2);
Readln;
if y>0
then p:=p*y;
writeln ('proizvedenie y>0 ravno ',p:5:2);
end;
writeln ('proizvedenie y>0 ravno ',p:5:2);
readln;
end.
</code>

Vladimir_S

Так. Весело.
Вера, но ведь это программы от абсолютно других заданий! Я прошу совсем немногого: задание (можно картинкой) и набросок программы К НЕМУ (обязательно текстом). Или мои просьбы чрезмерны а потому невыполнимы?

Vera101

Ничего веселого не вижу. Это и есть те задания, которые я сделала в программе.

Vera101

И задания к ним были выше.

Vera101

А хотя да, одно не то.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

var x,a,y,c,d:Real;
function max2
(x1,x2:Real):Real;
var max:Real;
begin
max:=x1;
if max>x2
then max:=x2;
max2:=max;
end;
function min3
(x1,x2,x3:Real):Real;
var min:Real;
begin
min:=x1;
if min<x2
then min:=x2;
if min<x3
then min:=x3;
min3:=min;
end;
begin
Writeln ('vvod x,y,c,d');
Readln (x,y,c,d);
if(x*y>3)
then a:=((x*x*x)+ln(exp((c*d)*ln(x*y)))/ln(10))
else
if ((x*y>2)and (x*y<3))
then a:=min3(x,y,max2(c*x,d*y))
else
a:=((exp((c*d)*ln(2)))- x);
Writeln ('a=', a:3:2);
Readln;
end.

Vera101

Выше были скинуты задания. Текста к ним не было. И мои наброски к ним тоже.

Vera101

var x,e,n,x2,A:real;
begin
e:=0.001;
x:=0.4;
X2:=x*x;
A:=x;
N:=2;
Readln (A);
While (A>e) do
begin
A:=A*x2/(N*(N+1));
N:=N+2;
writeln('(a)=', a:0:5);
Readln (A);
end;
end.

Когда записано много вариантов и ты сидишь до утра, то не удивительно вставить другое. Так что не вижу ничего веселого.

Vladimir_S

Извините. Вероятно, у меня что-то со зрением. В первой программе я вижу решение уравнения
y = 1.5y-0.5xy³
методом простой итерации. Покажите пожалуйста, где что-либо подобное требуется в Ваших заданиях, показанных в первом посту темы?
Что касается второй программы, то её смысла я вообще постичь не могу. Извините.

Вера, всё, о чём я Вас просил, это выложить ТЕ ЖЕ ЛИСТИНГИ, которые Вы выложили в посте #1, только не в виде картинок, а ТЕКСТОМ. И всё. А Вы даёте какие-то совсем другие программы по неизвестно каким заданиям. Пожалуйста, если надо - разберемся и с ними, только тогда покажите сами задания.