Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ сумма первой и последней цифр

Автор: Николс 19.05.2006 1:30

Описать функцию, которая возвращает сумму первой и последней цифр входящих в запись числа типа Longint .
подскажите пожайлуста! что я не правильно делаю?

Цитата
s:=0;
edit1.Text:=floattostr(li);
s:= li mod 10; {первая цифра}

while li>=10 do li:=li div 10; {пока не останется последняя цифра}
begin
DigitSum:=s+li;
end;
Form1.caption:=inttostr(digitsum);
end;

или подскажите как функции задавать в делфи

Автор: volvo 19.05.2006 1:35

Ну, почти верно же сделал:

Function get_sum(li: longint): byte;
var s: byte;
begin
  s := li mod 10;
  while li > 9 do li := li div 10;
  result := s + li;
end;

Автор: Николс 19.05.2006 1:45

Спасибо за ответ good.gif
а вот допустим чтоб по клику на баттон выводилось в form1.caption
что нужно прописать?

Цитата
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=inttostr(get_sum(Edit1.text));

что я не правильно записываю, или функция в делфи как-то подругому вызывается?только начали проходить, всех ньюансов не знаю blink.gif

Автор: volvo 19.05.2006 1:58

Функция get_sum должна принимать число, а ты пытаешься передать строку...

...
Form1.Caption:=inttostr(get_sum(strtoint(Edit1.text)));
...

Автор: Николс 19.05.2006 2:01

Благодарю! smile.gif