Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.81/26: Рейтинг темы: голосов - 26, средняя оценка - 4.81
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272

В выходной поток вывести единственное вещественное число с точностью три знака после запятой

26.01.2014, 15:08. Показов 5185. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Название: imgcon.png
Просмотров: 358

Размер: 4.6 Кб
Входные данные:
Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных подобраны так, что выражение имеет смысл.

Выходные данные:
В выходной поток вывести единственное вещественное число с точностью три знака после запятой.

Пример входного файла (input.txt):
2.2 -4.0 0.7
Пример выходного файла (output.txt):
2.280
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.01.2014, 15:08
Ответы с готовыми решениями:

В выходной поток вывести единственное вещественное число с точностью три знака после запятой
S=ln\frac{\sqrt{ax}}{1-{x}^{2}} Подскажите что исправить Вычислить значение выражения var a, x, s: real; begin read(a, x); ...

В выходной поток вывести единственное вещественное число с точностью три знака после запятой
Входные данные: Во входном потоке дано единственное вещественное число x (|x| &lt;= 1000, x != 4). Выходные данные: В выходной...

Задано вещественное число А. Вывести его с точностью три знака после запятой
Задано вещественное число А. Вывести его с точностью три знака после запятой. Входные данные: Во входном потоке в первой строке...

29
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 17:46
Не ленитесь пользоваться встроенным в форум редактором формул. Вот, я ж не ленюсь.

https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\frac{x^2-b^3}{0.5x}+e^{\sqrt{\left|\frac{a+b}{bx} \right|}}

Pascal
1
2
3
4
5
6
7
var a, b, x, s: real;
 
begin
  readln(a, b, x);
  s := (x * x - b * b * b) / 0.5 / x + exp(sqrt(abs((a + b) / b / x)));
  writeln(s:0:3);
end.
1
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 17:55  [ТС]
Название: imgcon.png
Просмотров: 321

Размер: 9.8 Кб
Входные данные:
Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных подобраны так, что выражение имеет смысл.

Выходные данные:
В выходной поток вывести единственное вещественное число с точностью три знака после запятой.

Пример входного файла (input.txt):
2.2 -4.0 0.7
Пример выходного файла (output.txt):
4.648

 Комментарий модератора 
В очередной раз обращаю Ваше внимание на соблюдение правил форума.
Заголовок темы должен быть осмысленным и отражать суть вопроса.
Картинки и файлы должны быть прикреплены к сообщению.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:00
некит434, Вы нарушаете правила форума:
5. 4. Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
5. 18. Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
5. 19. Запрещено создавать темы в виде ссылок на задания или коды программ, расположенные на других сайтах.

Не по теме:

История повторяется...



https://www.cyberforum.ru/cgi-bin/latex.cgi?R = \frac{4.8+ctg^2x^2}{2(a-b)ln(a^3+x)}

Pascal
1
2
3
4
5
6
7
var a, b, x, r: real;
 
begin
  readln(a, b, x);
  r := (4.8 + sqr(cos(x * x) / sin(x * x)) / 2 / (a - b) / ln(a * a * a + x);
  writeln(r:0:3);
end.
Добавлено через 1 минуту

Не по теме:

Прочтите правила, иначе Вас кто-нибудь из модераторов растерзает.

0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 18:02  [ТС]
Free Pascal Compiler version 2.4.4-3.1 [2012/01/04] for x86_64
Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling Main.fpc
Main.fpc(4,77) Fatal: Syntax error, ")" expected but ";" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

Добавлено через 53 секунды
ты пропустил )
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:15
Да, что-то не посчитал. Исправьте
Pascal
1
r := (4.8 + sqr(cos(x * x) / sin(x * x))) / 2 / (a - b) / ln(a * a * a + x);
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 18:16  [ТС]
да я сам написал

Добавлено через 12 секунд
ты тругие задачи покажы
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:32

Не по теме:

Так. Впредь действуйте следующим образом: если пока не в ладах с редактором формул, переходите в расширенный режим (кнопка "Расширенный режим" ниже редактора сообщений), в шапке сообщений нажимаете на скрепку, выбираете файл для загрузки (ну, какой-нибудь Ваш imgcon.jpg), Загрузить файл с вашего компьютера нажать кнопку "Обзор", выбрать файл, нажимаете кнопку "Загрузить", нажимаете кнопку "Закрыть окно" (она внизу управления вложениями). После чего снова нажимаете скрепку и выбираете свой файл. Он грузится в Ваше сообщение на форум. Нажав кнопку "Предварительный просмотр сообщения" это всё дело можно перед отправкой ответа посмотреть.



Добавлено через 6 минут

https://www.cyberforum.ru/cgi-bin/latex.cgi?S= \frac{sin^2 {\sqrt[3]{6.7-x^2}}}{0.1\sqrt{1+a}}

