Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
KoloboKkk
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 35
1

Дан вещественный вектор А(н). Подсчитать количество таких i, что А [i] не меньше всех предыдущих элементов вектора (А [1

15.05.2018, 20:39. Просмотров 870. Ответов 2
Метки нет (Все метки)

Здравствуйте, задание делаю в делфи 7, правильно ли я его сделал задание? Подскажите пожалуйста, а то в ответ выводит всегда 0(( Буду благодарен, если научите вводить свои значения в StringGrid.

Задание: дан вещественный вектор А(n). Подсчитать количество таких i, что А [i] не меньше всех предыдущих элементов вектора (А [1], А[2],..., А[i-1]).

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    img1: TImage;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: array of integer;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//çàäàäèì íåêîòîðûå ïàðàìåòðû òàáëèö
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
Label1.Caption:='Ðàçìåð ìàññèâà';
Label2.Caption:='Èñõîäíûé ìàññèâ';
Label3.Visible:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
//ïðîâåðèì ââîä ðàçìåðîâ
val(Edit1.Text,n,i);
if (i<>0)or (n<1)then
 begin
  ShowMessage('Íåâåðíî ââåäåí ðàçìåð ìàññèâà');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
Setlength(a,n);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=random(10);
  StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,imx,j:integer;
begin
imx:=0;
for i:=2 to n do
 begin
    j:=1;
    while(j<1) and (a[j]<=a[i]) do Inc(j);
    if j=i then inc(imx);
 end;
 Label3.Visible:=true;
 Edit2.Text:=floattoStr (imx);
end;
 
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2018, 20:39
Ответы с готовыми решениями:

Подсчитать количество таких і, для который F[i] не меньше всех предыдущих элементов массива
2.Создать программу для подсчета количества таких і в цел.мас. F, для который F не меньше всех...

Дан одномерный массив. Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих эле
Pascal

Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих элементов таблицы
1. Дан одномерный массив. Составьте программу подсчета количества таких i, что Z не меньше всех...

Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива
Дан числовой массив a(n). Подсчитать количество элементов ai, которые не меньше всех предыдущих...

Дан числовой массив.Посчитать количество его элементов, которые не меньше всех предыдущих
Ребят,пожалуйста,если не сложно, напишите как делать...А то вообще не понимаю как делать=( Дан...

2
D1973
Модератор
4894 / 3472 / 1579
Регистрация: 21.01.2014
Сообщений: 14,699
Записей в блоге: 3
Завершенные тесты: 1
17.05.2018, 06:25 2
Лучший ответ Сообщение было отмечено KoloboKkk как решение

Решение

Цитата Сообщение от KoloboKkk Посмотреть сообщение
Буду благодарен, если научите вводить свои значения в StringGrid
Выставляете для StringGrid в инспекторе объектов Option->goEditing в true и в момент выполнения программы вносите руками нужные Вам значения.
1
KoloboKkk
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 35
17.05.2018, 12:16  [ТС] 3
Спасибо)
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2018, 12:16

Подсчитать количество элементов, каждый из которых не больше всех предыдущих
Здравствуйте. Помоги пожалуйста с заданием. Дан числовой массив из n элементов. Подсчитать...

Дан вещественный вектор А [1.N]. Заменить все отрицательные элементы вектора на их квадраты и отсортировать
Дан вещественный вектор А . Заменить все отрицательные элементы вектора на их квадраты и...

Подсчитать количество таких положительных элементов массива, корень квадратный из которых меньше 3
Заполнить динамический массив A(n) случайными числами в диапазоне от -15 до 15. Подсчитать...


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

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

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