Крипто-форум crprogram.16mb.com

Програмування на Object Pascal, Lazarus, криптографія, криптоаналіз, шифри, вихідні коди, вирішення задач, приклади програм

Часовий пояс: UTC десь + 2 години




Розпочати нову тему Відповісти  [ 6 повідомлень ] 
Автор Повідомлення
 Заголовок повідомлення: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Умовним оператором Deplhi є

Код:
if then

Якщо (умова) то (дія)

Код:
if then else

Якщо (умова) то (дія 1) інакше (дія 2).

Існує декілька способів реалізації циклів.
Найпростіший:
Код:
for to do

Для (змінна) до (значення) робити (дія).

Наприклад,

Код:
for i:=2 to 5 do
k:=k+1;

для і від 2 до 5 виконати дію.

Цикл буде повторений 4 рази для
і=2, і=3, і=4, і=5.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
цикл while має вигляд:
Код:
While {умова} do
   begin
      {дія}
   end;


цикл repeat має вигляд:
Код:
Repeat
{дія}
until {умова};


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 282
Приклад
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin

n:=0;

While n<10 do
   begin
      n:=n+1;
   end;

edit1.Text:=inttostr(n);

end;


Результат = 10.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 282
Приклад
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin

n:=0;

Repeat
n:=n+1;
until n>10;


edit1.Text:=inttostr(n);

end;

Результат = 11.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 1
Допоможіть будьласка скласти програму з розгалуження. Складену програму будьласка скіньте у ВК id80283643. Спасибі


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Цикли, умовні оператори.
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Hechqbfbf писал(а):
Допоможіть будьласка скласти програму з розгалуження. Складену програму будьласка скіньте у ВК id80283643. Спасибі


На форму кидаєте
два edit
одну кнопку button
одне memo

тоді
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.Text); //отримуємо перше число
b:=strtoint(edit2.Text); //отримуємо друге число

if a>b then
memo1.Lines.Add('a>b')
else
if a<b then
memo1.Lines.Add('a<b')
else
memo1.Lines.Add('a=b');

end;



(програма порівнює два числа і виводить результат).

Блок схема матиме вигляд:
Зображення


п.с.
у контакті я не зареєстрований, тому можете читати тут наш форум, без контакту.


Повернутися наверх
  
 
Показати повідомлення за:  Сортувати по:  
Розпочати нову тему Відповісти  [ 6 повідомлень ] 

Часовий пояс: UTC десь + 2 години



cron
Роwеrеd bу рhрВB® аnd Hostinger web hosting