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

Lazarus

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

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

18.06.2015, 15:51. Просмотров 890. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Циклы. Разработать программу для выполнения расчётов по формуле (Lazarus):

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

Разработать алгоритм и составить программу для вычисления значений переменных a и b по формуле - Pascal ABC
Разработать алгоритм и составить программу для вычисления значений переменных a и b по формуле: a =(√x − 2 sin 3y)/1,7 +ln3 z/2, b =(√3 x...

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

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

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

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

2
Narimanych
274 / 235 / 100
Регистрация: 23.03.2015
Сообщений: 788
18.06.2015, 20:50 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

Вычислить сумму ряда по формуле (для решения задачи использовать вложенные циклы) - C++
Задано натуральное n. Вычислить сумму. Нужна ваша помощь, прошу, если не сложно

Сумма ряда, разработать цикл для выполнения - C++
#include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main() { float x, sum, n = 24,tx=0; for (x = 42; x &gt; 0;x...

Разработать функцию для вычисления члена ряда по формуле - C (СИ)
Разработать функцию для вычисления члена ряда: (-1^n)/(n+1)^(2/3). Используя разработанную функцию вычислить сумму ряда с позиции N до...

Разработать модуль для выполнения операций с многочленами от одной переменной - C#
Требуется разработать модуль для выполнения операций с многочленами от одной переменной. Реализованный модуль должен выполнять...


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

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

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