50881

Программирование в Delphi. Разработка программ с ветвлением

Лабораторная работа

Информатика, кибернетика и программирование

Например: Величина сопротивления равна нулю Ответ правильный Сумма покупки больше 300 рублей В программе условие это выражение логического типа Boolen которое может принимать одно из двух значений: True истина или Flse ложь. Операторы сравнения Оператор Описание Результат сравнения Больше True если первый операнд больше второго иначе Flse Меньше True если первый операнд меньше второго иначе Flse = Равно True если первый операнд равен второму иначе Flse Не равно True если первый операнд не равен второму иначе Flse =...

Русский

2014-02-01

796.5 KB

9 чел.

Лабораторная работа №3

Основы объектно-ориентированного программирования в визуальной среде программирования Delphi.

Тема: Программирование  в Delphi. Разработка программ с ветвлением.

Цель: Продолжить формировать навыки работы в визуальной среде программирования Delphi. Усвоить и отработать применение условного оператора IF и Case.

Теоретические сведения

На практике редко встречаются задачи, алгоритм решения которых является линейным. Часто оказывается, что алгоритм решения даже элементарной задачи не является линейным.

Точки алгоритма, в которых выполняется выбор дальнейшего хода программы, называются точками выбора. Выбор очередного шага решения задачи осуществляется в зависимости от выполнения некоторого условия.

В повседневной жизни условие обычно формулируется в виде вопроса, на который можно ответить Да или Нет. Например:

  •  Величина сопротивления равна нулю?
  •  Ответ правильный?
  •  Сумма покупки больше 300 рублей?

В программе условие — это выражение логического типа (Boolean), которое может принимать одно из двух значений: True (истина) или False (ложь).

Простое условие состоит из двух операндов и оператора сравнения. В общем виде условие записывается следующим образом:

Оn1 Оператор On2, где:

  •  On1 и Оп2 — операнды условия, в качестве которых может выступать переменная, константа, функция или выражение;
  •  Оператор — оператор сравнения.

В языке Delphi есть шесть операторов сравнения, которые приведены в табл. 1.

Таблица 1. Операторы сравнения

Оператор

Описание

Результат сравнения

>

Больше

True, если первый операнд больше второго, иначе False

<

Меньше

True, если первый операнд меньше второго, иначе False

=

Равно

True, если первый операнд равен второму, иначе  False

<>

Не равно

True, если первый операнд не равен второму, иначе False

>=

Больше или равно

True, если первый операнд больше или равен второму, иначе False

<=

Меньше или равно

True, если первый операнд меньше или равен второму, иначе False

Из простых условий при помощи логических операторов: and — "логическое И", or -- "логическое ИЛИ" и not - "отрицание" можно строить сложные условия.

В общем виде сложное условие записывается следующим образом:

условие1 оператор условие2, где:

  •  условие1 и условие2 — простые условия (выражения логического типа);
  •  оператор — оператор and или or.

Таблица 2. Выполнение логических операций

Op1

Op2

Opt and Op2

Op1 or Op2

not Op1

False

False

False

False

True

False

True

False

True

True

True

False

False

True

False

True

True

True

True

False

При записи сложных условий важно учитывать то, что логические операторы имеют более высокий приоритет, чем операторы сравнения, и поэтому простые условия следует заключать в скобки.

В общем виде инструкция if записывается так:

if условие then

begin

// здесь инструкции, которые надо выполнить,

// если условие истинно.

end

else

begin

// здесь инструкции, которые надо выполнить, // если условие ложно. end;

Обратите внимание, что перед else (после end) точка с запятой не ставится.

Порядок выполнения работы

  1.  Загружаем среду программирования Delphi. Пуск ПрограммыBorland DelphiDelphi 7.
  2.  Создадим форму   

  1.  Составляем  блок-схему и программу решения задачи
  2.  Задание №1 Вычислить значение функции

 

Задание №2 Вычислить значение функции

  1.  

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  

Задание №3 Вычислить значение функции

  1.  

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  

Контрольные вопросы

  1.  Как переводится на русский язык IF?
  2.  Как переводится на русский язык Then?
  3.  Как переводится на русский язык Else?
  4.  Что значит составные условия?
  5.  Как можно очистить поле ввода и область просмотра?
  6.  Приведите синтаксис и опишите действия выполняемые оператором IF?


