Type
Stroka= string[80];
Var s:stroka;
Описать функцию Schet(s) , подсчитывающую общее кол-во цифр и знаков '+', '-', '*' ,входящих в строку s.
Организовать Windows- приложение в Delphi , в котором исходная строка вводится с клавиатуры с помощью объекта класса TEdit , а результаты обращения к Function Schet вывести в объект класса TLabel.
implementation
{$R *.dfm}
Function Schet(s:string):integer;
var
i,a:integer;
begin
a:=0;
for i:=1 to length(s) do begin
if s[i] in ['0'..'9','+','-','*'] then
a:=a+1;
end;
schet:=a;
end;
procedure TForm2.Button1Click(Sender: TObject);
Type
Stroka=string[80];
Var
u:stroka;
res:integer;
begin
u:=edit1.text;
res:=Schet(u);
Label1.caption:=inttostr(res);
end;
end.
Function Schet(s:string):integer;
for
i:=1 to length(s)
if
s[i] in ['0'..'9','+','-','*'] a=a+1
+ -
Schet=a
Конец
procedure TForm2.Button1Click(Sender: TObject);
u res:=Schet(u);
res Конец