![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Николс |
![]()
Сообщение
#1
|
Гость ![]() |
Описать функцию, которая возвращает сумму первой и последней цифр входящих в запись числа типа 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 |
![]()
Сообщение
#2
|
Гость ![]() |
Ну, почти верно же сделал:
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;
|
Николс |
![]()
Сообщение
#3
|
Гость ![]() |
Спасибо за ответ
![]() а вот допустим чтоб по клику на баттон выводилось в form1.caption что нужно прописать? Цитата procedure TForm1.Button1Click(Sender: TObject); begin Form1.Caption:=inttostr(get_sum(Edit1.text)); что я не правильно записываю, или функция в делфи как-то подругому вызывается?только начали проходить, всех ньюансов не знаю ![]() |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Функция get_sum должна принимать число, а ты пытаешься передать строку...
...
Form1.Caption:=inttostr(get_sum(strtoint(Edit1.text)));
...
|
Николс |
![]()
Сообщение
#5
|
Гость ![]() |
Благодарю!
![]() |
![]() ![]() |
![]() |
Текстовая версия | 23.09.2025 8:58 |