Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2011, 12:00   #1
PRIVIDENIE18
Пользователь
 
Аватар для PRIVIDENIE18
 
Регистрация: 01.04.2009
Сообщений: 28
По умолчанию Народ объясните пжл как это работает????????

procedure TForm1.btn1Click(Sender: TObject);
var i,k,kol:Integer;
begin
mmo1.Clear;
kol:=0;
k:=StrToInt(edit2.text);
for i:=1 to k do
if k mod i=0 then begin
kol:=kol+1;
mmo1.Lines.Add(IntToStr(i));

end;
PRIVIDENIE18 вне форума Ответить с цитированием
Старый 29.05.2011, 12:29   #2
VVM
Форумчанин
 
Аватар для VVM
 
Регистрация: 06.06.2007
Сообщений: 282
По умолчанию

Код:
for i:=1 to k do //каждый раз от 1 до к выполняем:
 if k mod i=0 then begin // если остаток от деления k на i = 0 
 kol:=kol+1; // то увеличиваем kol на 1
 mmo1.Lines.Add(IntToStr(i));//и добавляем i в список memo
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
VVM вне форума Ответить с цитированием
Старый 29.05.2011, 12:33   #3
PRIVIDENIE18
Пользователь
 
Аватар для PRIVIDENIE18
 
Регистрация: 01.04.2009
Сообщений: 28
По умолчанию

Цитата:
Сообщение от VVM Посмотреть сообщение
Код:
for i:=1 to k do //каждый раз от 1 до к выполняем:
 if k mod i=0 then begin // если остаток от деления k на i = 0 
 kol:=kol+1; // то увеличиваем kol на 1
 mmo1.Lines.Add(IntToStr(i));//и добавляем i в список memo

Спасибо большое
PRIVIDENIE18 вне форума Ответить с цитированием
Старый 29.05.2011, 12:49   #4
PRIVIDENIE18
Пользователь
 
Аватар для PRIVIDENIE18
 
Регистрация: 01.04.2009
Сообщений: 28
По умолчанию и это тоже

implementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s);
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do
i:=i-1;
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));
end;

Последний раз редактировалось PRIVIDENIE18; 29.05.2011 в 13:05.
PRIVIDENIE18 вне форума Ответить с цитированием
Старый 29.05.2011, 13:16   #5
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Код:
mplementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s); //определяем длину строки
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do i:=i-1 //ищем с конца строки символ тире и запоминаем его позицию
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));//копируем все что расположено после тире, что то делаем с полученной строкой функцией Trim, преобразуем строку в число и получаем цену
end;
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 29.05.2011, 13:23   #6
PRIVIDENIE18
Пользователь
 
Аватар для PRIVIDENIE18
 
Регистрация: 01.04.2009
Сообщений: 28
По умолчанию

Цитата:
Сообщение от GetMax Посмотреть сообщение
Код:
mplementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s); //определяем длину строки
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do i:=i-1 //ищем с конца строки символ тире и запоминаем его позицию
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));//копируем все что расположено после тире, что то делаем с полученной строкой функцией Trim, преобразуем строку в число и получаем цену
end;
Спасибо большое
PRIVIDENIE18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Множества, объясните как работает программа ilyas22 Помощь студентам 4 06.06.2010 12:17
Объясните как работает PaintBox. NIQK Компоненты Delphi 1 11.12.2009 17:46
Паскаль. рекурсия. числа. объясните, как работает код [silver beast] Помощь студентам 2 21.01.2009 05:00
Объясните, как работает функция strlen() TheWanderer Общие вопросы C/C++ 9 25.11.2008 22:46