Вопрос по Delphi - Программирование - Delphi/Pascal/Object Pascal

Дата: Понедельник, 17 Января 2011, 20:14 | Сообщение # 8

частый гость

Сейчас нет на сайте

народ help! задание - В массиве найти количество элементов, которые больше чем первый. Кто может код сделать, плиз, буду очень благодарен

Pesets

Дата: Понедельник, 17 Января 2011, 20:47 | Сообщение # 9

постоянный участник

Сообщений: 355

Сейчас нет на сайте

Code

for I := 1 to length(a) - 1 do
if a[i] > a[0] then inc(count);

здесь a - массив, i и count - целые, count = 0 при старте.

Дата: Понедельник, 17 Января 2011, 20:51 | Сообщение # 10

частый гость

Сейчас нет на сайте

EXP0,

Code

program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils;

const N = 6; // Кол-во элементов в массиве
var arr: array [1..N] of Integer;
var i, c: integer;
begin
   for I := 1 to N do // { В цикле заполняем массив
     readln(arr[i]);  // }
   c := 0; // Начальное кол-во элементов = 0
   for I := 2 to N do  // { Сравниваем первый элемент с остальными в цикле
     if arr[I] > arr[1] then // }
       inc(c); // Увеличиваем счетчик (+1)
   writeln(c); // Выводим кол-во элементов
   readln; // Ожидаем нажатия Enter для закрытия консоли
end.

Дата: Понедельник, 17 Января 2011, 20:53 | Сообщение # 11

частый гость

Сейчас нет на сайте

хорошо, а в начале программы нужно описывать сам StringGrid?

Дата: Понедельник, 17 Января 2011, 20:56 | Сообщение # 12

частый гость

Сейчас нет на сайте

Quote (EXP0)

хорошо, а в начале программы нужно описывать сам StringGrid?

можно массив заполнить данными из StringGrid, либо переделать код чтоб он сразу значения из StringGrid брал

Дата: Понедельник, 17 Января 2011, 21:00 | Сообщение # 13

частый гость

Сейчас нет на сайте

спасибо большое тебе и Pesets за помощь. + в репу. ээмм прости, но не понял твой последний комментарий, просто я в делфи не очень.

Дата: Понедельник, 17 Января 2011, 21:04 | Сообщение # 14

частый гость

Сейчас нет на сайте

Quote (EXP0)

не понял твой последний комментарий

Если я тебя правильно понял то тебе надо перед этим кодом сначала заполнить массив теми данными, что в таблице, либо прямо из таблицы их брать не используя массив и в конце уже сравнивать тем кодом, который выше. Это уже как тебе удобней.

Дата: Понедельник, 17 Января 2011, 21:09 | Сообщение # 15

частый гость

Сейчас нет на сайте

не хочу надоедать, но принцип таков: я ввожу данные в стриггрид и нажимаю выполнить, т.е получается, что данные считываются с stringgrid? а полученное значение выводится в memo?

Дата: Понедельник, 17 Января 2011, 21:12 | Сообщение # 16

частый гость

Сейчас нет на сайте

Quote (EXP0)

я ввожу данные в стриггрид и нажимаю выполнить, т.е получается, что данные считываются с stringgrid? а полученное значение выводится в memo?

Да, именно так.

Дата: Понедельник, 17 Января 2011, 21:15 | Сообщение # 17

частый гость

Сейчас нет на сайте

я заметил в твоем коде присутствие writeln и readln. просто мы пока такое не проходим, боюсь вопросы начнут задавать заоблачные. так мне использовать твой код + связать его с memo?

Дата: Понедельник, 17 Января 2011, 21:22 | Сообщение # 18

частый гость

Сейчас нет на сайте

readln() - это используется пользователем для ввода с клавиатуры значения в консольном приложении. В моем коде он заполняет каждый элемент массива в цикле. Т.е. ты вводишь N-е кол-во раз число и и это число сохраняется в элементе массива. Так заполняется весь массив с клавиатуры...
writeln() - это для вывода в окно консоли в данном случае.
В твоем случае VCL приложение и тебе использовать эти функции не надо.

Дата: Понедельник, 17 Января 2011, 21:24 | Сообщение # 19

частый гость

Сейчас нет на сайте

так вроде бы понял. спасибо большое.если что можно еще будет тебя спросить?

Дата: Понедельник, 17 Января 2011, 21:28 | Сообщение # 20

частый гость