Задание в паскале. Помогите с решением

[Valet]

Задание в паскале. Помогите с решением

задание: составить программу для расчета графика функции, заданной параметрами при изменениипараметра t от a до b с шагом h

За ранние спасибо

 

[ZEKE]

В знаменателе 2 или Z?

 

[ZEKE]

Точно не уверен в правильности программы, ибо задача поставлена не очень ясно. Не понятно нужно ли вводить значение переменной E или нет. Я решил ввести, если что сами исправите. Программа немного громоздка, если кто исправит, будет замечательно)
Вот код:

Program graf;
uses crt;
var
i,a,b,h,t:integer;
x,e,y,z,x1,x2,x3:real;
begin
writeln(' - MENU -');
writeln('1 - FORMULA 1, 2 - FORMULA 2');
write('Enter Number:');
read(t);
if(t=1)
then
begin
writeln('Enter a,b,h,e=');
read(a,b,h,e);
for i:=a to b do
begin
if(i>=b)
then
break;
i:=i+h;
x:=power(e,i);
x1:=power(e,-i);
writeln('Otvet: ',x,'+',x1,' /2 - ',(i),' = ',((x+x2/2)-i));
end;
end;
if(t=2)
then
begin
writeln('Enter a,b,h,e=');
read(a,b,h,e);
for i:=a to b do
begin
if(i>=b)
then
break;
i:=i+h;
x2:=power(e,i);
x3:=power(e,i);
writeln('Otvet: ',x2,'-',x3,' /2 - ',(1),' = ',((x2-x3/2)-1));
end;
end;
end.

 

[Vladimir_S]

Может быть, я бы и помог, но - увы: знаний не хватает! Дело в том, что символ (он крайний правый в формуле) я встретил впервые в жизни и значения его не ведаю.

ZEKE, это как понимать:

x2:=power(e,i); 
x3:=power(e,i);

Не знаю, может быть в АВС и добавлена стандартная функция возведения в степень, но вряд ли оттуда убрана обычная показательная функция, а потому куда резоннее написать так:

x2:=Exp(i); 
x3:=Exp(-i);

И никакого е вводить (и уж тем более консольно!) не требуется.

 

[ZEKE]

Этот символ как я понял, единица. Судя по размазанному почерку)
Насчет EXP, вы правы. Я про нее и не подумал)

 

[ZEKE]

Владимир, подскажите пожалуйста функцию для округления вещественных чисел до двух знаков)

 

[ZEKE]

Исправил немного, получилось так:

Program graf;
uses crt;
var
i,a,b,h,t:integer;
x,y,z,x1,x2,x3:real;
begin
writeln(' - MENU; -');
writeln('1 - FORMULA 1, 2 - FORMULA 2');
write('Enter number:');
read(t);
if(t=1)
then
begin
writeln('Enter a,b,h=');
read(a,b,h);
for i:=a to b do
begin
if(i>=b)
then
break;
i:=i+h;
x:=exp(i);
x1:=exp(-i);
writeln('Otvet: ',x:8:3,'+',x1:8:4,' /2 - ',(i),' = ',((x+x1/2)-i):8:3);
end;
end;
if(t=2)
then
begin
writeln('Enter a,b,h=');
read(a,b,h);
for i:=a to b do
begin
if(i>=b)
then
break;
i:=i+h;
x2:=exp(i);
x3:=exp(i);
writeln('Otvet: ',x2:8:3,'-',x3:8:3,' /2 - ',(1),' = ',((x2-x3/2)-1):8:3);
end;
end;
end.

 

[Vladimir_S]

Владимир, подскажите пожалуйста функцию для округления вещественных чисел до двух знаков)

Если по рабоче-крестьянски, то так:
y:=(Round(x*100))/100;
Может быть, и поумнее как-нибудь можно, не знаю.

 

[ZEKE]

Спасибо.

 

[Valet]

прошу прощения за потчерк, там было 2 и в самом конце второй формулы 1

 

[ZEKE]

Задача как надо?)))

 

[Valet]

ну сын заболел, пока не смотрели вмести с ним, я то плохо в этом разбираюсь) ну надеюсь все правильно. Большое спасибо!

 

[Valet]

что делает break в формуле?

 

[Valet]

как нибуть без брейка можно сделать?

 

[Vladimir_S]

как нибуть без брейка можно сделать?

Можно. Например, так:

VAR
 a,b,h,t:Real;
 N,i:Word;

Function X(Tx:Real):Real;
begin
 X:=0.5*(Exp(Tx)+Exp(-Tx))-Tx;
end;

Function Y(Ty:Real):Real;
begin
 Y:=0.5*(Exp(Ty)-Exp(-Ty))-1;
end;

BEGIN
 Write('Lower T value = ');
 ReadLn(a);
 Write('Upper T value = ');
 ReadLn(b);
 Write('Step T value = ');
 ReadLn(h);
 N:=Trunc((b-a)/h);
 For i:=0 to N do
  begin
   t:=a+h*i;
   WriteLn(X(t):10:5,Y(t):20:5);
  end;
 Readln;
END.

 

[Valet]

Function X(Tx:Real):Real; а без этого? просто они такое еще не проходили, надо задачу как то по простому сделать с помощью ветвления в ветвлении

 

[Vladimir_S]

Function X(Tx:Real):Real; а без этого? просто они такое еще не проходили, надо задачу как то по простому сделать с помощью ветвления в ветвлении

Можно и без функций. И даже без ветвлений.

VAR
 a,b,h,t,x,y:Real;
 N,i:Word;

BEGIN
 Write('Lower t value = ');
 ReadLn(a);
 Write('Upper t value = ');
 ReadLn(b);
 Write('Step t value = ');
 ReadLn(h);
 N:=Trunc((b-a)/h);
 For i:=0 to N do
  begin
   t:=a+h*i;
   x:=0.5*(Exp(t)+Exp(-t))-t;
   y:=0.5*(Exp(t)-Exp(-t))-1;
   WriteLn(x:10:5,y:20:5);
  end;
 Readln;
END.

 

[Хелен]

Ну так совсем не интересно)))

 

[Valet]

нужно имено с ветвлением)

 

[Valet]

спасибо