0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
1

Вычислить номер элемента, для которого НЕ выполняется условие

09.05.2018, 12:17. Показов 826. Ответов 16
Метки нет (Все метки)

Вычислить номер элемента для которого НЕ выполняется условие.
где
S1 и S2 - значения первого и второго элемента ряда,
N – количество элементов на котором следует остановится если элемент не найден,
type – тип элементов (int – целые, float – вещественные),
Функция — функцию которую необходимо вычислить ( Е - сумму ряда, Р - произведение ряда,
D - среднее значение ряда, Si - значение i-го элемента ряда).
Si=(S(i−2)∗2−S(i−1)/4−15)/(S(i−2)∗6) - формула по которой вычисляются элементы ряда
S1=2 S2=10 N=40 сумма ряда >5000

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
procedure TForm1.Button1Click(Sender: TObject);
var
  S1,S2,n:integer;
  Si:integer;
  sum:integer;
begin
StringGrid1.ColCount:=2;
StringGrid1.Cells[0,0]:='1';
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[1,0]:='2';
StringGrid1.Cells[1,1]:='1';
S1:=9;
S2:=33;
sum:=S1+S2;
 n:=50;
 while sum >5000 do
begin
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  StringGrid1.Cells[StringGrid1.ColCount-1,0]:=IntToStr(StringGrid1.ColCount);
  Si:=(S1*2-S2/4-15)/(S1*6);
   StringGrid1.Cells[StringGrid1.ColCount-1,1]:=IntToStr(si);
  n:=n+1;
  S1:=S2;
  S2:=Si;
  sum:=sum+Si;
end;
Edit1.Text:= IntToStr(Si);
end;
Что не так , не могу сделать чтобы тип был integer, выдает ошибку
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2018, 12:17
Ответы с готовыми решениями:

Вычислить номер элемента для которого не выполняется условие произведение > 5000
Вычислить номер элемента для которого НЕ выполняется условие произведение>5000 Вычисляет...

Найти наименьший номер элемента последовательности, для которого выполняется условие
Найти наименьший номер элемента последовательности, для которого выполняется условие ...

Найти наименьший номер элемента последовательности, для которого выполняется условие
Найти наименьший номер элемента последовательности, для которого выполняется условие М. Вывести на...

Найти наименьший номер элемента последовательности, для которого выполняется условие М
Найти наименьший номер элемента последовательности, для которого выполняется условие М. Вывести на...

16
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
09.05.2018, 12:29 2
А с чего здесь должны получиться целые числа если в формуле есть вещественное деление?
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
09.05.2018, 12:42  [ТС] 3
И что делать?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31254 / 20430 / 7964
Регистрация: 22.10.2011
Сообщений: 35,470
Записей в блоге: 6
09.05.2018, 12:48 4
Использовать FloatToStr, а все переменные, кроме n сделать типа Double, а не Integer
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
09.05.2018, 13:04  [ТС] 5
Так и должно быть?
Миниатюры
Вычислить номер элемента, для которого НЕ выполняется условие  
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 10:55  [ТС] 6
Как исправить такую ошибку:unit1.pas(69,1) Error: Identifier not found "Edit1"




Delphi
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
34
35
var
  n:integer;
 S1,S2,sum, Si: Double;
begin
StringGrid1.ColCount:=2;
StringGrid1.Cells[0,0]:='1';
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[1,0]:='2';
StringGrid1.Cells[1,1]:='1';
S1:=9;
S2:=33;
sum:=S1+S2;
 n:=50;
 while sum >5000 do
begin
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  StringGrid1.Cells[StringGrid1.ColCount-1,0]:=FloatToStr(StringGrid1.ColCount);
  Si:=(S1*2-S2/4-15)/(S1*6);
   StringGrid1.Cells[StringGrid1.ColCount-1,1]:=FloatToStr(Si);
  n:=n+1;
  S1:=S2;
  S2:=Si;
  sum:=sum+Si;
end;
Edit1.Text:= FloatToStr(Si);
end;
 
