программма

[Bariy47]

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.
Теперь как мне сделать:. Предусмотрите возможность выбора функции, для которой будет рассчитываться таблица. Функции поместите в отдельный модуль. Вызывать выбранную функцию должна процедура, использующая в качестве входного параметра имя соответствующей функции.
на делфи

[Petrovi4]

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.

[QuadroX]

Пиши в ICQ сделаю недорого.

[freest]

308 895 241 обсудим

[sheka]

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

[Gapro]

Сделаю. Быстро и недорого