Дан вещественный вектор A(n). Подсчитать количество таких i

19.05.2014, 19:55. Показов 784. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

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

Delphi

procedure TForm1.button2Click(Sender: TObject);
var i,k,z,b,s: Integer;
begin
b:=0;
s:=0;
 for i := 1 to SG1.ColCount-1 do
    for k :=1 to i-1 do
      begin
      z:= StrToInt(SG1.Cells[k,1]);
        if z > StrToInt(SG1.Cells[i,1]) then
            begin
            b:=b+1;
            end;
         if b=0 then
         s:=s+1;
      end;
 Edit1.Text:= IntToStr(s);
end;

Заранее спасибо!

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.05.2014, 19:55

Ответы с готовыми решениями:

Дан вещественный вектор А(н). Подсчитать количество таких i, что А [i] не меньше всех предыдущих элементов вектора (А [1
Здравствуйте, задание делаю в делфи 7, правильно ли я его сделал задание? Подскажите пожалуйста, а...

Дан вещественный вектор A(n). Найти число ненулевых элементов в векторе.
1) Дан вещественный вектор А(n). Найти число ненулевых элементов в векторе. На печать выдавать...

Дан вещественный вектор А. Отсортировать его элементы методом линейного выбора
3) Дан вещественный вектор А(n). Отсортировать его элементы методом линейного выбора.

Дан вектор. Подсчитать количество элементов, входящих в интервалы [-5:0] и [3:8]
Дан вектор Х. Подсчитать количество элементов, входящих в интервалы и . Если количество...

	19.05.2014, 19:55

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.05.2014, 19:55

Помогаю со студенческими работами здесь

Дан массив X (N). Элементы массива, значения которых не принадлежат интервалу [A,B], разделить на 100 и подсчитать количество таких элементов
Дан массив X (N). Элементы массива, значения которых не принадлежат интервалу , разделить на 100 и...

Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число
Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число. Переменной r...

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

Дан вещественный вектор. Все его элементы, большие 0, умножить на 10, остальные оставить без изменения
Дан вещественный вектор. Все его элементы, больше 0 - умножить на 10, остальные оставить без...

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

Или воспользуйтесь поиском по форуму:

Наверх