![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 24
|
![]()
1. Подсчитать k - количество цифр в десятичной записи целого - n неотрицательного числа n
Вот код программы unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; kyky: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,n:word; begin n:=0; begin For i := 1 to Length(edit1.Text) do n:=n+1; end; kyky.Caption:='количество цифр'+ inttostr(n); end; end. Теперь как мне сделать:. Предусмотрите возможность выбора функции, для которой будет рассчитываться таблица. Функции поместите в отдельный модуль. Вызывать выбранную функцию должна процедура, использующая в качестве входного параметра имя соответствующей функции. на делфи |
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 16.06.2007
Сообщений: 0
|
![]()
ICQ - 324-783-266
Сделаю быстро, качественно, недорого. |
![]() |
![]() |
![]() |
#3 |
323787261
Пользователь
Регистрация: 19.12.2008
Сообщений: 49
|
![]()
Пиши в ICQ сделаю недорого.
ICQ: 323787261
Email: pschegolevatykh@gmail.com |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 26.09.2009
Сообщений: 10
|
![]()
308 895 241 обсудим
ICQ: 308 895 241
программы под заказ ![]() |
![]() |
![]() |
![]() |
#5 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
![]()
255507394! Обращайся!!!
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 30.07.2009
Сообщений: 256
|
![]()
Сделаю. Быстро и недорого
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программма работает не так как ожидал | бедный_студент | Помощь студентам | 3 | 13.10.2009 00:08 |
может ли программма выполнять действия описаные в другом файле? | Iceman | Общие вопросы Delphi | 9 | 14.03.2009 21:22 |
дикая программма | ANTI1 | Общие вопросы Delphi | 0 | 07.11.2008 15:12 |