Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 23.05.2015, 13:30   #1
Viraj
 
Регистрация: 15.10.2014
Сообщений: 5
Репутация: 10
По умолчанию Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от ч

1. Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
2. Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.

2231.png
Код:

uses
  crt;

var
  x, x1, y1, y: real;

begin
  x := 4.741;
  y := 2 * (sqrt(exp((-x) * ln(x + (sqrt(exp((4) * ln(abs(x)))))))));
  writeln(' При x=', x: 8:4, '  ', ' y=', y: 7:4 );
  writeln;
  writeln(' y11=', trunc(y):2, '  ', ' y22=', round(y):2);
  readln;
  clrscr;
  writeln(' Введите координаты x1, y1: ');
  readln(x1, y1);
  writeln;
  writeln((y >= 0) and (y >= x - 2) and (y <= 1) and (y <= -x + 1));
  writeln;
end.


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

Последний раз редактировалось Stilet; 23.05.2015 в 13:38.
Viraj вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить приближенное значение бесконечной суммы, не используя стандартные функции, за исключением модуля. Ромун Помощь студентам 7 24.05.2015 09:33
Составьте программу, вычисляющую значение функции при заданном значении X (Паскаль) samara639 Помощь студентам 3 15.12.2013 21:09
Не используя стандартные функции, вычислить с точностью EPS>0 AZelensky Помощь студентам 10 17.11.2013 12:20
Не используя стандартные функции (за исключением abs), вычислить с точностью до eps>0: GHOST_DOG Помощь студентам 2 12.12.2008 06:58


20:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru