11.01.2012, 02:52
|
#1 (permalink) |
|
Новичок
Регистрация: 11.01.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить
|
|
|
|
11.01.2012, 02:52
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно в топиках которые создавались ранее уже есть полезные ответы Помогите решить Помогите решить Помогите решить |
|
11.01.2012, 03:17
|
#4 (permalink) | |
|
Новичок
Регистрация: 11.01.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
|
|
|
|
11.01.2012, 03:20
|
#5 (permalink) |
|
Новичок
Регистрация: 11.01.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
мне нужно эту функцию написать в паскале для сестры, а я сто лет этим не пользовался и вот решил обратиться к вам. Думаю, кто нить сможет помочь мне в этом!!!!
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|
11.01.2012, 04:09
|
#6 (permalink) | |
|
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Цитата:
Думаю завтра(вернее уже сегодня) вам помогут. А то у меня экзамен завтра(сегодня)... Если что то напишу... |
|
|
|
|
|
11.01.2012, 08:23
|
#7 (permalink) |
|
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Ловите:
Код:
const
a=-0.5;
b=2;
var t,y:real;
begin
t:=0;
y:=0;
while t<=3 do
begin
if t<1
then y:=1
else if t>2
then y:=exp(a*t)*cos(b*t)
else y:=a*sqr(t)*ln(t);
writeln('y=',y);
t:=t+0.15;
end;
readln;
end.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
