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

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

27.04.2015, 15:35. Просмотров 292. Ответов 3
Метки нет (Все метки)

Задача: Программирование алгоритма с структурой вложенных циклов.
Задание такое: http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{7}\prod_{j=1}^{3}*cos(i+2j)
Я накатал код программы по примеру:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program primer;
Var i,j:integer;
A,B:real;
Begin
A:=0;
For i=1 to 7 do
Begin
B:=1
For j:=1 DownTo 3 Do
B:=B*cos(i+2*j);
A:=A+B
End;
Writeln('A=';A:6:2);
Readln
End.
Скажите пожалуйста, правильно ли? Ещё, поскольку я делал по примеру, можете объяснить для чего операнды A и B и почему вначале мы даём A значение 0? И если не сложно, очень буду благодарен, если поможете с блок схемой к этой программе, я как не пыжился, а получается фигня..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2015, 15:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение выражения (Turbo Pascal):

Вычислить значение выражения
Прошу помочь решить данные задачи. Заранее благодарю за Вашу помощь. ...

Вычислить значение выражения
Здравствуйте,помогите пожалуйста решить задачи в Pascal. 10)решить пример:...

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

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

Вычислить значение выражения
Написать программу решающую пример. y=(tg(x)+sin(x))*e^cos(x) при х=3.7 ...

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

3
Joy
Эксперт Pascal/Delphi
2119 / 1159 / 1418
Регистрация: 29.08.2014
Сообщений: 4,225
27.04.2015, 15:53 #2
Лучший ответ Сообщение было отмечено desu_112 как решение

Решение

строка 9
Цитата Сообщение от desu_112 Посмотреть сообщение
For j:=1 DownTo 3 Do
Downto используется для нисходящей последовательности (с 3 до 1, например), у вас должно быть написано TO вместо DownTo

Добавлено через 2 минуты
+еще опечатки: 6 строка - пропущено ":" в операторе присваивания;
8 строка пропущено ";"
13 строка после 'A=' должно быть "," вместо ";"
1
desu_112
0 / 0 / 0
Регистрация: 27.04.2015
Сообщений: 4
27.04.2015, 15:56  [ТС] #3
Joy
Хорошо, спасибо, но для чего операнды A и B и почему А присваиваем 0, а B единицу?
P.S. извиняюсь, не заметил вашего сообщения. Большое спасибо за объяснение.
0
Joy
Эксперт Pascal/Delphi
2119 / 1159 / 1418
Регистрация: 29.08.2014
Сообщений: 4,225
27.04.2015, 15:56 #4
Лучший ответ Сообщение было отмечено desu_112 как решение

Решение

A- это считается сумма, для начала переменную, по правилам хорошего тона, нужно проинициализировать, поэтому A:=0;
B - переменная для подсчета произведение, B:=1.0; - также инициализация (0 нельзя, т.к. в произведении тогда будет 0).
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2015, 15:56
Привет! Вот еще темы с решениями:

Вычислить значение выражения
V=IZ+16I/Z при -0,8<z<=15 V=lnI4-ZI*(z^2-8Z)^1/2 при z=-3 z<-4 V=5z(Z+1)/2 в...

Вычислить значение выражения
f(i)= (-1)^i * (i+1)/ i!

Вычислить значение выражения
Перевести выражение на язык Паскаля a=(\sqrt{{b}^{2}+2}/|-c|*(1-{b}^{2}))-1

Вычислить значение выражения
Составить программу на языке Turbo Pascal для определения значений x(t) =...


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

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

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