|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Переделать в форму
Помогите переделать в форму.
написал в консоли, но надо перенести на форму. Код:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Sum,i,a:integer; s:string; function Even(K:integer):boolean; begin if K mod 2=0 then Even:=true else Even:=false; end; begin /////// основная программа ///////////// begin sum:=0; Writeln('vvedite 10 tselix chisel '); for i:=1 to 10 do begin read(a); if Even(a) then inc(sum); end; Writeln('Tsetnix chisel = ',Sum); repeat readln(s); if s = ' ' then begin end; until s = 'exit' end; end. Последний раз редактировалось Admin, 18.06.2013 в 14:22. |
#2
|
||||
|
||||
Тут не перенос, а полная переделка программы. Замена консольных команд на визуальные элементы. Не хотите сами делать в Работу идите, а ждете шары то тоже в соответствующий раздел форума.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |