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

Привязка консольного приложения к оконному

20.10.2012, 20:36. Просмотров 1162. Ответов 5
Метки нет (Все метки)

Помогите, пожалуйста!!!

Дан одномерный массив Xn. Найти количество элементов массива, равных нулю. Вывести на экран номера и значения элементов, попадающих в интервал [А ; В].

консольное написал

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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  i,n,k,a,b:integer;
  x:array[1..100] of integer;
begin
   writeln(' ******************');
   write(' N='); readln(n);
   write(' A='); readln(a);
   write(' B='); readln(b);
 
   for i:=1 to n do begin
    write('x(',i,')=');
    readln(x[i]);
   end;
 
   k:=0;
   for i:=1 to n do begin
    if x[i]=0 then
     k:=k+1;
   end;
   writeln('                 ');
   writeln('kolichestvo nulevix elementov massiva = ',k);
   writeln('                 ');
 
   writeln('nomera i znacheniya elementov v intervale [A B] ');
   writeln('                 ');
   for i:=1 to n do begin
    if (x[i]>=a) and (x[i]<=b) then
     writeln('nomer=  ',i, '  znachenie=  ',x[i]);
   end;
 
  readln;
 
  { TODO -oUser -cConsole Main : Insert code here }
end.

1)На форму положить панели (контейнеры для остальных элементов). Окно должно быть разбито панелями на 3 части:

- для ввода начальных данных (количество элементов массива, границы отрезка и т.д)
- для ввода исходного массива
- для вывода результатов

При размещении компонентов в окне формы использовать свойства автоматического позиционирования объектов: Align (примыкание к границам контейнера: Left –левой, Right – правой, Top-к верхней, Bottom – к нижней, alClient – занятие всего свободного пространства), Anchors (фиксация положения относительно границ контейнера)

2)В каждый момент должна быть доступна только одна часть (панель)

А) При запуске программы должна быть доступна панель для ввода начальных данных (другие панели должны быть не видимы)

Б) После ввода начальных данных и нажатия кнопки «Ввод массива» необходимо:
Сделать первую панель недоступной,
Сделать вторую панель видимой.
Таблица должны настраиваться на заданный размер массива, т.е. количество колонок в таблице должно быть равно N.
В заголовках колонок должны отображаться номера вводимых элементов.

В) После ввода исходного массива и нажатия кнопки «Вып.расчет» необходимо:
сделать вторую панель недоступной,
выполнить расчет, сделать видимой третью панель и вывести в ней результаты.

Г) После нажатия кнопки «Новый расчет» вернуть форму в состояние запуска.
0
Миниатюры
Привязка консольного приложения к оконному  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2012, 20:36
Ответы с готовыми решениями:

Запрос консольного приложения
program Project2; {$APPTYPE CONSOLE} {$R *.res} uses ...

Выход из консольного приложения
Здравствуйте! Есть консольное приложение и процедура, в которой нужно...

Из консольного приложения на форму
Привет всем. В библиотеке bass есть пример livespec. Суть самого приложения...

Запуск консольного приложения в потоке
Здравствуйте. Предположим что у меня есть консольное приложение. Для...

Запуск консольного приложения внутри
Нужно запустить консольное приложение внутри моей программы. Это реально...

5
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
20.10.2012, 20:52 2
Ну и выложил бы хотя бы собранную форму без кода.
0
Вооваан
0 / 0 / 0
Регистрация: 13.10.2012
Сообщений: 13
20.10.2012, 21:16  [ТС] 3
не могу добавить, скрепки нету
0
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
20.10.2012, 21:21 4
Как это "нету"? Скрин же добавил.
0
Вооваан
0 / 0 / 0
Регистрация: 13.10.2012
Сообщений: 13
20.10.2012, 21:22  [ТС] 5
это я из примера взял
0
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
20.10.2012, 22:54 6
Ну вот. Правда, может кнопку "Изменить исходные данные" нужно по другому обрабатывать.
1
Вложения
Тип файла: rar Привязка консольного приложения к оконному.rar (198.7 Кб, 31 просмотров)
20.10.2012, 22:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2012, 22:54

delphi создание консольного приложения
здравствуйте:) пожалуйста подскажите как в Delphi при создании консольного...

Переписать код в виде консольного приложения
const n=6; const m=6; var A:array of integer=(10,10,10,10,100,10); var...

Правильно освободить память консольного приложения
Добрый день! Есть консольное приложение, его завершает другая программа,...


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

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

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