Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Engenier
0 / 0 / 1
Регистрация: 25.05.2016
Сообщений: 17
1

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

30.05.2016, 18:27. Просмотров 162. Ответов 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
Ответы с готовыми решениями:

Вычислить значение выражения
Задание одно, в нём три формулы. Очень буду благодарен за указание помощи в...

Вычислить значение выражения
Не используя стандартные функции (за исключением abs), вычислите с точностью...

Вычислить значение выражения
помогите написать программы на Free Pascale

Вычислить значение выражения
Не используя стандартные функции (за исключением abs), вычислите с точностью...

Вычислить значение выражения
Всем привет. Помогите составить прогу для вот такого задания: Вычислите: z =...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26492 / 17792 / 7038
Регистрация: 22.10.2011
Сообщений: 31,310
Записей в блоге: 6
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

Вычислить значение выражения
Как правильно написать эти примеры в паскале: (А-Х)6/7 степени cos2Х + tg3А2...

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

Вычислить значение выражения
Цель работы: изучить операторы цикла: с заданным количеством повторений FOR, с...


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

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

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