Pascal
1
2
3
4
5
6
7
var a, b, x, s: real;
 
begin
  readln(a, b, x);
  s := sqr(sin(exp(ln(6.7 - x * x) / 3))) / 0.1 / sqrt(1 + a);
  writeln(s:0:3);
end.
https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[3]{z}=e^{\frac{ln(z)}{3}} \ \ \ z>0
1
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:39
Pascal
1
2
3
4
5
6
7
var a, b, x, r: real;
 
begin
  readln(a, b, x);
  r := 7 * sqr(cos(abs((b * x * x * x + 9.8) / (x + a) / (x - b))));
  writeln(r:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:48
Прикрепляйте изображения к сообщению. Или пишите формулу.

https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{cos^2 x^3}{\sqrt[3]{b^2 x}+ \frac{x}{a+2}}

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
var a, b, x, p: real;
 
begin
  readln(a, b, x);
  p := sqr(cos(x * x * x)) / (exp(ln(b * b * x) / 3) + x / (a + 2));
  writeln(p:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 18:55
Опять нарушаете?

https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{a+b}{2b\sqrt[3]{x^2}}-ctg^2\frac{b^2 x^3}{1.2e^{-3x}}

Pascal
1
2
3
4
5
6
7
8
var a, b, x, y, r: real;
 
begin
  readln(a, b, x);
  y := b * b * x * x * x / 1.2 / exp(-3 * x);
  r := (a + b) / 2 / b / exp(ln(x * x) / 3) - sqr(cos(y) / sin(y));
  writeln(r:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:03

Не по теме:

Вы уже когда-нибудь научетесь изображения на форум выкладывать или нет? или формулы писать?



https://www.cyberforum.ru/cgi-bin/latex.cgi?5cos^2\left( \frac{4x-b}{0.5(x+a)}\right)^3

Pascal
1
2
3
4
5
6
7
var a, b, x, p: real;
 
begin
  readln(a, b, x);
  p := 5 * sqr(cos(exp(ln((4 * x - b) / 0.5 / (x + a)) / 3)));
  writeln(p:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:06
Pascal
1
2
3
4
5
6
7
8
var a, b, x, y, s: real;
 
begin
  readln(a, b, x);
  y := sin(exp(sqr(cos(b * x))) / 2 / sqr(a - x));
  s := 9 * y * y * y;
  writeln(s:0:3);
end.
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 19:08  [ТС]
не правильно
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:11
Pascal
1
2
3
4
5
6
7
8
9
var a, b, x, p: real;
 
begin
  readln(a, b, x);
  p := (x * exp(-1 * x * x) + a) / (x - sqrt(2 * a));
  p := p * p * p;
  p := x * sqr(sin(p) / cos(p));
  writeln(p:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:24
https://www.cyberforum.ru/cgi-bin/latex.cgi?R=e^{a-x^2}+tg^3 \frac{a+b}{a(b-x)}

Pascal
1
2
3
4
5
6
7
8
9
var a, b, x, r: real;
 
begin
  readln(a, b, x);
  r := (a + b) / a / (b - x);
  r := sin(r) / cos(r);
  r := exp(a - x * x) + r * r * r;
  writeln(r:0:3);
end.
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:26
некит434, а где неправильно?
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 19:30  [ТС]
не знаю оно пишит не првильно
0
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:31
https://www.cyberforum.ru/cgi-bin/latex.cgi?P=\frac{b - 2}{2x}{e}^{(-bx^2)}

Pascal
1
2
3
4
5
6
7
var a, b, x, p: real;
 
begin
  readln(a, b, x);
  p := (b - 2) * exp(-b * x * x) / 2 / x;
  writeln(p:0:3);
end.
1
Модератор
10409 / 5696 / 3400
Регистрация: 17.08.2012
Сообщений: 17,342
27.01.2014, 19:41

Не по теме:

Вот, не знаете, а говорите...


Ну так попробуйте:
Pascal
1
2
3
4
5
6
7
8
var a, b, x, p: real;
 
begin
  readln(a, b, x);
  p := (4 * x - b) / 0.5 / (x + a);
  p := 5 * sqr(cos(p * p * p));
  writeln(p:0:3);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.01.2014, 19:41
Помогаю со студенческими работами здесь

Вычислить число ПИ с точностью до 6-го знака после запятой
Нужно решить задание: Вычислить число ПИ с точностью до 6-го знака после запятой.

Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори
Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори.

Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори
Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори

Вывести вещественное число с 4 знаками после запятой
Условие задачи: Введите 4 действительных числа и выведите их сумму с 4 знаками после запятой.

Три знака после запятой
Здравствуйте! Имеется код для нахождения СЛАУ методом Крамера Нужно чтобы при введении с клавиатуры значений их можно было вводить с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru