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

Valet · 31.03.2011, 18:18

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

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

ZEKE · 01.04.2011, 01:49

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

ZEKE · 01.04.2011, 02:19

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

Может быть, я бы и помог, но - увы: знаний не хватает! Дело в том, что символ Название: smb.jpg
Просмотров: 294

Размер: 1.3 Кб

(он крайний правый в формуле) я встретил впервые в жизни и значения его не ведаю.

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

Код:

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

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

Код:

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

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

ZEKE · 01.04.2011, 11:35

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

ZEKE · 01.04.2011, 11:37

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

ZEKE · 01.04.2011, 12:11

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

Код:

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 · 01.04.2011, 12:39

Цитата:

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

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

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

ZEKE · 01.04.2011, 13:27

Спасибо.

Valet · 01.04.2011, 16:20

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

31.03.2011, 18:18	#1 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задание в паскале. Помогите с решением задание: составить программу для расчета графика функции, заданной параметрами при изменениипараметра t от a до b с шагом h За ранние спасибо Миниатюры

01.04.2011, 02:19	#3 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Точно не уверен в правильности программы, ибо задача поставлена не очень ясно. Не понятно нужно ли вводить значение переменной 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.

01.04.2011, 09:53	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Может быть, я бы и помог, но - увы: знаний не хватает! Дело в том, что символ (он крайний правый в формуле) я встретил впервые в жизни и значения его не ведаю. ZEKE, это как понимать: Код: x2:=power(e,i); x3:=power(e,i); Не знаю, может быть в АВС и добавлена стандартная функция возведения в степень, но вряд ли оттуда убрана обычная показательная функция, а потому куда резоннее написать так: Код: x2:=Exp(i); x3:=Exp(-i); И никакого е вводить (и уж тем более консольно!) не требуется.

01.04.2011, 01:49	#2 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	В знаменателе 2 или Z?

01.04.2011, 11:35	#5 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Этот символ как я понял, единица. Судя по размазанному почерку) Насчет EXP, вы правы. Я про нее и не подумал)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

01.04.2011, 11:37	#6 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Владимир, подскажите пожалуйста функцию для округления вещественных чисел до двух знаков)

01.04.2011, 13:27	#9 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо.

01.04.2011, 16:20	#10 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	прошу прощения за потчерк, там было 2 и в самом конце второй формулы 1