Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.10.2011, 08:30
Аватар для tristan
tristan tristan вне форума
Прохожий
 
Регистрация: 28.10.2010
Сообщения: 32
Репутация: 2956
Сообщение Перевод программы на 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. 

Очень прошу помочь.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:06.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025