Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.02.2010
Сообщений: 4

Циклические процессы и процедуры в программах

28.02.2010, 12:04. Показов 846. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста решить задачку:

Разработать алгоритм и программу вычисления функции C(x1,x2,x3,x4), зависящей от четырех переменных x1,x2,x3,x4 , которые изменяются по различным законам. Значения переменных задаются на основе формул
x1=5, 25(0.5),
x2=2, 11(0.1)
x3=9, 1 , 4 , 1.4 (массив)
x4=0, 1 ,1.8, 21 (массив)



В программе необходимо предусмотреть вычисление значений C(x1,x2,x3,x4) для всех комбинаций. Обязательно предусмотреть полный перебор x1,x2,x3,x4 . Вычислить сумму всех C(x1,x2,x3,x4 ) и вывести ее на монитор. В программе организовать вывод для которых выполняется условие
-21< C(x1,x2,x3,x4 )<21 (тут знаки "меньше либо равно")

Переменные x1 и x2 заданны с равномерными шагами 0.5 и 0.1 , а x3 и x4 массивами из четырех значений.
Внимание. Если значение функции C(x1,x2,x3,x4 ) неопределенно при какой либо комбинации , то на экран монитора вывести x1,x2,x3,x4 при которых C(x1,x2,x3,x4) не определена и вывести фразу “C-неопределенна”.
Изображения
 
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.02.2010, 12:04
Ответы с готовыми решениями:

Циклические процессы
Добрый день. Помогите пожалуйста с задачками. Заранее спасибо. Найти сумму бесконечного числового ряда с заданной точностью e, считать...

Циклические процессы
Задача изложена на скрине: Заранее очень благодарен!!!

Циклические процессы
Вычислить произведение P=∏_(k=1)^n(k/(k+1) -(〖cos〗^k)x) кому не понятна формула , выложил картинку =)

7
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.02.2010, 12:50
x1=5, 25(0.5),//это от 5 до 25
x2=2, 11(0.1) //а это от 2 до 11?
Всего 40х90=3600 вариантов, или как?
0
0 / 0 / 0
Регистрация: 28.02.2010
Сообщений: 4
28.02.2010, 13:00  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
x1=5, 25(0.5),//это от 5 до 25
x2=2, 11(0.1) //а это от 2 до 11?
Всего 40х90=3600 вариантов, или как?
Не совсем, формула выглядит:

(x(конечное)-x(начальное)/шаг)+1; для x1 получается 41 значение а для x2 - 91
41х91=3731 вариантов
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.02.2010, 13:06
Цитата Сообщение от tuz1k Посмотреть сообщение
Не совсем, формула выглядит
Ну блох ловить и я умею, я принцип спросил.

Добавлено через 1 минуту
3731 вариантов х 16=59 696 вариантов. И куда же все это выводить?
0
0 / 0 / 0
Регистрация: 28.02.2010
Сообщений: 4
28.02.2010, 13:06  [ТС]
Да, принцип такой

Незнаю, мне кажется, что в программе нужно перебрать это количество вариантов, но вывести на монитор нужно сумму полученных значений.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.02.2010, 13:10
Цитата Сообщение от Puporev Посмотреть сообщение
И куда же все это выводить?
А это? Вы представляете вывод такого количества строк на экран? Даже если делать задержки после 22-23 строк, то нужно будет нажать Enter примерно 2500 раз.
0
0 / 0 / 0
Регистрация: 28.02.2010
Сообщений: 4
28.02.2010, 13:32  [ТС]
Вот есть похожий принцип написания программы:

Написать алгоритм и программу для вычисления функции Z трех переменных x1,x2,x3.
x1=2,1; 7.3 (0.1); x2=10.1; 15.7 (0.7); x3 =7,1 ;8; 0; 9,
где переменные x1 и x2 изменяются с постоянными шагами 0.1 и 0.7 соответственно. Переменная x3 дается в виде массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program task3;
    uses crt;
   var
         x1p,x2p,x3p,z:real;
         i, j, k, y,ix1,ix2:integer;
         x3 : array[1..4] of real;
         x1n,x2n,x1k,x2k,h1,h2 : real;
    Begin {н.п}
         clrscr; {очистка экрана}
         x1n:=2.1;x2n:=10.1;
         x1k:=7.3;x2k:=15.7;
         h1:=0.1;h2:=0.7;
         x3[1]:=7.1;x3[2]:=8;
         x3[3]:=0; x3[4]:=9;
        ix1:=trunc((x1k-x1n)/h1)+1;
        ix2:=trunc((x2k-x2n))+1;
        y:=0;
        x1p:=x1n;
        for i:=1 to ix1 do begin {н.б.1}
              x2p:=x2n;
              for j:=1 to ix2 do begin {н.б.2}
                 for k:=1 to 4 do begin {н.б.3}
                    z:=2*x1p*x1p*x1p+cos(exp(ln(x2p)*(3/4)))
                    +ln(abs(sin(x3[k])));
                    y:=y+1;
                    writeln('i=',y,'  x1=',x1p:5:2,'  x2=',x2p:5:2,'  x3=',x3[k]:5:2,'  Z=',z:7:2);  {вывод на экран результатов}
                 end; {к.б.3}
                  x2p:=x2p+h2;
        end; {к.б.2}
         x1p:=x1p+h1;
   end; {к.б.1}
   readln;
 End. {к.п.}
0
Neron0011
21.12.2013, 20:25
написать алгоритм по паскалю (x+1)*(x+2)*(x+3)*.....*(x+11) помогите плиз ¶¶
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2013, 20:25
Помогаю со студенческими работами здесь

Циклические процессы
в одномерном массиве вычислить сумму эдементов, значение которых кратны некоторому значению x

Циклические процессы.
Ребят, помогите, пожалуйста, вот с этой задачкой:

Циклические вычислительные процессы.
Решите плиз 2 задачи 1. Дано C,D. Если C&lt;D, вычислить K=cos(D)+sqr(C) если C=D, отпечатать текст &quot;C=D&quot; если C&gt;D,...

Циклические вычислительные процессы
Даны массивы Ai, i = 1, … , 15 и Dj, j = 1, …, 20. Найти минимальные элементы этих массивов Aminи Dmin. Определить, какой элемент меньше.

Ряды, циклические процессы
Доброго времени суток. Прошу помочь в написании программ, условия во вложенном файле. Заранее спасибо P.S. Задачи для студенток...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru