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

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

Форум программистов > Центр помощи > [Паскаль] программа для вычисления y=2sin0,9x

Автор: ДенсНС 8.4.2008, 11:04

[Паскаль] Составить алгоритм и программу для вычисления y=2sin0,9x в интервале 0≤x≤2π
с шагом π/6 и затем для вычисления u=2,5^y , если y≤0, а если y>0, то u=1,5^y+1.

Автор: volvo877 8.4.2008, 11:58

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Автор: ДенсНС 9.4.2008, 05:53

Программа на Паскале,к кому ни обращался ни кто не может сделать, говорят, что сложная.

Автор: AET 14.4.2008, 11:38

Цитата(ДенсНС @ 8.4.2008, 11:04)

чтото не понятно ты имееш виду

Код


if y>0 then u:=1.5^y+1 else u:=2.5^y

Автор: THandle 14.4.2008, 12:59

Так:

Код


program Project1;

uses
  Math;

var
  u, y, x : double;
  i : integer;
begin
  x := 0;
  while x <= 2 do
    begin
      y := 2*sin(0.9*x);
      x := x + Pi/6;
      if y <= 0 then
        u := Power(2.5, y)
      else
        u := Power(1.5, y) + 1;
      writeln('x = ', x, '.  y = ', y, '.  u = u', u);
    end;
  readln;
end.

Или так:

Код


program Project1;

var
  u, y, x : double;
  i : integer;
begin
  x := 0;
  while x <= 2 do
    begin
      y := 2*sin(0.9*x);
      x := x + Pi/6;
      if y <= 0 then
        u := Exp(ln(2.5)*y)
      else
        u := Exp(ln(1.5)*y) + 1;
      writeln('x = ', x, '.  y = ', y, '.  u = u', u);
    end;
  readln;
end.