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

@Maskca · Регистрация: 15.12.2008

Студворк — интернет-сервис помощи студентам

1)составить программу вычисления значения функции f, используя обращение к подпрограмме-функции: функция: F=tgp(x)+(sin p(y)+x)/(cos p(z)+y); подпрограма функции: p(k)=(lg(ak)/ln(a))-ak

@r9m · 07.02.2009, 04:54

входные данные какие?

@schdub · 07.02.2009, 07:24

Держи...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses CRT;
 
var F, x, y, z : REAL;
 
function p(k : REAL) : REAL;
begin
  p := (lg(a*k)/ln(a))-(a*k);
end;
 
begin
  ClrScr;
  Write('Vvedite znacheniya x, y, z : ');
  ReadLn(x, y, z);
  F=tg (p(x)+(sin(p(y)+x))/(cos (p(z)+y)));
  WriteLn('Otvet = ', f:4:4);
  ReadLn;
end.

Ты напиши функции пояснее, а то не понятно от чего tg, cos и sin вычислять; sin(p(y)) или sin(p(y)+x)

@Puporev · 07.02.2009, 08:46

1. Непонятно что такое а, и откуда оно берется.
2. В Паскале нет функций tg и lg, их надо получать по вспомогательным формулам.
3. Поскольку в формуле есть логарифмы и деление надо установить область определения, и чтобы программа не вылетала, сообщить ей что делать когда выходим за эту область.

@Maskca · 07.02.2009, 11:26 **[ТС]**

пишу яснее:

@Puporev · 07.02.2009, 11:32

пишу яснее:

И что стало яснее?
К тебе был один вопрос

1. Непонятно что такое а, и откуда оно берется.

И уточнить, задается ли область определения условием, или ее надо самому находить.
Сейчас ясно?
Все остальное было не к тебе, а к тексту программы.
При таком твоем отношении к задаче решение ты никогда не пролучишь. Ты сам-то попробуй ее решить и сразу увидишь все подводные камни. А выкладывать неполноценное задание и отдавать команду на решение это неуважение к форуму. Я бы тебя вообще ликвидировал, как класс. В смысле удалил.

@Maskca · 07.02.2009, 11:34 **[ТС]**

Сообщение от r9m

входные данные какие?

a=1; x=0.83; y=2.16; z=0.93

@Puporev · 07.02.2009, 12:49

a=1;

Не знаю где Вы взяли эти данные, но если бы хоть чуть-чуть знали математику, то не писали бы такое. Ведь ln(1)=0, а на ноль делить нельзя. Вот и все ваши дела. Программа-то примитивная, но Вы даже условие написать не можете. Вот вариант для а=0,5 Кстати просвещу, что а должно быть больше 0 и не равно 1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const a=0.5;
function P(k:real):real;
begin
P:=(ln(a*k)/ln(10))/ln(a)-a*k;
end;
var x,y,z,F:real;
begin
clrscr;
x:=0.83;
y:=2.16;
z:=0.93;
F:=sin(x)/cos(x)+(sin(P(y))+x)/(cos(P(z))+y);
write('F=',F:0:5);
readln
end.

@Maskca · 07.02.2009, 14:38 **[ТС]**

Спасибо за програму

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Maskca 1 / 0 / 0 Регистрация: 15.12.2008 Сообщений: 97

	Вычисление значения заданной функции через подпрограмму 06.02.2009, 22:19. Показов 6401. Ответов 8 Метки нет (Все метки) 1)составить программу вычисления значения функции f, используя обращение к подпрограмме-функции: функция: F=tgp(x)+(sin p(y)+x)/(cos p(z)+y); подпрограма функции: p(k)=(lg(ak)/ln(a))-ak 0

@r9m 3 / 3 / 0 Регистрация: 05.02.2009 Сообщений: 19
	07.02.2009, 04:54
	входные данные какие? 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	07.02.2009, 08:46
	1. Непонятно что такое а, и откуда оно берется. 2. В Паскале нет функций tg и lg, их надо получать по вспомогательным формулам. 3. Поскольку в формуле есть логарифмы и деление надо установить область определения, и чтобы программа не вылетала, сообщить ей что делать когда выходим за эту область. 0

@Maskca 1 / 0 / 0 Регистрация: 15.12.2008 Сообщений: 97
	07.02.2009, 11:26 [ТС]
	пишу яснее: Миниатюры 0

@Maskca 1 / 0 / 0 Регистрация: 15.12.2008 Сообщений: 97
	07.02.2009, 14:38 [ТС]
	Спасибо за програму 0