Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Составить проект программы калькулятора http://www.cyberforum.ru/delphi-beginners/thread692923.html
Составить проект программы калькулятора, выполняющего вычисление среднего значения и величины среднеквадратического отклонения от среднего для N чисел ( N <= 20). Величина N определяется...
Delphi Забыл как сделать Написал вот такую вот программу. Как мне ввести 12*sqrt(3) в верхний предел ? uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, math; function... http://www.cyberforum.ru/delphi-beginners/thread692882.html
Delphi UTF16 LE в ANSI или UTF8
Доброго всем времени суток! Есть задача декодировать строку, закодированную через base64. Я точно знаю ,что в этой строке должен быть читаемый русскоязычный текст, но вот что-то никак не...
ADOTable и RadioGroup Delphi
Всем здравствуйте! Возникла такая проблема: необходимо что бы по нажатию клавиши происходил перенос данных из ADOTable(именно данных, а не название полей!) в RadioGroup. К примеру есть НД Цвет, в нем...
Delphi Пожалуйста, подскажите, где ошибки http://www.cyberforum.ru/delphi-beginners/thread692716.html
Доброго времени суток. Пытаюсь решить задачу: "Найти в целочисленной матрице первый столбец, все элементы которого заканчиваются на 3" У меня уже, скорее всего, отказывает мозг или замыленные...
Delphi Бесконечный запрос Возможно ли запустить такой цикл который бесконечно будет обращаться к оперативной памати тем самым засоряя её? подробнее
WoodHead
102 / 101 / 29
Регистрация: 15.01.2011
Сообщений: 476
09.11.2012, 13:24 0

задача на тему одномерных массивов

09.11.2012, 13:24. Просмотров 532. Ответов 2
Метки (Все метки)

Ответ

tatonok, вы уж простите, но на мой взгляд этот код - одна сплошная ошибка.
Вот мой вариант:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ArrayProject;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var
  Arr: Array[1..10] of Real; // объявляем массив
  i: byte;                      // переменная для счетчика
begin
  for i := 1 to High(Arr) do    // цикл перебора данных
  begin
  // если деление номера элемента массива на 2 выполняется без остатка
  // то элементу массива присваиваем его номер, в противном случае ставим 0
    if i mod 2 = 0
      then Arr[i]:=i/2
      else Arr[i]:=0;
    writeln(Round(Arr[i])); // печатаем результат
  end;
  readln;           // задержка вывода на экран
end.


Вернуться к обсуждению:
задача на тему одномерных массивов
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2012, 13:24
Готовые ответы и решения:

Задача способы ввода одномерных массивов с компонентами: TEdit, TMemo
Здравствуйте. СПасибо за те решения. Помоги и с этой задачей. Вообще не...

Задача: "Программирование одномерных статических массивов"
Исправить код программы или дополнить. Ввести элементы одномерного массива...

5. Обработка одномерных массивов
Составить программу для решения задачи. Вывести положительные элементы массива...

Вычитание одномерных массивов
Даны два массива B и C одинаковой размерности.Заполнить массив A,каждый элемент...

Обработка одномерных массивов
помогите пожалуйста) в делфи используя компонент Memo и ListBox Дан...

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