Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
shergin94
0 / 0 / 0
Регистрация: 18.06.2015
Сообщений: 4
1

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

18.06.2015, 15:51. Просмотров 984. Ответов 2
Метки нет (Все метки)

Всем доброго времени суток. Пишу на форуме первый раз, могу не правильно выражаться)
В общем дело такое, задали на дом выполнить "Лаборатоную работу"(2 курс универа), а я с компьютером на "Вы"(
Нужно написать небольшие програмки на несколько тем. Помогите пожалуйста, ниже напишу задания..Заранее благодарен.

Задание к Лабораторной работе №2
"Реализация циклических вычислений в системе Delphi"
Разработать программу для выполнения расчётов по следующей формуле:

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sqrt{e^{x/n}}\,\cdot\,\sum_{k=1}^{n}\frac{arctg\left(x-\frac{k}{k+1} \right)}{\sqrt[k]{e^{k+1}}}<br />

Для выполнения необходимо:
1.Разработать алгоритм решения задачи.
2.Реализовать полученный алгоритм в виде блок-схемы.
3.Проанализировать формулы и найти критические точки. Предусмотреть их исключение.
4.Написать текст программы в языке программирования Delphi.
5.Запустить разработанную программу (F9). При обнаружении системой ошибок в программе - исправить их и повторить запуск.

Добавлено через 18 минут
Вот второе задание.
Звучит оно так: Для матрицы из 5 столбцов и 6 строк определить что больше: сумма элементов в строках с чётными номерами или сумма элементов с нечётными номерами.

Для выполнения необходимо:
1.Разработать алгоритм решения задачи.
2.Реализовать полученный алгоритм в виде блок-схемы.
3.Написать текст программы в языке программирования Delphi.
4.Запустить разработанную программу (F9). При обнаружении системой ошибок в программе - исправить их и повторить запуск.

Добавлено через 4 минуты
И вот третье задание:
Дан одномерный массив из N элементов. Найти количество элементов, которые встречаются в этом массиве ровно по три раза.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.06.2015, 15:51
Ответы с готовыми решениями:

Разработать программу для ускоренного написания текстов
всем привет, нужна помощь в написании программки полностью: Задание:...

Разработать алгоритм и составить программу для вычисления значений переменных a и b по формуле
Разработать алгоритм и составить программу для вычисления значений переменных a...

Итерационные циклы. Разработать программу,определяющие сумму ряда с заданной погрешностью Е(ипсилон) для произвольно заданного аргумента х
Разработать программу,определяющие сумму ряда с заданной погрешностью...

Разработать иерархию не менее 2 классов, и программу Разработать программу для реализации игры пятнашки. Разработать 2-3
Составить описание класса многочленов от одной переменной, задаваемых степенью...

Написать программу, производящую вычисления по заданной формуле (тригонометрия, простые циклы)
(100+10 cos 0.1)(100+10cos0.2)....(100+10 cos10) Создавайте темы с...

2
Narimanych
354 / 292 / 148
Регистрация: 23.03.2015
Сообщений: 1,000
18.06.2015, 20:50 2
Лучший ответ Сообщение было отмечено shergin94 как решение

Решение

shergin94,

Если вы с математикой не на "вы " то поробуйте хоть расписать

Цитата Сообщение от shergin94 Посмотреть сообщение
3.Проанализировать формулы и найти критические точки. Предусмотреть их исключение.
Добавлено через 1 час 39 минут
Задание 2....
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var
 M:array[1..5,1..6] of real;
 i,j:integer;
 even_rows_sum,odd_rows_sum:real;
 begin
 
 //Здесь введите свой массив....M[..] ;
 even_rows_sum:=0;
 odd_rows_sum:=0;
  for i:=1 to 5 do
    begin
      for j:=1 to 6  do
      begin
        if i mod 2 =0 then even_rows_sum:=even_rows_sum+M[i,j]else odd_rows_sum:=odd_rows_sum+ M[i,j];
      end;
    end;
  if even_rows_sum > odd_rows_sum then  showmessage('Сумма элементов четных строк больше,чем сумма элементов нечетных');
  if even_rows_sum= odd_rows_sum then  showmessage('Сумма элементов четных строк равна сумме элементов нечетных ');
  if even_rows_sum < odd_rows_sum then  showmessage('Сумма элементов четных строк меньше ,чем сумма элементов нечетных');
 
end;

Задание 3...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
ar
M:array of real;
N,i,j,Counter1,Counter2:integer;
 
begin
 N:=3;
 SetLength(M,N);
 //Здесь введите свой массив....M[..] ;
 
 Counter1:=0;
 Counter2:=0;
 J:=0;
 
 repeat
  for i:=j+1 to N-1  do
  begin
  if M[j]= M[i] then  Counter1:=Counter1+1;
  end;
   if Counter1/3=1  then  Counter2:=Counter2+1;
   J:=J+1;
  until (J=N-1);
  ShowMessage('количество элементов, которые встречаются в этом массиве ровно по три раза='+ IntToStr(Counter2));
end;

P.S. Задание1 -после того , как вы сами справитесь с п3...3.Проанализировать формулы и найти критические точки


Удачи...
0
shergin94
0 / 0 / 0
Регистрация: 18.06.2015
Сообщений: 4
20.06.2015, 00:17  [ТС] 3
Спасибо большое!) Не ожидал, что кто то откликнется так быстро..
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2015, 00:17

Разработать программу выполнения вычисления функции f(x) = ax/b
Кто может напишите плз!!!:Разработать программу выполнения вычисления функции...

Разработать программу, вычисляющее значение формулы по формуле сходящего ряда
Здравствуйте! Итерация проходит один раз, помогите исправить ошибку. Задание...

Разработать программу выполнения арифметических операций в двоичной системе счисления
Разработать программу выполнения арифметических операций в двоичной системе...


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

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

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