VPF::Pascal Значение функции - Форум программистов

Рыся

Дата 25.2.2010, 22:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Задачка не сложная:
Вычислить значение функции f(a,b ), нужно решить с помощью подпрограмм.

Код



uses crt;
function ONE(x,y:real):real;
var
  k:real;
begin
  k:=sqr(x)+x*y+sqr(y);
  ONE:=sqrt(k);
end;

function TWO(x:real):real;
begin
  TWO:=x+x*x+x*x*x+x*x*x*x;
end;

function THREE(x,y:real):real;
begin
  THREE:=x+y;
end;

var
  a,b,x,y,f,f1,f2,f3,f4:real;
begin
  clrscr;
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
  a:=x;
  b:=y;
  f1:=THREE(x,y)+ONE(x,y);
  f2:=TWO(x);
  x:=-a/b;
  f3:=TWO(x);
  x:=a/b;
  y:=-b/a;
  f4:=THREE(x,y)+ONE(x,y);
  f:=f1/f3+f4/f2;
  write(f:0:3);
  readln;
end.

Как сделать программу проще, чтоб не надо было вводить все эти f1, f2...

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

P1070159.JPG 87,25 Kb

DeMoNN

Дата 26.2.2010, 15:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Если я правильно понял, то тебе нужно наиболее короткое решение этой задачи, но с использованием подпрограммы? Тогда вот:

Код


program func;

function f(a, b: real): real;
begin
    f := ((a + b + sqrt(a*a + a*b + b*b))/(-(a/b) + ((a * a) / (b * b)) - ((a * a * a) / (b * b * b)) + ((a * a * a * a) / (b * b * b * b)))) + ((a / b) - (b / a) + sqrt((a * a) / (b * b) - 1 + (b * b) / (a * a))) / (a + a * a + a * a * a + a * a * a * a);
end;

var
    a, b, ans: real;
begin
    write('a = ');
    readln(a);
    write('b = ');
    readln(b);
  writeln;
  if (a <> 0) and (b <> 0) then
  begin
    if ((a*a + a*b + b*b) >= 0) and ((-(a/b) + ((a * a) / (b * b)) <> 0)) and ((a * a) / (b * b) - 1 + (b * b) / (a * a) >= 0) then
    begin
        ans := f(a, b);
        writeln;
        writeln('f(', a:0:3, ', ', b:0:3, ') = ', ans:0:3);
    end
    else writeln('f(', a:0:3, ', ', b:0:3, ') does not exist');
  end
  else writeln('f(', a:0:3, ', ', b:0:3, ') does not exist');
    readln;
end.

надеюсь не ошибся при нборе функции.
ЗЫ А ты свою программу проверял? Зачем присваиваешь а и б после ввода нули?;)

Цитата

  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
  a:=x; //х - ноль по умолчанию
  b:=y; //у - ноль по умолчанию

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