Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Engenier
0 / 0 / 1
Регистрация: 25.05.2016
Сообщений: 17
#1

Вычислить значение выражения - Free Pascal

30.05.2016, 18:27. Просмотров 137. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program test;
var s, d, rez :real;
n, i :integer;
begin
s:=0;
d:=1;
n:=11;
for i:=1 to n do
begin
s:=s+sin(i)/(i+2);
d:=d*cos(i);
end;
rez:=exp(ln(s)*d);
writeln('rez=', rez:5:2);
end.
Результат 1. Где ошибка? Что делать?
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2016, 18:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить значение выражения (Free Pascal):

Вычислить значение выражения - Free Pascal
Здравствуйте,помогите,пожалуйста,как прописать задание в FreePascal, f(x)={█((x+〖3)〗^2,при x<0@sin⁡(x-2)/(x^2-16),при≤x<4@√(x-4),при...

Вычислить значение выражения - Free Pascal
Народ, помогите исправить ошибки в программе. Задание было такое: составить программу для ращета выражения ф(х), с использованием процедуры...

Вычислить значение выражения - Free Pascal
Ребят, добрый вечер) Я здесь новичок, т.к. по учебе начинаю учить паскаль) Вот хотел обратиться за помощью) Может напишет кто как в...

Вычислить значение выражения - Free Pascal
1. y=1/1+1/2+1/3+1/4+....+1/1000 2. y=1/1*1/2*1/3*1/4*....*1/1000 3. S= x1+x2+x3+....x100 4. P= x1*x2*x3*....*x100

Вычислить значение выражения - Free Pascal
Задано вещественное значение аргумента х. Вычислите значение функции у: y=\begin{cases}cos^2x + 5 & , x\leq 2 \\ \sqrt{x+1} & , x\gt...

Вычислить значение выражения - Free Pascal
Всем доброго времени суток , очень прошу помочь с заданиями в паскаль так как ко мне обратился человек которого отчислят из учебного...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24809 / 16483 / 5084
Регистрация: 22.10.2011
Сообщений: 29,136
Записей в блоге: 5
01.06.2016, 12:00 #2
Поменять точность вывода:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program test;
var s, d, rez :double; // <-- Раз
n, i :integer;
begin
s:=0;
d:=1;
n:=11;
for i:=1 to n do
begin
  s:=s+sin(i)/(i+2);
  d:=d*cos(i);
end;
rez:=exp(ln(s)*d);
writeln('rez=', rez:15:12); // <-- два
end.
, иначе число, очень близкое к 1-це округляется до единицы...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2016, 12:00
Привет! Вот еще темы с ответами:

Вычислить значение выражения - Free Pascal

Вычислить значение выражения - Free Pascal
Помогите с 2, 3 и 4

Вычислить значение выражения - Free Pascal
Здравствуйте! Помогите пожалуйста решить задачу с формулой. Пользователь вводит числовые значения x, y, z. Вычислить и вывести Q. ...

Вычислить значение выражения - Free Pascal
Проверьте код пожалуйста, а то сам допереть не могу, в коде нет сравнения и &quot;1-&quot; в начале формулы (это сам допилю). Части программы...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru