|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Задачи Delphi
Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2 и которые являются удвоенными нечетными числами. Подсчитать количество этих чисел.
Не подскажете как это осуществить? Последний раз редактировалось frostikit, 31.10.2010 в 11:22. |
#2
|
||||
|
||||
Цитата:
Код:
var n1,n2,i:integer; begin n2:=89; //n2 i:=0; //счётчик чисел for n1:=2 to n2 do begin //цикл memo1.Text:=memo1.Text+inttostr(n1); //вывод в мэмо i:=i+1; end; showmessage(inttostr(i)); end; |
#3
|
||||
|
||||
что бы вывести все чётные или нечётные
добавишь условие отбора: например все чётные Код:
if i2 mod 2=0 then begin |
#4
|
||||
|
||||
Цитата:
"if" в цикле да еще и "мод" туда же? Если N1-четное (нечетное), то N2=N1+2 будет четным(нечетным). Соответственно, находим первое четное(нечетное) число диапазона, и добавляем ему 2, пока не дойдем до конца диапазона . Последний раз редактировалось Konrad, 30.10.2010 в 22:21. |
#5
|
||||
|
||||
ну да))) извените так проще как написал Konrad
|
#6
|
||||
|
||||
Где-то так:
PHP код:
300-е сообщение Последний раз редактировалось Konrad, 30.10.2010 в 23:24. |
#7
|
|||
|
|||
Спасибо большое, но я вчера посидел и додумался как сделать)))
PHP код:
Но есть еще 1 вопросик Как написать подпрограмму которая работает как функция TrimLeft? Последний раз редактировалось frostikit, 31.10.2010 в 11:21. |
#8
|
|||
|
|||
TrimLeft отрезает все пробелы (и непечатные символы) в начале строки.
Т.е. задача найти первый не пробел и с этого места скопировать. Код:
function TrimLeft(S : String) : String; var I, Idx : Integer; begin Result := ''; If S <> '' Then Begin Idx := 0; For I := 1 To Length(S) Do If S[i] > #32 Then Begin Idx := I; Break; End; If Idx > 0 Then Result := Copy(S,Idx,Length(S)); End; End; |
#9
|
|||
|
|||
Все понятно, только что такое #32?
Последний раз редактировалось frostikit, 31.10.2010 в 16:28. |
#10
|
||||
|
||||
знак пробела
|
#11
|
|||
|
|||
Всем спасибо за помощь
|