Технический форум - Задание в паскале. Помогите с решением

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

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

Точно не уверен в правильности программы, ибо задача поставлена не очень ясно. Не понятно нужно ли вводить значение переменной 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.

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

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

Код:

x2:=power(e,i); 

x3:=power(e,i);

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

Код:

x2:=Exp(i); 

x3:=Exp(-i);

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

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

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

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

Код:

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.

Цитата:

Сообщение от ZEKE (Сообщение 495958)

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

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

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