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