Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi ListBox vs Excel (давайте поможем девушке пойти домой раньше) https://www.cyberforum.ru/ delphi-beginners/ thread66947.html
И чтобы окончательно доделать сегодняшние мои дела и пойти домой, надо решить это. В excel содержатся дынные. Аксиома ))) Сравнить ListBox2 и первый столбец excel таблицы. В StringGrid1 попадают те строки из excel таблицы, первое значение которых совпадает с данными из listbox2. Вот эта белебердятина мои общие мысли
Delphi RadioGroup Подчистить
Два RadioGroup. Щелчок по первому приводит к изменениям во втором. Выбираю пункт 1 в RadioGroup1 - в RadioGroup2 появляются одни значения, выбираю 2 - другие. Вот так значения появляются, но надо бы подчищать предыдущие, раскрыв комментированные строки, но тогда всё падает... Может скобку какую али адиницу +/- упускаю procedure TForm1.RadioGroup1Click(Sender: TObject); begin if...
Delphi Найти число перемен знаков последовательности попарных произведений https://www.cyberforum.ru/ delphi-beginners/ thread66895.html
Уважаемые форумчане!!! у меня такой вопрос: Даны два массива: A = {1.1, 2, 4, 5.1, -8.2, -1.5, 1.2}, B = {-1.3, 2.7, -3.2, 5, 1.8, -4.6, -1.2}. Найти число перемен знаков последовательности попарных произведений. Как сделать два фксированных массива,чтобы не вбивать их каждый раз заново.(желательно без использования файла...это одно из условий)И как можно найти число перемен знаков...
Delphi ListBox где ошибка? var MsExcel: Variant; Matrix: Variant; k, r: Integer; ////////// https://www.cyberforum.ru/ delphi-beginners/ thread66882.html
удалению повторяющихся букв в слове Delphi
как правильно написать програму по удалению повторяющихся букв в слове на Delphi??? спасиба
Delphi Delphi 3.0 Помогите отсортировать уже имеющийся массив в другой таблице... https://www.cyberforum.ru/ delphi-beginners/ thread66816.html
Delphi Создание теста https://www.cyberforum.ru/ delphi-beginners/ thread66815.html
Здравствуйте всем!!! Помогите, пожалуйста, разобраться с созданием программы тестирования. Код писала с использованием книги, но выдает ошибки. Подскажите где собака порылась. Прикрепляю все что напрограммировала в файлике. Спасибо!
Delphi нужен совет....
Короче тема такая: нужно создать программу возведения числа в степень с помощью цикла For я написал но вот тут он работает в каком-то странном диапазоне... 2 в 32 степень не возводит и далее..короче диапазон ограниченный что делать? вот код программы: program Project1; {$APPTYPE CONSOLE} uses
Delphi Как реализовать подобный интерфейс? обращаюсь к вам с просьбой как реализовать интерфейс как на картинке.Заранее благодарен https://www.cyberforum.ru/ delphi-beginners/ thread66740.html Delphi Маска ввода данных https://www.cyberforum.ru/ delphi-beginners/ thread66727.html
Какую маску нужно написать, чтобы вводить можно было только буквы или только цифры?
арканоид Delphi
помогите пожалуйста, создать простой арканоид, в котором просто нада палочкой, снизу ездящей бить шарик по кубикам и выбивать их, если шарик падает игра заканчивается delphi c++ builder 2009
Delphi Запись голосового сообщения https://www.cyberforum.ru/ delphi-beginners/ thread66657.html
Необходимо по нажатию кнопки начать запись голосового сообщения, при нажатии другой кнопки прекратить запись, ну и соответственно, при нажатии третьей кнопки сохранить запись в файл. Может кто сталкивался? Настройка уровня записи и свойств аудио уже реализована.... Добавлено через 18 минут Не хотелось бы использовать программу "Звукозапись" входящую в состав Windows
13097 / 5878 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
27.11.2009, 15:43 0

Массивы в языке Object Pascal - Delphi - Ответ 380822

27.11.2009, 15:43. Показов 1803. Ответов 3
Метки (Все метки)

Ответ

Iren, и ещё, в конце кода распечатки массива надо добавить несколько строк :
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
...
  //Распечатываем исходный массив.
  Memo1.Lines.Add('Исходный массив:');
  StrTmp := '';
  for i := 1 to M do begin
    //Между соседними элементами печатаем знак горизонтальной табуляции.
    if StrTmp <> '' then begin
      StrTmp := StrTmp + Char(9);
    end;
    //Добавляем к строке значение элемента массива.
    StrTmp := StrTmp + IntToStr(Arr[i]);
    //В каждую строку помещаем по ColCount элементов.
    if i mod ColCount = 0 then begin
      Memo1.Lines.Add(StrTmp);
      StrTmp := '';
    end else if i = M then begin //Добавлено.
      //В случае, когда M не кратно ColCount, в последней итерации цикла
      //надо допечатать оставшиеся элементы.
      Memo1.Lines.Add(StrTmp);
    end;
  end;
...
  //Распечатываем массив.
  Memo1.Lines.Add('Массив после преобразования:');
  StrTmp := '';
  for i := 1 to M do begin
    //Между соседними элементами печатаем знак горизонтальной табуляции.
    if StrTmp <> '' then begin
      StrTmp := StrTmp + Char(9);
    end;
    //Добавляем к строке значение элемента массива.
    StrTmp := StrTmp + IntToStr(Arr[i]);
    //В каждую строку помещаем по ColCount элементов.
    if i mod ColCount = 0 then begin
      Memo1.Lines.Add(StrTmp);
      StrTmp := '';
    end else if i = M then begin //Добавлено.
      //В случае, когда M не кратно ColCount, в последней итерации цикла
      //надо допечатать оставшиеся элементы.
      Memo1.Lines.Add(StrTmp);
    end;
  end;
Когда будеш изучать программу, поначалу не обращай внимание на код распечатки - т. к. он не относится к решению основной задачи.
Если что-то непонятно - спрашивай.

Вернуться к обсуждению:
Массивы в языке Object Pascal Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2009, 15:43
Готовые ответы и решения:

Строки в языке Object Pascal
Помогите, пожалуйста, решить задачу в Delphi: Поиск самого длинного слова в строке и вывод этого...

Разработать класс и указать методы на языке Object Pascal
Разработать класс и указать методы на языке Object Pascal Класс прямая Члены класса Координаты...

Разработать класс и указанные методы на языке Object Pascal
Вариант 19 Класс Обыкновенная дробь Члены класса Числитель и знаменатель Методы Конструктор,...

Разработать программу на языке Object Pascal в среде Delphi
Разработать программу, ведущую учет результатов сдачи экзаменов студентами одной группы за один...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2009, 15:43
Помогаю со студенческими работами здесь

Проверить программно код на языке Object Pascal на синтаксические ошибки
Никто не подскажет, как проверить программно код на языке Object Pascal на синтаксические ошибки?

Удалить из файла с исходным текстом программы на языке Object Pascal все комментарии
Удалить из файла с исходным текстом программы на языке Object Pascal все комментарии. Сохранил...

Составьте программу на языке программирования Object Pascal для вычисления значений функции
F(x)= x – sin x на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой...

Object Pascal (Delphi)
1. Нужно написать программу на языке Object Pascal (Delphi), чтобы она переводила метры в футы и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru