50881

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

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

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

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

Русский

2014-02-01

796.5 KB

7 чел.

Лабораторная работа №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.  

 

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

41357. Изучение зеркального гальванометра 208.5 KB
  Изучение зеркального гальванометра Изучение внутреннего сопротивления. r – внутреннее сопротивление гальванометра. Если при изменении положения ключа l показания гальванометра не меняются значит через отрезок B ток не течёт  потенциалы в точках А и В равны этого можно достичь меняя сопротивление R  R = r. Определение средней чувствительности гальванометра.
41358. Измерение сопротивления гальванометра 188 KB
  Цель работы: Определение внутреннего сопротивления гальванометра. Определение средней чувствительности и градуирование гальванометра. Измерение сопротивления гальванометра. =1ом ом ом 10000 500 10600 450 11200 400 11800 350 12600 300 I – сила тока в цепи гальванометра эдс источника питания 2В r сопротивление гальванометра.
41359. Исследование магнитооптического зеркального гальванометра 500.5 KB
  Лабораторная работа №138 Исследование магнитооптического зеркального гальванометра . Измерение сопротивления гальванометра. На схеме: При R=R получаем RG=R если при замыкании и размыкании ключа показания гальванометра не меняются. Определение средней чувствительности и градуировка гальванометра.
41361. Работа ионизационного манометра 266 KB
  Цель работы: Изучить работу ионизационного манометра зависимость ионного тока от изменения различных параметров ток накала напряжение на сетке между катодом и анодом. Таблица зависимости ионного тока от тока накала. мА 300В 50В 260В 50В 300В 33В 29 665 650 651 28 655 642 649 20 631 635 632 18 628 630 628 14 620 622 622 9 609 615 609 5 590 596 589 0 540 540 522 Таблица зависимости ионного тока от напряжения между катодом и анодом . 13 33В 12 50В 13 50В 75 30 5 70 30 65 29 45 28 60 28 ...
41362. Изучение работы форвакуумного насоса 99.5 KB
  Цель работы: определить предельный вакуум и скорость откачки ротационного насоса. Форвакуумная установка: где Б1 – баллон; Б2 – калибровочный баллон (Vк = 2,4 л.); К1 – К7 – краны; РМ – разница давлений (мм.масл.ст.). Для нахождения объема установки используем следующую формулу:
41363. Градуирование электроизмерительных приборов с помощью потенциометра собранного из двух магазинов сопроти 159 KB
  Градуирование электроизмерительных приборов с помощью потенциометра собранного из двух магазинов сопротивления Приборы приспособления: вольтметр магазины сопротивлений – нормальный элемент – реостаты ключи– гальванометр батарея вольтметр.
41364. Определение эдс в термопаре 200.5 KB
  Схема для измерения малых эдс: где g – гальванометр класс точности 05; АВ – реохорд rАВ = 12  01 Ом lАВ = 1 м.; 1 – источник тока для реохорда 15 В; Э – эталонная эдс элемент Вестона 101795 В; х – измеряемая эдс; r1 – реостат для регулировки цены деления реохорда; r2 – сопротивление; r3 – реостат; М1 – опорный спай термопары 00С; М2 – рабочий спай термопары.