Симферопольский Форум: Нужна помощь в написании проги - Симферопольский Форум

Перейти к содержимому

Внимание! Для всех новых пользователей введена премодерация сообщений и тем.
Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Нужна помощь в написании проги внутри задача

#1 Пользователь офлайн   kosmos 

  • космосила
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 2 630
  • Регистрация: 16 Сентябрь 10
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 14:39

КАМРАДЫ ПОМОГИТЕ написать программу,вычисляющую значения переменных y и s по известным значениям переменных a,b,t,(любые числа)
y=e^-bt * sin( at+B )/>-sqrt(|bt+a|)
s=b*sin(at^2*cos2t)-1
тесты для проверки: а=-0,5;b=1,7;t=0,44


думаю что пиво или сок будет по требованию)))

Глупостей у нас тут нет. Есть мнения. Есть особые мнения, есть плюрализм мнений - (Pat)
Так охуеть, чтобы потом всю жизнь гордиться этим - (Инквизитор)

#2 Пользователь офлайн   Mikle 

  • Mega poster
  • PipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Активный участник
  • Сообщений: 145
  • Регистрация: 25 Январь 12
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 14:58

Если Вам очень срочно и подойдет любой способ, то можно приспособить Excel и вбить туда формулы.


#3 Пользователь офлайн   Schwein 

  • –· ·– ···· ··– ·––– ··––··
  • Перейти к галерее
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Модераторы
  • Сообщений: 14 868
  • Регистрация: 15 Сентябрь 10
  • Сказали спасибо раз:

Отправлено 09 Август 2013 - 15:36

Ну так, например:

C:\>echo a=-0.5; b=1.7; t=0.44; e(-b*t)*s(a*t+B) / -sqrt(sqrt((b*t+a)*(b*t+a))) | bc -l
-.94651884707427292064

C:\>echo a=-0.5; b=1.7; t=0.44; b*s(a*t*t*c(2*t))-1 | bc -l
-1.10478313103357901093


bc — такой себе калькулятор из командной сроки, в аттаче версия оного для Windows :)

P.S. Парсер форумовский корёжит текст... так что правильный код — во втором аттаче.

Прикрепленные файлы

  • Прикрепленный файл  bc.exe.zip (25,23К)
    Количество загрузок:: 9
  • Прикрепленный файл  bc.txt (197байт)
    Количество загрузок:: 9


#4 Пользователь офлайн   Andreios 

  • Kill them all
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 6 390
  • Регистрация: 28 Июль 11
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 15:44

или на питоне к примеру:


import math

a = -0.5
b = 1.7
t = 0.44

def s_calc(a,b,t):
    s = b * math.sin(math.pow((a * t), 2) * math.cos(2 * t))-1
    return s

def y_calc(a,b,t):
    y = math.pow(2.7, (-b*t)) * math.sin(a*t + B) - math.sqrt(abs(b * t + a))
    return y



простите, паскаля не знаю :)/>


#5 Пользователь офлайн   kosmos 

  • космосила
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 2 630
  • Регистрация: 16 Сентябрь 10
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 15:50

вроде просили на паскале.

В любом случае спасибо. линку скинул страждущему. :rolleyes:

Глупостей у нас тут нет. Есть мнения. Есть особые мнения, есть плюрализм мнений - (Pat)
Так охуеть, чтобы потом всю жизнь гордиться этим - (Инквизитор)

#6 Пользователь офлайн   Andreios 

  • Kill them all
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 6 390
  • Регистрация: 28 Июль 11
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 16:01

К слову, форумный постер сходит с ума, и b меняет на B, и после скобок добавляет '/>'


#7 Пользователь офлайн   kosmos 

  • космосила
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 2 630
  • Регистрация: 16 Сентябрь 10
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 09 Август 2013 - 16:05

Просмотр сообщенияAndreios (09 Август 2013 - 16:01) писал:

К слову, форумный постер сходит с ума, и b меняет на B, и после скобок добавляет '/>'



я если честно в этом нихт фирштейн)))) :beer2:

Глупостей у нас тут нет. Есть мнения. Есть особые мнения, есть плюрализм мнений - (Pat)
Так охуеть, чтобы потом всю жизнь гордиться этим - (Инквизитор)

#8 Пользователь офлайн   Schwein 

  • –· ·– ···· ··– ·––– ··––··
  • Перейти к галерее
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Модераторы
  • Сообщений: 14 868
  • Регистрация: 15 Сентябрь 10
  • Сказали спасибо раз:

Отправлено 09 Август 2013 - 16:24

Ща и на Pascal'е будет...


#9 Пользователь офлайн   Schwein 

  • –· ·– ···· ··– ·––– ··––··
  • Перейти к галерее
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Модераторы
  • Сообщений: 14 868
  • Регистрация: 15 Сентябрь 10
  • Сказали спасибо раз:

Отправлено 09 Август 2013 - 16:53

Код (на всяк случай — и в аттаче):

Uses DOS,CRT;

 Function y(inA,inB,inT: Real) :Real;
 Begin
  y:=Exp(-inB*inT)*Sin(inA*inT+inB)-Sqrt(Abs(inB*inT+inA));
 End;
 
 Function s(inA,inB,inT: Real) :Real;
 Begin
  s:=inB*Sin(inA*Sqr(inT)*Cos(2*inT))-1;
 End;

 Var a,b,t: Real;

Begin
 Write('a='); ReadLn(a);
 Write('b='); ReadLn(B)/>;
 Write('t='); ReadLn(t);
 WriteLn;
 WriteLn('y=',y(a,b,t):15:12);
 WriteLn('s=',s(a,b,t):15:12);
End.


Компилировалось на Free Pascal'е.

Результат работы:
C:\>calcs
a=-0.5
b=1.7
t=0.44

y=-0.026633399372
s=-1.104783131034

Прикрепленные файлы

  • Прикрепленный файл  calcs.pas.zip (365байт)
    Количество загрузок:: 8


#10 Пользователь офлайн   Schwein 

  • –· ·– ···· ··– ·––– ··––··
  • Перейти к галерее
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Модераторы
  • Сообщений: 14 868
  • Регистрация: 15 Сентябрь 10
  • Сказали спасибо раз:

Отправлено 09 Август 2013 - 17:08

И, во избежание ошибок, привнесённых парсером — вот формулы функций:

Прикрепленное изображение: math.gif


#11 Пользователь офлайн   kosmos 

  • космосила
  • PipPipPipPipPip
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Старая гвардия
  • Сообщений: 2 630
  • Регистрация: 16 Сентябрь 10
  • Сказали спасибо раз:
  • ГородСимферополь
  • Страна:  

Отправлено 16 Август 2013 - 12:13

огромный даньке)))

Глупостей у нас тут нет. Есть мнения. Есть особые мнения, есть плюрализм мнений - (Pat)
Так охуеть, чтобы потом всю жизнь гордиться этим - (Инквизитор)

#12 Пользователь офлайн   Schwein 

  • –· ·– ···· ··– ·––– ··––··
  • Перейти к галерее
  • Вставить ник
  • Цитировать
  • Раскрыть информацию
  • Группа: Модераторы
  • Сообщений: 14 868
  • Регистрация: 15 Сентябрь 10
  • Сказали спасибо раз:

Отправлено 16 Август 2013 - 12:16

kosmos
Всё получилось у страждущего-то? :)


Поделиться темой:


Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

1 человек читают эту тему
0 пользователей, 1 гостей, 0 скрытых пользователей