Другие языки программирования и технологии

Помогите мне пожалуйста, решить проблему большую, по...

Здравствуйте!! ! Помогите мне решить пару задач по программирование на языке "Turbo Pascal"!!! Я вам очень буду Благодарен, если решите мне.... я просто еще книгу НЕ купил и не знаю пока что нечего (((, вот задачи:
Тема называется: "Программы разветвляющейся структуры"
1. Составить программу для вычисления значений заданной функции, используя исходные данные. Выполнить проверку работы программы, значения аргумента выбрать самостоятельно. (в скобках буду писать, то что не получается нажать на клавиатуре!!! )
а) Функция y= (фигурные скобки на два ур-ния) at (в кубе) cos(t+1)
1+t (в квадрате)
Условие 1 (меньше или равно) t(меньше или равно) 5
в остальных случаях
Исходные данные a=-0.5
b=2
b) Функция y= (фигурные скобки на 3 ур-ния) пи x(в кубе) -7/x(в квадрате)
ax(в кубе) + корень из x
ln(x+7 корень из x)
Условие x (меньше) 1,3
x=1,3
x(больше) 1,3
Исходные данные a=1.5

2. (если можете, и это решите пожалуйста)
Товары на складе подлежат переоценке в соответствии с такими условиями: на товары групп 1-3 цены снижаются на 10%, на товары группы 4 цены повышаются на 10%, на товары группы 5 цены повышаются на 15%, на товары группы 6 цены повышаются на 20%, цены на другие товары не изменяются.
ХЛ
Хитрый Лис
101
Доброго времени суток.

Нда-а-а.. . Боюсь ошибиться в ваших уравнениях.. . Но если телепатия не подводит, то как-то так будет.

function Y1(a, X: Real): Real;
begin
if (1 <= X) and (x <= 5) then Y1 := a * Sqr( X) * X * Cos(X+1) else Y1 := 1 + Sqr(X);
end;

function Y2(a, X: Real): Real;
begin
if X < 1.3 then Y2 := pi * X * Sqr(X) - 7 / Sqr(X) else
if X = 1.3 then Y2 := a * X * Sqr(X) + Sqrt(X) else Y2 := Ln(X + 7 * Sqrt(X));
end;

if (1 <= Group) and (Group <= 3) then Price := Price * 0.9 else
if Group = 4 then Price := Price * 1.1 else
if Group = 5 then Price := Price * 1.15 else
if Group = 6 then Price := Price * 1.2;

Это же можно сделать с помощью оператора case

case Group of
1..3 : Price := Price * 0.9;
4 : Price := Price * 1.1;
5 : Price := Price * 1.15;
6 : Price := Price * 1.2;
end;

Остальное сами. Даже если нет книги, но на занятиях-то вы были?

Удачи!
АС
Антон Сабиров
59 613
Лучший ответ
http://forum.sources.ru/index.php?
h ttp://programmersforum.ru/
Камиль Гусамутдинов
Камиль Гусамутдинов
4 331

Похожие вопросы