VPF::Помогите исправить ошибки в вычислительной задаче

119040

Дата 22.5.2007, 23:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(условия задачи)

Тема I. Запишите программу для вычисления функции, учитывая области определения функции и приоритеты выполнения арифметических и логических операторов и короткую схему вычислений:
ФОРМУЛА В АТТАЧЕ

Код

prograM Kfirst;
uses crt;
var f,x,y,z :real;
Function RIN(x,y,z: real):boolean;
Begin
write ('Enter x=');
readln (x);
write ('Enter y=');
readln (y);
write ('Enter z=');
readln (z);

if
  ((x-y) >= exp(ln(-5)/3)) and
  (
    ((sin(y+sin(z+y))>=0) and ((cos(y)+sin(z+5))>0)) or
    (((sin(y+sin(z+y))<=0) and ((cos(y)+sin(z+5))<0)))
  ) then
  begin
    RIN:=true;
  end
  else begin
    RIN:=false;
  end;
end; {RIN}

Procedure Maths(x,y,z: real; var f: real);
Begin
    f := sqrt(sin(y+sin(z+y)) / (cos(y) + sin(z+5))) -
         sqrt((x-y)*(x-y)*(x-y) + 5);
    writeln(f:3:3);
end; {Maths}
begin
clrscr;

RIN(x,y,z);
If (RIN=true) then
begin
    Maths(x,y,z);
    readkey;
end;
else
begin
writeln ('Error');
readkey;
end;
end.

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

formula.GIF 1,64 Kb

KuZyagroup

Дата 23.5.2007, 02:57 (ссылка)

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

Загрузка ...

magento solution

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

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

вместо

Цитата

RIN(x,y,z);
If (RIN=true) then

нужно
If (RIN(x,y,z)) then
в Maths(x,y,z); ты забыл ввести 4 переменную

Цитата

If (RIN=true) then
begin
Maths(x,y,z);
readkey;
end;
else

после end убрать ";"

А ты сам(а) писал(а) программу?
П.С.
возможно ((x-y) >= exp(ln(-5)/3))
стоит заменить на (x-y)*(x-y)*(x-y) >= -5
возможно стоит отбросить период в значениях синуса и косинуса хотя паскаль наверное и сам это делает, не исследовал

119040

Дата 23.5.2007, 07:19 (ссылка)

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

Загрузка ...

Новичок

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

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

KuZyagroup, спасибо большое!
С первой ошибкой я вообще не смог бы разобраться.

Программу писал сам, но часто спршивал совета, например как извлекать кубический корень - нашел на этом форуме.

Цитата(KuZyagroup @ 23.5.2007, 02:57)

П.С.
возможно ((x-y) >= exp(ln(-5)/3))
стоит заменить на (x-y)*(x-y)*(x-y) >= -5
возможно стоит отбросить период в значениях синуса и косинуса хотя паскаль наверное и сам это делает, не исследовал

Вот эти вещи не понял.

volvo877

Дата 23.5.2007, 11:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Нажми на F9 - тебе компилятор ХОТЯ БЫ синтаксические ошибки покажет... Я не говорю о Ln(-5)...

KuZyagroup

Дата 23.5.2007, 22:55 (ссылка)

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

Загрузка ...

magento solution

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

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

Цитата

Вот эти вещи не понял.

возможно ((x-y) >= exp(ln(-5)/3))
стоит заменить на (x-y)*(x-y)*(x-y) >= -5
- тоже самое но мой вариант работает быстрее

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