Нужно решение

[Marseline]

Нужно составить блок схему и решить.
В Турбо паскале 7
17 вариант
задание 7. 8. 9.
За каждую задачку дам по 70 рублей.
Задание
СОДЕРЖАНИЕ И ОФОРМЛЕНИЕ РАБОТ
Основная часть.
В основную часть работы входят математические формулы, алгоритмы и программы; ручной расчет;
Расчет на ЭВМ - входные данные, промежуточные результаты, выходные.
Текст программы. В тексте программы следует предусмотреть вывод входных, промежуточных и выходных данных.
Заключение о проделанной работе (сравнение ручного и машинного)

Изображение.jpg

Изображение0001.jpg

Изображение0002.jpg

Изображение0003.jpg

Изображение0004.jpg

[Marseline]

Program z_8; могут быть ошибки

y:=exp(x*ln(e))*sin(x)-e*e; - вместо этой строки надо вводить уравнения для каждого варианта (по очереди)

PHP код:

Program z1;
uses crt;
VAR x,a,y,
k1,k2,k3:real;
BEGIN
Clrscr;
Write ('Vvidite a:');
Readln(a);
Write ('Vvidite x,x>1,x<a:');
Readln(x);
   k1:=sqrt(sqr(a)-sqr(x));
   k2:=0.5*(exp(x)-exp(-x));
   k3:=0.5*(exp(x)+exp(-x));
 y:=k1+k2*k3;
 Writeln ('y=',y:5:3);
READKEY
End. 


PHP код:

PROGRAM  Program z_7;
USES CRT;
VAR  I,N:INTEGER;
A,B,C,H,S,S1,S2,X:REAL;
BEGIN
CLRSCR;
WRITELN('vvedite A');
READLN(A);
WRITELN('vvedite B');
READLN(B);
WRITELN('vvedite C');
READLN(C);
WRITELN('vvedite N');
READLN(N);
X:=A;
H:=(A-B)/N;
FOR I:=1 TO N DO
BEGIN
S1:=S1+exp(X*ln(2))+exp(X*ln(3))*H;
X:=X+H;
END;
WRITELN('S1=',S1:3:2);
X:=B;
S2:=0;
H:=(C-B)/N;
FOR I:=1 TO N DO
BEGIN
S2:=S2+(exp(x)-exp(-X))/(exp(X)+exp(-X));
X:=X+H;
END;
WRITELN('S2=',S2:3:2);
S:=S1+S2;
WRITELN ('S=',S:3:2);
READKEY;
END. 


PHP код:

 PROGRAM  Z8;
USES CRT;
VAR A,B,H,E,X,Y,Ymax,Ymin,Xmax,Xmin:REAL;
BEGIN
CLRSCR;
WRITELN ('VVEDITE A');
READln (A);
WRITELN ('VVEDITE B');
READln (B);
Writeln ('VVEDITE H');
Readln (H);
X:=A;
WHILE X<=B DO
BEGIN
Y:=exp(x*ln(e))*sin(x)-e*e;
WRITELN ('Y=',Y:3:3, ' при  X=',X:2:2);
X:=X+H;
END;
WRITELN;
Ymax:=-10000;
X:=A;
WHILE X<=B DO
BEGIN
Y:=exp(x*ln(e))*sin(x)-e*e;
IF Y>Ymax THEN BEGIN
              Ymax:=Y;
              Xmax:=X;
              END;
X:=X+H;
END;
WRITELN ('Ymax=',Ymax:3:3,' при Xmax',Xmax:2:2);
Ymin:=10000;
X:=A;
WHILE X<=B DO
BEGIN;
Y:=exp(x*ln(e))*sin(x)-e*e;
IF Y<Ymin THEN BEGIN
              Ymin:=Y;
              Xmin:=X;
              END;
X:=X+H;
END;
WRITELN ('Ymin=',Ymin:3:2,'при  Xmin=',Xmin:2:1);
READKEY
END. 


PHP код:

 PROGRAM  z9;
USES CRT;
LABEL 25;
VAR X,Y,Y0,X0,H,XK:REAL;
BEGIN
CLRSCR;
WRITELN ('VVEDITE X0:');
READLN (X0);
WRITELN ('VVEDITE Y0:');
READLN (Y0);
WRITELN ('VVEDITE H:');
READLN (H);
WRITELN ('VVEDITE XK:');
READLN (XK);
X:=X0;
Y:=Y0;
25:Y:= sqrt(abs(2-5*x));
 WRITELN('X=',X:2:2,'Y=',Y:2:2);
X:=X+H;
IF X<=XK THEN GOTO 25;
READKEY
END. 


[DoDge_VipeR]

program z8;
var  x:real;
     a,b,h:real;
     mx:real;
function f(y:real):real;
begin
f:=exp(y)*sin(y)-exp(2);
end;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('h=');
readln(h);
x:=a;
mx:=a;
while a<b do
begin
a:=a+h;
if f(a)>f(mx) then mx:=a;
end;
writeln('Ymax=',f(mx):3:3,' при Xmax',mx:2:2);
mx:=a;
x:=a;
while x<=b do
begin
x:=x+h;
if f(x)<f(mx) then mx:=x;
end;
writeln('Ymin=',f(mx):3:3,' при Xmin',mx:2:2);
readln;
end.

[Marseline]

Сообщение от DoDge_VipeR

Готов взяться за программную часть! контакты ниже!

Не слишком ли уже поздно?
Мне только осталось в 8 задачки подправить формулу. Блок схемы уже присутствуют.
Кстати что за после ввода данных 3, 6, набираю любую цифру и выдает ошибку 207?

[Marseline]

Сообщение от DoDge_VipeR

program z8;
var  x:real;
     a,b,h:real;
     mx:real;
function f(y:real):real;
begin
f:=exp(y)*sin(y)-exp(2);
end;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('h=');
readln(h);
x:=a;
mx:=a;
while a<b do
begin
a:=a+h;
if f(a)>f(mx) then mx:=a;
end;
writeln('Ymax=',f(mx):3:3,' при Xmax',mx:2:2);
mx:=a;
x:=a;
while x<=b do
begin
x:=x+h;
if f(x)<f(mx) then mx:=x;
end;
writeln('Ymin=',f(mx):3:3,' при Xmin',mx:2:2);
readln;
end.

Спасибо что разбил задачку по каждому значению.