VPF::Программирование линейного вычислительного процесс

jDeuterium

Дата 30.1.2013, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

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

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

Это сообщение отредактировал(а) jDeuterium - 30.1.2013, 19:20

Присоединённый файл ( Кол-во скачиваний: 16 )

Безымянный.png 2,42 Kb

northener

Дата 31.1.2013, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

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

)

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

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

serezhka1986

Дата 31.1.2013, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

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

)

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

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

Это сообщение отредактировал(а) serezhka1986 - 31.1.2013, 17:23

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

serezhka1986

Дата 31.1.2013, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

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

Код


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.

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »