Решение задачи на функции

@Nissan · Регистрация: 09.09.2009

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

Решите пожалуйста задачу на функции.

@Давид · 18.09.2009, 21:26

Пожалуйста...надеюсь все сделал правильно!Не проверял...будут вопросы - пишите!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program xxx;
Uses crt;
Var x,y,z,u,c,k:real;
begin
clrscr;
 writeln ('Vvedite x,y,z ');
 Readln (x,y,z);
 Writeln ('x = ',x:10,' y = ', y:17:6,' z = ',z);
 C:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x)+sqr(y)))); {Выполнил действия в числителе}
 K:=sqr(cos(arctan(1/z))); {Выполнил действия в знаменателе}
 U:=c/k;
 Writeln;
 Writeln ('Znachenie funkcii = ',U);
Readln
end.

Добавлено через 1 минуту
Проверяйте арифметические действия...все ли правильно подсчитано!

@Puporev · 18.09.2009, 21:41

Давид, читайте условие внимательно, там x,y,z - константы.

@Давид · 18.09.2009, 21:48

Не трудно присвоить переменным постоянные значения!

@Puporev · 18.09.2009, 21:50

Дело не в этом. Просто при вводе данных нужно тогда обговаривать все условия, при которых решений нет, а там их несколько, там и тангенс и деление.

@Давид · 18.09.2009, 22:00

Я ведь тоже только учусь...и помогаю как могу, потому что знаю что это и мне полезно...но тут уважаемый Puporev вы действительно правы!!!Уж извиняйте...

Вот присвоил постоянные значения!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program xxx;
Uses crt;
Var x,y,z,u,c,k:real;
begin
clrscr;
 x:=2.3156;
 y:=-1.3785;
 z:=0.578;
 Writeln ('x = ',x:10,' y = ', y:17:6,' z = ',z);
 C:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x)+sqr(y)))); {Выполнил действия в числителе}
 K:=sqr(cos(arctan(1/z))); {Выполнил действия в знаменателе}
 U:=c/k;
 Writeln;
 Writeln ('Znachenie funkcii = ',U);
Readln
end.

@sheka · 18.09.2009, 22:41

Знаю по личному опыту, что присваивать Постоянные значения переменным лучше в начале программы как константы, если, конечно, код большой. Так потом будет проще искать все-все Постоянные переменные в случае надобности их изменения.

@Давид · 18.09.2009, 22:45

С вами согласен!Но в нашем случае текст программы достаточно мал и прост.
Смысла не вижу тут все усложнять...это практически начало изучения паскаля "Линейные решения ур-й".

@Puporev · 18.09.2009, 22:47

Да где же здесь усложнение?
Вместо

Pascal
1
2
3
4
5
6
Var x,y,z:real;
begin
clrscr;
 writeln ('Vvedite x,y,z ');
 Readln (x,y,z);
 Writeln ('x = ',x:10,' y = ', y:17:6,' z = ',z);

мы напишем

Pascal
1
2
3
4
const
x=1.23;
y=2.35;
z=0.36;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.09.2009, 21:41
	Давид, читайте условие внимательно, там x,y,z - константы. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	18.09.2009, 21:48
	Не трудно присвоить переменным постоянные значения! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.09.2009, 21:50
	Дело не в этом. Просто при вводе данных нужно тогда обговаривать все условия, при которых решений нет, а там их несколько, там и тангенс и деление. 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	18.09.2009, 22:41
	Знаю по личному опыту, что присваивать Постоянные значения переменным лучше в начале программы как константы, если, конечно, код большой. Так потом будет проще искать все-все Постоянные переменные в случае надобности их изменения. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	18.09.2009, 22:45
	С вами согласен!Но в нашем случае текст программы достаточно мал и прост. Смысла не вижу тут все усложнять...это практически начало изучения паскаля "Линейные решения ур-й". 1