IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> сумма первой и последней цифр, входящих в запись числа типа Longint
сообщение
Сообщение #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;

или подскажите как функции задавать в делфи
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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


Гость






Спасибо за ответ good.gif
а вот допустим чтоб по клику на баттон выводилось в form1.caption
что нужно прописать?
Цитата
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=inttostr(get_sum(Edit1.text));

что я не правильно записываю, или функция в делфи как-то подругому вызывается?только начали проходить, всех ньюансов не знаю blink.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Функция get_sum должна принимать число, а ты пытаешься передать строку...
...
Form1.Caption:=inttostr(get_sum(strtoint(Edit1.text)));
...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Благодарю! smile.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 20.08.2017 7:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"