Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2011, 17:03   #1
iron_cross
Пользователь
 
Аватар для iron_cross
 
Регистрация: 23.11.2010
Сообщений: 29
Сообщение Перевод программы на Delphi

Нужна помощь, я написал программу в консольном режиме на Delphi, но я очень плохо знаком c компонентами WinAPI. Я хочу чтоб был проект, например как показанно в моей программе, например поле кудамы вводим сколько компонентов мы должны ввести(Edit1), поле куда мы вводим эти компонеты(Edit2), и поле вывода ответовов(Memo).
Цитата:
program Zadanie2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mass: array[1..1000]of integer;
i, n: integer;
{ Удаление элемента ( ов ) }
procedure DeleteElements ( position: integer );
begin
if position < n then begin
mass[position] := mass[position + 1];
DeleteElements ( position + 1 );
end;
end;
{ Добавление элемента ( ов ) }
procedure AddElement ( count, position: integer );
begin
if position <= count then begin
read ( mass[position] );
if mass[position] = 0 then begin
dec ( count );
dec ( n );
AddElement ( count, position );
end else
AddElement ( count, position + 1 );
end;
end;
{ Вывод элемента ( ов ) }
procedure WriteElements ( position: integer );
begin
if position <= n then begin
write ( mass[position], ' ' );
WriteElements ( position + 1 );
end;
end;
begin
write ( 'Vvedite kol-vo elementov: ' );
readln ( n );
writeln ( 'Vvodite elementy spiska cherez probel:' );
AddElement ( n, 1 );
write ( 'Vvedite element: ' );
AddElement ( 1 + n, n + 1 );
inc ( n );
DeleteElements ( 1 );
dec ( n );
WriteElements ( 1 );
writeln;
end.
Очень прошу помочь.
iron_cross вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод программы с visual basic на delphi lordsyrius Фриланс 11 03.09.2010 09:53
Перевод программы с языка Delphi на C++ LeXX013 Фриланс 3 02.06.2010 06:33
Перевод программы с Pascal в C++ GoodSpirit Помощь студентам 4 19.05.2010 18:04
Перевод программы с delphi на Java zlobagi Фриланс 1 15.05.2010 17:54