end.
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 
end;
 
end.
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2018, 11:52 7
Положить на форму Edit1.
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 11:56  [ТС] 8
Напишите нормально, что не так!
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2018, 12:04 9
Ну тогда нужно начинать с начала
Авраам родил Исаака; Исаак родил Иакова; Иаков родил Иуду и братьев его;
Иуда родил Фареса и Зару от Фамари; Фарес родил Есрома; Есром родил Арама;
Арам родил Аминадава; Аминадав родил Наассона; Наассон родил Салмона;
Салмон родил Вооза от Рахавы; Вооз родил Овида от Руфи; Овид родил Иессея;
Продолжать?
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 12:07  [ТС] 10
Да, вы юморист! А если серьезно. Я не могу Edit1 убрать!
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2018, 12:13 11
Вам компилятор пишет на чистом английском языке
Цитата Сообщение от xxxx18 Посмотреть сообщение
Identifier not found "Edit1
Это значит что на той форме с которой код нет этого компонента. Положите его.
Может у Вас и лежит Эдит, но у него другое имя, смените.
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 13:07  [ТС] 12
Вычислить номер элемента, для которого НЕ выполняется условие




Программа не правильно считает! Ч то делать?
Сумма ряда явна не больше 5000, скажите что не так, я уже незнаю что делать!
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2018, 13:10 13
Ну если все выводит в Эдит то откуда ошибка?
Приложите архив проекта, только без файла exe.
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 13:20  [ТС] 14
У вас не подерживается этот формат докуметов! Да и ошибку я исправил! Правда программа работает явно не так как надо.
0
Модератор
7322 / 4796 / 2007
Регистрация: 21.01.2014
Сообщений: 20,350
Записей в блоге: 3
11.05.2018, 16:16 15
Цитата Сообщение от xxxx18 Посмотреть сообщение
У вас не подерживается этот формат докуметов!
А Вас никто и не просил прикреплять какие-то документы... Вас просили проект приложить...
0
0 / 0 / 0
Регистрация: 04.05.2018
Сообщений: 41
11.05.2018, 19:15  [ТС] 16
Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  n:integer;
 S1,S2,sum, Si: Double;
begin
StringGrid1.ColCount:=2;
StringGrid1.Cells[0,0]:='1';
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[1,0]:='2';
StringGrid1.Cells[1,1]:='1';
S1:=9;
S2:=33;
sum:=S1+S2;
 n:=2;
 while (sum >5000 )and (n<50) do
begin
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  StringGrid1.Cells[StringGrid1.ColCount-1,0]:=FloatToStr(StringGrid1.ColCount);
  Si:=(S1*2-S2/4-15)/(S1*6);
   StringGrid1.Cells[StringGrid1.ColCount-1,1]:=FloatToStr(Si);
  n:=n+1;
  S1:=S2;
  S2:=Si;
  sum:=sum+Si;
end;
Edit1.Text:= FloatToStr(Si);
end;
 
end.
Добавлено через 1 час 6 минут
Что в программе не так?
0
Puporev
11.05.2018, 19:18     Вычислить номер элемента, для которого НЕ выполняется условие
  #17

Не по теме:

Цитата Сообщение от xxxx18 Посмотреть сообщение
Что в программе не так?
Эхо отвечает: "А хто его знает..."

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2018, 19:18

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти наименьший номер элемента последовательности, для которого выполняется условие М
Найти наименьший номер элемента последовательности, для которого выполняется условие М. Вывести на...

Найти наименьший номер элемента последовательности, для которого выполняется условие М
Помогите,пожалуйста,никак не могу составить программу. Найти наименьший номер элемента...

Найти наименьший номер элемента последовательности для которого выполняется условие
Задана последовательность аn . Задано некоторое число e. Найти наименьший номер (!) элемента...

найти наименьший номер элемента последовательности для которого выполняется условие
Прошу помощи. никак не могу найти решения данной задачи. Кому не трудно прошу, помогите решить....


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

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

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