Вторник, 07.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

найти значение выражения
суМАсшедШАяДата: Четверг, 08.11.2007, 09:06 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Задано значение переменной x. Составте программу, с помощью которой найдите значение выражения

y= равняется дробь, в числителе 2x'4 (в четвертой степени) + 5.27
в знаменатиле, модуль [ x'3 (в кубе) -1 ], + 14.335 умноженных на x'2 (в квадрате)

[img]D:\маша\Главное\фотки\Image(323).jpg[/img]

 
SeqularДата: Четверг, 08.11.2007, 21:25 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
суМАсшедШАя, Если я вас правильно понял, вам нужно:

1) Объявить 2 переменные:

Code
x, y: Real;

2) Ввести значение x:
Code
Write('Введите X: '); Readln(x);

3) В теле задачи написать:
Code
y := (2*x*x*x*x + 5.27) / (abs(x*x*x)-1) + 14.335 * x * x);

4) Вывести ответ:
Code
y:0:6


Поддерживаю также проект сообщество молодых сисадминов
 
N-E-O-NДата: Пятница, 09.11.2007, 02:35 | Сообщение # 3
Новичок
Группа: Пользователи
Сообщений: 6
Репутация: 2
Замечания: 0%
Статус: Offline
2 суМАсшедШАя Пользуйтесь shades v


program O_o;
var x,y:real;
begin
write('Введите значение х=');
readln(x);
y:=(2*exp(4*ln(x))+5.27)/(abs(exp(3*ln(x))-1+14.335*sqr(x)));
write('При х=',x,' значение функции y=',y:3:2);
readln
end.

 
суМАсшедШАяДата: Пятница, 09.11.2007, 03:58 | Сообщение # 4
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
а можно как-нибудь с одним из вас побщаться в асе или агенте? у меня есть несколько вопросов...
 
N-E-O-NДата: Пятница, 09.11.2007, 04:22 | Сообщение # 5
Новичок
Группа: Пользователи
Сообщений: 6
Репутация: 2
Замечания: 0%
Статус: Offline
smile моя ася 474311486 (она же есть в профайле) happy
 
SeqularДата: Пятница, 09.11.2007, 06:18 | Сообщение # 6
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
N-E-O-N, Твой способ корректен, если X является по крайней мере целым положительным числом.. А вот ввел я -0.5, и программа стала ругаться. =) Думаю, во избежании таких неприятностей, если нет уточнения, лучше просто написать
Code
y := (2*x*x*x*x + 5.27) / (abs(x*x*x)-1) + 14.335 * x * x);
- проглотит любое разумное число.

А если по условию число X вводится целым, то твой способ использовать лучше в плане экономии времени, т.к. там меньше арифметических операций


Поддерживаю также проект сообщество молодых сисадминов
 
N-E-O-NДата: Суббота, 10.11.2007, 02:02 | Сообщение # 7
Новичок
Группа: Пользователи
Сообщений: 6
Репутация: 2
Замечания: 0%
Статус: Offline
Seqular, smile можна и так)
 
SeqularДата: Суббота, 10.11.2007, 08:22 | Сообщение # 8
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
N-E-O-N, Ну а по-другому и не получится. =) Хотя, программка получается и так небольшая, можно вообще оба способа внутрь запихать, чтобы препода порадовать =). Любят они, когда по нескольку способов прилагают. Это как бы показатель, что ученик/студент разобрался в этом вопросе.

Поддерживаю также проект сообщество молодых сисадминов
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;