Технический форум - Вычислить значения функции, заданной графически

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Вычислить значения функции, заданной графически

Здравствуйте помогите написать программу к решения геометрической задачи в паскаль:)Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли: Вложение 98513

Замечание:

На будущее - НЕ цепляемся к чужим темам, создаем свои.
Модератор.

Цитата:

Сообщение от vitjok (Сообщение 798030)

Легко. Для прерывания программы введите значение Х=-10.

Код:

Var

 X,Y:Real;

Begin

 Writeln('To quit the program type -10 az X');

 Repeat

  Repeat

   Write('X= ');

   Readln(X);

   If (X<0) and (X<>-10) then Writeln('X out of range: negatives are forbidden!');

  Until (X>=0) or (X=-10);

  If X>4 then

   Repeat

    X:=X-4;

   Until X<=4;

  If X<>-10 then

   begin

    If X<1 then

     Y:=Sqrt(1-Sqr(X-1)) else

    If (X>=1) and (X<3) then

     Y:=1-Sqrt(1-Sqr(X-2)) else

    Y:=Sqrt(1-Sqr(X-3));

    Writeln('Y= ',Y:0:3);

   end;

 Until X=-10;

End.

Большое Спасибо!!!:)

Здравствуйте! не могли бы вы сделать описание пожалуйста)) что бы на будущее писать такие программы самому)) и если вас это не затруднит написать алгоритм:) ОГРОМНОЕ СПАСИБО!!!!!!!!:)

Описание - попробую. А вот писать алгоритмы, извините, не умею.

Программа оформлена в виде бесконечного замкнутого цикла ввод аргумента - вывод значения функции - ввод аргумента - вывод и т.д. Прерывание цикла и выход из программы осуществляется, если ввести значение Х=-10 (сама величина не принципиальна).

Код:

Var

 X,Y:Real;

Описали переменные X и Y

Begin

Начало программы

 Writeln('To quit the program type -10 az X');

Здесь на экран вывели информацию о способе прерывания программы:

ввести Х=-10

 Repeat

Открываем глобальный цикл, о котором сказано выше

  Repeat

   Write('X= ');

   Readln(X);

   If (X<0) and (X<>-10) then Writeln('X out of range: negatives are forbidden!');

  Until (X>=0) or (X=-10);

Вводим Х тоже с помощью цикла. Поскольку допустимы только 

положительные значения Х и единственное отрицательное Х=-10

(для прерывания), повторяем цикл ввода до тех пор, пока не 

будет введено неотрицательное число. В случае ввода

отрицательных значений (кроме -10), выводим уведомление

"Отрицательные значения запрещены!"  

  If X>4 then

   Repeat

    X:=X-4;

   Until X<=4;

Поскольку изображенная на графике функция периодична с периодом

4, вычитаем из Х этот период до тех пор, пока Х не окажется между 0 и 

4.

  If X<>-10 then

Проверяем, не равен ли аргумент -10. Если нет, то вычисляем

значение функции.

   begin

Далее находим значения Y, разбив интервал 0 - 4 на три участка:

от 0 до 1, от 1 до 3 и от 3 до 4. Во всех случаях используем 

уравнение окружности (X-X0)² + (Y-Y0)² = R², где X0, Y0 - 

координаты центра, R - радиус (в данном случае R=1). 

    If X<1 then

     Y:=Sqrt(1-Sqr(X-1))  else

Если Х находится в интервале от 0 до 1, то функция представляет

собой дугу окружности (II сегмент) с центром (1, 0).

    If (X>=1) and (X<3) then

     Y:=1-Sqrt(1-Sqr(X-2)) else

Если Х находится в интервале от 1 до 3, то функция представляет

собой дугу окружности (III и IV сегменты, т.е. нижняя полу-

окружность) с центром (2, 1).

    Y:=Sqrt(1-Sqr(X-3));

И, наконец, если Х находится в интервале от 3 до 4, то функция

представляет собой дугу окружности (I сегмент) с центром 

(3, 0).

    Writeln('Y= ',Y:0:3);

Выводим результат на экран

   end;

 Until X=-10;

Проверяем выполнение условия выхода из глобального цикла.

End.

Всё!

здравствуйте)) как будет выгладить данный код без цикла?))

Цитата:

Сообщение от vitjok (Сообщение 799642)

здравствуйте)) как будет выгладить данный код без цикла?))

Здравствуйте! Без какого именно цикла? И чем циклы Вам мешают?

вообще без циклов)
я их тут убрал но все равно есть ошибка

Program Vitjok;
Uses CRT;
Var X,Y:Real;
Begin
Write('X= ');
Readln(X);
If (X<0) then Writeln('X out of range: negatives are forbidden!');
If X>4
then x:=x-4;
begin
If X<1 then
Y:=Sqrt(1-Sqr(X-1));

If (X>=1) and (X<3) then
Y:=1-Sqrt(1-Sqr(X-2)) else
Y:=1-Sqrt(1-sqr(x-3));
Writeln('Y= ',Y:0:3);
end;
End.

просто нужно что бы этот код Program Vitjok;
Uses CRT;
Var X,Y:Real;
Begin
Write('X= ');
Readln(X);
If (X<0) then Writeln('X out of range: negatives are forbidden!');
If X>4
then x:=x-4;
begin
If X<1 then
Y:=Sqrt(1-Sqr(X-1));

If (X>=1) and (X<3) then
Y:=1-Sqrt(1-Sqr(X-2)) else
Y:=1-Sqrt(1-sqr(x-3));
Writeln('Y= ',Y:0:3);
end;
End.
работал при вводе положительного числа

у вас корень из отрицательного числа получается при вводе положительного числа.
вот тут

Цитата:

Y:=Sqrt(1-Sqr(X-1))