Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Программирование линейного вычислительного процесс

Автор: jDeuterium 30.1.2013, 19:20

Разработать программу вычисления значений заданных функций для про-извольных значений исходных данных. Выполнить контрольный расчет и расчет для заданных значений исходных данных.

Помогите пожалуйста, это надо на паскале

Автор: northener 31.1.2013, 01:03

Цитата(jDeuterium @ 30.1.2013, 19:20

)

Помогите пожалуйста

Какая помощь требуется?

Автор: serezhka1986 31.1.2013, 17:22

Цитата(jDeuterium @ 30.1.2013, 19:20

)

Помогите пожалуйста, это надо на паскале

В консоли, или с формой?

Автор: serezhka1986 31.1.2013, 17:51

Ну можно как-то так:

Код


program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, math;
var alfa, x, a, t, w: real;
begin
  try
    Writeln('t: ');
    Readln(t);
    Writeln('w: ');
    Readln(w);
    a := power(w,sqrt(t));
    x := sin(w*t);
    alfa := (7*sqr(x)*exp(-1*a*x))/(2+a*abs(x));
    Writeln('a = ',FloatToStr(a));
    Writeln('x = ',FloatToStr(x));
    Writeln('alfa = ',FloatToStr(alfa));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.