[raggazi]

У кого есть или Бог в программировании помогите с задачами:
1. Разработать функцию, которая преобразует заданное целое число по следующему правилу: если старшая цифра числа четная, то удвоить ее (например 235— 435 )
2. Разработать процедуру, которая изменяет элементы заданного целочисленного массива по выше описанному правилу. Вывести массив и количество измененных элементов.

[The Shadow]

Код:

function ChangeFirstChar(N: Integer): Integer;
begin
if StrToInt(IntToStr(N)[1]) mod 2 = 0 then
Result:=StrToInt(IntToStr(StrToInt(IntToStr(N)[1])*2) + Copy(IntToStr(N), 2, Length(IntToStr(N))))
else
Result:=N;
end;
procedure ChangeFirstChars(var AN: Array of Integer);
var
i: Integer;
begin
for i:=Low(AN) to High(AN) do
AN[i]:=ChangeFirstChar(AN[i]);
end;

[Terio]

1.) На форму помещаешь Edit, Button и Label. Для кнопки пишешь код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var k,m:integer;
s:string;
begin
s:=Edit1.Text;
s:=Copy(s,0,1);
k:=strtoint(s);
m:=strtoint(Edit1.Text);
if (k and 1) = 0 then
m:=m*2;
Label1.Caption:=inttostr(m);
end;

2.) На ту же форму помещаешь вторую кнопку и ListBox. Для кнопки пишешь код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var   k,m:integer;
s:string;
A:Array [0..11] of integer;   //Объявляем массив из 12 элементов
i:integer;
begin
ListBox1.Items.Clear;
//Заполняем массив цифрами:
A[0]:=5;
A[1]:=10;
A[2]:=20;
A[3]:=30;
A[4]:=40;
A[5]:=50;
A[6]:=60;
A[7]:=70;
A[8]:=80;
A[9]:=90;
A[10]:=100;
A[11]:=200;
//Делаем цикл:
for i := 0 to High(A) do
begin
 s:=Copy(inttostr(A[i]),0,1); //Берем первое число
 k:=strtoint(s);
 m:=A[i];
 if (k and 1) = 0 then
 m:=m*2;
 ListBox1.Items.Add(inttostr(m)); //заполняем ListBox
end;

[raggazi]

все бы хорошо,но надо в консольном(

[The Shadow]

Мой вариант работает и в консоли.

[raggazi]

но нет самой функции и процедуры,у нас не сохранены они их надо писать

[The Shadow]

???
В моем первом посте написана процедура и функция.