procedure TForm1.Button2Click(Sender: TObject);

var

x,f:real;

begin

  x:=StrToFloat(Edit1.Text);

  if x=9 Then

  ShowMessage('деление на 0')

  Else

  Begin

     f:=(6*x*x-7)/(9+x);

     Edit2.Text:=FloatToStr(f);

   End;

   Edit2.Text:='';

End;

end.

начало

Ввод х

9-x=0

Деление на 0

да

нет

f

конец

  1.  

 

А также другие работы, которые могут Вас заинтересовать

80559. Місцеві податки і збори. Спрощена система оподаткування 160 KB
  Особливості їх стягнення і впливу на фінансовогосподарську діяльність субєктів господарювання полягають у такому: Місцеві податки і збори включають до складу валових витрат що вираховуються зі скоригованого валового доходу а отже зменшують суму оподатковуваного прибутку. Місцеві податки і збори субєкти господарювання відносятьна собівартість продукції робіт послуг що впливає на формування бухгалтерського прибутку. Платниками цього податку є субєкти підприємницької діяльності їхні філії відділення представництва постійні...
80560. Визначення потреби в оборотних коштах 42.5 KB
  Нормування незавершеного виробництва і готової продукції. Аналогічно нормується запас палива за видами на виробничі і невиробничі цілі норматив на тару з урахуванням часу виготовлення або транспортування прошивки та інших стадій підготовки до запакування продукції. Усі витрати на початі але незавершені вироби у цехах майстернях інших виробничих приміщеннях після видачі зі складу матеріалів до моменту передачі продукції на склад визначаються вартістю незавершеного виробництва. Нароматив незавершеного виробинцтва залежить від: обсягу і...
80561. Використання і контроль обігового капіталу 72 KB
  Ефективність використання оборотного капітал може бути досягнення шляхом прискорення їх обертання. Шляхи прискорення обігу оборотних активів для вивільнення оборотних коштів
80562. Банківське кредитування підприємств 165.5 KB
  Слово «кредит» походить від латинського, що означає борг, позика. В сучасному понятті кредит - це капітал, який береться під позику у вигляді грошової форми і надається в тимчасове використання госпорганам на умовах забезпеченості, повернення, терміновості, оплати та цільового використання.
80563. Небанківське і міжнародне кредитування підприємств 280 KB
  Комерційний кредит — це одна з найперших форм кредитних відносин в економіці, саме він породив вексельний обіг і тим самим сприяв розвитку безготівкового грошового обігу. Основна мета комерційного кредиту — прискорення процесу реалізації товарів і отримання закладеного в них прибутку.
80564. Фінансове забезпечення інвестиційної діяльності 104 KB
  Згідно закону України Про інвестиційну діяльність інвестиції усі види майнових та інтелектуальних цінностей що вкладаються в обєкти підприємницької та фінансової діяльності в результаті чого створюється прибуток або досягається соціальний ефект. інвестиції це вкладення капіталу в обєкти підприємницької діяльності з метою забезпечення його зростання у майбутньому. Інвестиції розрізняють за видами. Фінансові інвестиції це активи які утримує підприємство з метою отримання прибутку за рахунок відсотків дивідендів зростання вартості...
80565. Оцінка ефективності інвестицій 180 KB
  Ефективність дохідність довготермінових облігацій може бути виміряна у вигляді: купонної дохідності норма відсотка облігації; ставки розміщення річної ставки складних відсотків. Ставка розміщення найбільш точно характеризує реальну фінансову ефективність облігації враховуючи всі види доходів від неї. Отже завдання вимірювання фінансової ефективності облігації зводиться до обчислення ставки розміщення у вигляді річної ставки складних відсотків. Нарахування відсотків за цією ставкою на ціну придбання облігації яка може відрізнятись від...
80566. Особливості фінансів малого бізнесу 232 KB
  Малий бізнес є найбільш поширеним сектором економіки. Відмінності між цими трьома видами бізнесу обумовлені різним рівнем суспільного поділу праці, характером спеціалізації га усуспільнення виробництва, а також вибором технологічного типу виробничого процесу.