|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2012, 17:24 | #1 |
Пользователь
Регистрация: 16.06.2011
Сообщений: 55
|
Запись со степенью
Господа добрый день!
Нужно вычислить функцию квадратов, я вложил файлик. Проблема не с решением, а с записью на паскале данной формулы, у меня не получается то из-за кол-ва скобок, то из-за ошибки: операторы имеют неправильные типы, хотя поидее все REAL тип. Заранее благодарю No smoking!
|
10.10.2012, 17:32 | #2 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Цитата:
Правильно поставленная задача - три четверти решения.
|
|
10.10.2012, 17:43 | #3 |
Пользователь
Регистрация: 16.06.2011
Сообщений: 55
|
program summa;
uses crt; var c,x,p,d:real; begin c:=2.9; x:=6.5; p:=((sqr(x)*x)/ln(c))+((sqr(c)*c-sqr(x)*x)/arctgc*sin(e^x); if (0<(p/c)) or ((p/c)<10) then begin writeln(p); end else begin d:=((2*x)/(c+p))+sqrt(3*x*mod(cos sqr(c))); writeln(d); readln; end. No smoking!
|
10.10.2012, 18:14 | #4 |
Пользователь
Регистрация: 21.12.2011
Сообщений: 54
|
Скобки забыли arctan(c)
e^x нет. Есть exp(x) Вы написали с^3-x^3, вместо c^3-x^2 Модуль в Паскале - это abs() Параметры функции должны быть в скобках: вместо cos sqr(c) надо cos(sqr(c)) if (0<(p/c)) or ((p/c)<10) - если р/с=-10, то у Вас выполниться then, а по условию надо else (разберитесь c or/and) Вычисления среднего арифметичекского с и х в коде не видно... Попробуйте переписать код с учетом замечаний |
10.10.2012, 23:38 | #5 | |
Пользователь
Регистрация: 16.06.2011
Сообщений: 55
|
Цитата:
var c,x,p,d:real; begin c:=2.9; x:=6.5; p:=((sqr(x)*x)/ln(c))+((sqr(c)*c-sqr(x))/arctan(c)*sin(exp(x))); if (0<(p/c)) and ((p/c)<10) then begin writeln(p); end else begin d:=((2*x)/(c+p))+sqrt(3*x*abs(cos(sqr(c)))); writeln(d); end; readln; end. Ответ: 3.25596613769308 Честно говоря среднее арифметическое не совсем понял что от меня хотят. Это то что делает в MS Access функция AVG я подозреваю, как на Паскале осуществить не знаю. No smoking!
Последний раз редактировалось BukTop2009; 10.10.2012 в 23:44. |
|
11.10.2012, 01:30 | #6 |
Пользователь
Регистрация: 21.12.2011
Сообщений: 54
|
Все равно намудрили со скобками. Вычисляя р на sin надо делить, а Вы умножаете.
Код:
|
11.10.2012, 09:51 | #7 | |
Пользователь
Регистрация: 16.06.2011
Сообщений: 55
|
Цитата:
Ответ 4.96069820612616 таким получился. No smoking!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сумма ряда с заданной степенью точности С++ | ShFr | Помощь студентам | 0 | 05.10.2012 14:47 |
C массивы и прога со степенью | Miles | Помощь студентам | 4 | 05.11.2011 18:15 |
Код со степенью | kotopezzz | Помощь студентам | 1 | 22.02.2011 16:43 |
Задача со степенью Pascal | Vkusnjashka | Помощь студентам | 1 | 25.10.2009 02:03 |
Последовательность чисел с степенью до N | SEREG@ | Помощь студентам | 4 | 15.06.2008 22:41 |