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

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

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.02.2010, 16:56   #1
Bariy47
Пользователь
 
Регистрация: 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.
Теперь как мне сделать:. Предусмотрите возможность выбора функции, для которой будет рассчитываться таблица. Функции поместите в отдельный модуль. Вызывать выбранную функцию должна процедура, использующая в качестве входного параметра имя соответствующей функции.
на делфи
Bariy47 вне форума Ответить с цитированием
Старый 11.02.2010, 15:55   #2
Petrovi4
Новичок
Джуниор
 
Регистрация: 16.06.2007
Сообщений: 0
По умолчанию

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.
Petrovi4 вне форума Ответить с цитированием
Старый 11.02.2010, 17:39   #3
QuadroX
323787261
Пользователь
 
Аватар для QuadroX
 
Регистрация: 19.12.2008
Сообщений: 49
По умолчанию

Пиши в ICQ сделаю недорого.
ICQ: 323787261
Email: pschegolevatykh@gmail.com
QuadroX вне форума Ответить с цитированием
Старый 11.02.2010, 18:35   #4
freest
Пользователь
 
Регистрация: 26.09.2009
Сообщений: 10
По умолчанию

308 895 241 обсудим
ICQ: 308 895 241
программы под заказ
freest вне форума Ответить с цитированием
Старый 11.02.2010, 19:45   #5
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

255507394! Обращайся!!!

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.
sheka вне форума Ответить с цитированием
Старый 11.02.2010, 20:20   #6
Gapro
Форумчанин
 
Регистрация: 30.07.2009
Сообщений: 256
По умолчанию

Сделаю. Быстро и недорого
Gapro вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программма работает не так как ожидал бедный_студент Помощь студентам 3 13.10.2009 00:08
может ли программма выполнять действия описаные в другом файле? Iceman Общие вопросы Delphi 9 14.03.2009 21:22
дикая программма ANTI1 Общие вопросы Delphi 0 07.11.2008 15:12