Курсовая: Условный оператор - текст курсовой. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Курсовая

Условный оператор

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Курсовая работа
Язык курсовой: Русский
Дата добавления:   
 
Скачать
Архив Zip, 64 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной курсовой работы

Узнайте стоимость написания уникальной работы

21 Министерство О бразования и науки Республики Казахс тан Прикаспийский Современный Колледж 3707002 « Информационные системы» Курсовая рабо та Тема: «Условный оператор» Предмет: «Программирование» Выполнил: Каунов Константин студент 3 курса группы «Информационные системы»55.34. Руководитель: Научный руководитель Старший преподватель кафедры КИВТ АГУ Им . Х.Д осмухамед ова Ишутина И . Р . Атырау 2007 Введение ……………………………………………………………………3 Глава 1. Условны й оператор и его виды …………………………… .. 1.1 Блок схема и з апись на алгоритмическом языке условного оператора (примеры) ……………………………………… …. 1.2 Пример программировани я с использо ванием условным оператора ……………………………………………………… Глава 2 Создание программы диалога с использованием условного о ператора ………………………………………………………….. Введение Паскаль – язык профессионального программирования, который назван в честь франц узского математика и философа Блеза Паскаля (1623– 1662) и разработан в 1968– 1971 гг. Никол аусом Виртом, для обучения студентов методам разра ботки программ, таким как "программирование сверху вниз", "структурное пр ограммирование" и т. д. Вирту не понравился не один из существующих на тот момент языков, и в 1968 году он приступил к разработке своего собственного. Первая версия языка была создана для компьютера CDC 6000. Благодаря своей четкости, логичности и другим особенностям Паскаль над олго занял свою нишу, являясь прекрасным языком для обучения программир ованию. Паскаль использовался и для разработки серьезных программ- прил ожений. Шутили, что Вирт разработал игрушку, но многие отнеслись к ней сли шком серьезно Впоследст вии появились различные версии языка и его расширения. Наиболее известн ым расширением стал пакет Турбо Паскаль фирмы Borland, появившийся в 1983 году и с разу ставший событием в мире компьютерных технологий. Турбо Паскаль – это система программирования, созданная для повышения качества и скорости разработки программ (80-е гг.). Слово Турбо в названии си стемы программирования – это отражение торговой марки фирмы-разработ чика Borland International (США). Систему программирования Турбо Паскаль называют интегрированной ( integration – объединение отдельных элементов в единое целое) средой программи рования, т.к. она включает в себя редактор, компилятор, отладчик, имеет сер висные возможности. Первое упом инание о нем содержалось в рекламе опубликованной в журнале Byte, а сам паке т предназначен для операционной системы CP/M. В начале 1984 года он был перенес ен в среду MS-DOS и приобрел огромную популярность. С тех пор появилось нескол ько версий Т у рбо Паскаля , последняя- седьмая. Программы на языке Паскаль имеют блочную структуру: 1) Блок типа PROGRAM – имеет имя, состоящее только из латинских букв и цифр. Его п рисутствие не обязательно, но рекомендуется записывать для быстрого ра спознавания нужной программы среди других листингов. 2) Программный блок, состоящий в общем случае из 7 разделов: • раздел описания модулей (uses); • раздел оп исания меток (label); • раздел описания констант (const); • раздел описания типов данных (type); • раздел описания переменных (var); • раздел описания процедур и функций; • раздел описания операторов. Общая стр уктура программы на языке Паскаль следующая: Рrogram ИМЯ ..; заголовок программы Uses ...; раздел описания модулей Var ..; раздел объявления переменных ... Begin начало исполнительной части программы ... последовательность ... операторов End. конец программы Глава 1 Условный оператор полная и неполная развилка оп ератор выбора. На практике решение большинства задач не удается описать с помощью программ линейн ой структуры. При этом после проверки некоторого условия выполняется та или иная последовательность операторов, однако происходит нарушение е стественного порядка выполнения операторов. Для этих целей используют управляющие операторы. Условный оператор используется для реализации разветвлений в программе, которые происходят при выполнении некоторог о условия и имеет следующую структуру IF <логическое выражение> THEN серия1 ELSE серия2; Если логическое выражение, выступающее в качестве условия, принимает зн ачение False, то выполняются операторы, расположенные после else (серия2), если True, — операторы, следующие за then. При записи логического выражения следует и збегать знака = (равно) для действительных переменных, так как они предста вляются неточно, а поэтому может не произойти совпадений значений выраж ений, стоящих слева и справа от знака равно. Для устранения указанного не достатка следует требовать выполнения условия с заданной точностью, т.е . вместо отношения X = Y рекомендуется, например, Abs(X - Y) < 1E-8. Поскольку развилка может быть неполной, то возможна и неполная форма зап иси условного оператора: IF <логическое выражение> THEN серия; Условный оператор реализует разветвление вычислительного процесса по двум направлениям, одно из которых осуществляется при выполнении услов ия, другое— в противном случае. Для реализации разветвлений более чем п о двум направлениям необходимо использовать несколько условных операт оров. Рассмотрим примеры. Задача 1. Даны действительн ые числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; есл и отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не принадлежит отрезку [0,5; 2,0], то об а значения уменьшить в 10 раз; в остальных случаях x и y оставить без изменени я. Разработаем алгоритм решения задачи, после чего напишем программу. Алгоритм запишем словесно: 1) ввести значения x, y; 2) если x<0 и y<0, найти их модули и перейти к п. 5, иначе перейти к следующему пункт у; 3) если x<0 или y<0, увеличить каждую величину на 0,5 и перейти к п. 5, иначе перейти к следующему пункту; 4) если ни x, ни y не принадлежат отрезку [0,5; 2,0], уменьшить их в 10 раз; 5) вывести значения x и y; 6) конец . Program Usl; Var X, Y : Real; Begin Write('Введите два действительных числа '); ReadLn(X, Y); If (X < 0) AND (Y < 0) THEN Begin X = ABS(X); Y = ABS(Y) End ELSE IF (X < 0) OR (Y < 0) THEN Begin X = X + 0.5; Y = Y + 0.5 End ELSE IF NOT (((X >= 0.5) AND (X <= 2)) OR ((Y >= 0.5) AND (Y <= 2))) THEN Begin X = X / 10; Y = Y / 10 End; WriteLn(' Результат :'); WriteLn('X= ', X:10:6); WriteLn('Y= ', Y:10:6) END. Задача 2. Дано действительное число a. Вычислить f(a), если Program Usl1; Var A, F : Real; Begin WriteLn('Введите действительное число: '); ReadLn(A); IF A <= 0 THEN F = 0 ELSE IF A <= 1 THEN F = Sqr(A) - A ELSE F = Sqr(A) - SIN(Pi * Sqr(A)); WriteLn('Значение функции F(x) при x = ', A:10:6, ' равно ', F:10:6); END. Кроме условного оператора в качестве управляющей структуры довольно ч асто используется оператор выбора CASE. Эта структура позволяет переходит ь на одну из ветвей в зависимости от значения заданного выражения (селек тора выбора). Ее особенность состоит в том, что выбор решения здесь осущес твляется не в зависимости от истинности или ложности условия, а является вычислимым. Оператор выбора позволяет заменить несколько операторов р азвилки (в силу этого его ещё называют оператором множественного ветвле ния). В конструкции CASE вычисляется выражение K и выбирается ветвь, значение мет ки которой совпадает со значением K. После выполнения выбранной ветви пр оисходит выход из конструкции CASE. Если в последовательности нет метки со значением, равным K, то управление передается внешнему оператору, следую щему за конструкцией CASE (в случае отсутствия альтернативы ELSE; если она есть, то выполняется следующий за ней оператор, а уже затем управление передае тся внешнему оператору). Запись оператора выбора CASE K OF A1 : серия 1; A2 : серия 2; ... AN : серия N ELSE серия N + 1 END; Любая из указанных серий операторов может состоять как из единственног о оператора, так и нескольких (в этом случае, как обычно, операторы, относя щиеся к одной метке, должны быть заключены в операторные скобки begin..end). Выражение K здесь может быть любого порядкового типа (напомним, что к таки м типам относятся все целые типы, Boolean, Char, перечисляемый тип, диапазонный тип , базирующийся на любом из указанных выше типов). Задача 1. В старояпонском календаре был принят двенадцатилетний цикл. Го ды внутри цикла носили названия животных: крысы, коровы, тигра, зайца, драк она, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать програм му, которая позволяет ввести номер года и печатает его название по старо японскому календарю. Справка: 1996г.— год крысы— начало очередного цикла. Поскольку цикл является двенадцатилетним, поставим название года в соо тветствие остатку от деления номера этого года на 12. Program Goroskop; Var Year : Integer; Begin Write(' Введите год '); ReadLn(Year); CASE Year MOD 12 OF 0 : WriteLn(' Год Обезьяны '); 1 : WriteLn('Год Петуха'); 2 : WriteLn('Год Собаки'); 3 : WriteLn('Год Свиньи'); 4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год Тигра'); 7 : WriteLn('Год Зайца'); 8 : WriteLn('Год Дракона'); 9 : WriteLn('Год Змеи'); 10 : WriteLn('Год Лошади'); 11 : WriteLn(' Год Овцы ') END; END. Задача 2. Найти наибольшее из двух действительных ч исел, используя условный оператор. Program Maximum; Var Max, X, Y : Real; Begin Write('Введите два неравных числа:'); ReadLn(X, Y); if X > Y then Max := X else Max := Y ; End; WriteLn('Максимальное из двух есть ', Max : 12 : 6) End. Задача 3. Преобразовать символ, если он является строчной русской буквой, в заглавную букву. Так как в альтернативной системе кодировки ASCII строчные русские буквы иду т не подряд, а с некоторым разрывом, то в данном случае, в зависимости от то го, в какую часть таблицы попадает введенная буква, используется та или и ная формула. Если введённый символ не является строчной русской буквой, он выводится без изменения. Program UpCase; Var C : Char; Begin Write('Введите символ:'); ReadLn(C); Case C Of ' а '..' п ' : C := Chr(Ord(C) - 32); ' р '..' я ' : C := Chr(Ord(C) - 80) End; WriteLn(C); End. Как видно из примера, в качестве метки может выступать не только отдельн ое значение, но и диапазон значений. Кроме того, в качестве метки может выс тупать перечень значений выражения (значения перечисляются через запя тую). Контрольные вопросы и задания Когда возникает необходимость в организации развилки? Какая развилка называется полной? неполной? Выражение какого типа может выступать в качестве условия при организац ии развилки? Какие значения принимают такие выражения? Могут ли в полной развилке не выполниться операторы ни по одной из ветве й? выполниться по обеим ветвям? Записать примеры 1-3 по теме "Оператор выбора" с помощью условного оператор а. Сколько развилок понадобилось в каждом из случаев? В каком случае целесообразно использовать оператор выбора? Какого типа может быть выражение, являющееся селектором выбора? Приведи те примеры. Используя оператор выбора решить задачу: "Определить знак заданного цел ого числа". Приведите пример оператора выбора, где выражение-селектор выбора имеет перечислимый тип Условный оператор Начало ф ормы например, forex Конец формы Вернемся к рассмотрению нашего первого советника и расскажу об условном операторе if-else, который я использовал в функции init(). int init() //---- if (iMA(NULL, 0, MAPeriod, 0, MODE_EMA, PRICE_CLOSE, 0) > Close[0]) CurrentState = STATE_SHORT; else CurrentState = STATE_LONG; MyOrderTicket = 0; //---- return(0); Формат условного оператора if-else: if (выражение) первы й_оператор else второй_оператор Принцип работы оператора: вычисляется значение вы ражения в скобках; если оно равно true, то выполняется «первый_оператор», в п ротивном случае — «второй_оператор». В нашем первом эксперте в функции init() есть такая строчка: if (iMA(NULL, 0, MAPeriod, 0, MODE_EMA, PRICE_CLOSE, 0) > Close[0]) CurrentState = STATE_SHORT; else CurrentState = STATE_LONG; В этой стр очке вычисляется выражение iMA(NULL, 0, MAPeriod, 0, MODE_EMA, PRICE_CLOSE, 0) > Close[0]. Забега я вперед, скажу, что в этом выражении сравнивается значение экспоненциа льной скользящей средней по цене закрытия с периодом, определенным вне шней переменной MAPeriod, и цена закрытия текущего бара ( Close[0] ). Если значение скользяйшей средней больше цены закрытия, то выполняется первый оператор: CurrentState = STATE_SHORT; Если — меньше , т о второй : CurrentState = STATE_LONG; Если в качестве оператора есть необходимость выпо лнить сразу несколько операторов, то можно использовать составной опер атор, т.е. заключить в фигурные скобки необходимые нам операторы. При этом после закрывающей фигурной скобки точка с запятой уже не ставится. Пример использования составного оператора можно найти и в нашем экспер те: if (!IsTesting()) return(MarketInfo(s, MODE_LOTSIZE)*MarketInfo(StringSubstr(s, 0, 3)+"USD", MODE_BID)/AccountLeverage()); else p = iClose(StringSubstr(s, 0, 3)+"USD", Period(), iBarShift(StringSubstr(s, 0, 3)+"USD", Period(), CurTime(), true)); return(MarketInfo(s, MODE_LOTSIZE)*p/AccountLeverage()); Если у нас нет необходимости в выполнении второго оператора (в случае, если выражение в круглых скобках не равно true), то част ь else можно опустить: if (выражение) первы й_оператор Пример из нашего эксперта: if (s == "CHFJPY") p = iClose("USDCHF", Period(), iBarShift("USDCHF", Period(), CurTime(), true)); return(MarketInfo(s, MODE_LOTSIZE)/(AccountLeverage()*p)); Если несколько операторов if-else вложены друг в друга, а часть операторов имеет пропущенную часть else, то else всегда связывается с ближайшим предыдущим оператором if в том же блоке, не имеющим части else. Обычно операторы в коде эксперта выполняются последовательно — один з а другим. Однако часто требуется изменить последовательность их выполн ения в зависимости от каких-то условий. В этом выпуске я рассмотрел один из способов изменения этой последовательности: условный оператор if-else . Условный оператор в стандарт ной форме состоит из условия (логического выражени я) и двух последовательностей операторов, размещенных после символа then и после символа else. Действие всего такого условного оператора совпадает (ес ли при вычислении условия не возникают побочные эффекты, или ,что тоже, са мое изменения в состоянии памяти) с действием одной из двух составляющих его последовательностей операторов, выбор которой для исполнения осущ ествляется по значению условия, вычисление которого начинает выполнен ие условного оператора. Условный оператор назначает к исполнению перву ю последовательность операторов (он стоит непосредственно после симво ла then), если на текущем состоянии памяти ВМ условие принимает истинное зна чение, либо вторую последовательность операторов (она находится за симв олом else), если условие ложно. Рис. Пример б лок-схемы Например, ус ловный оператор if X Y then Z := X else Z := Y end прис ваивает переменной максимальное из значений переменных и и описывается блок-схемой Рассмотрим з адачу вычисления корней уравнения , заданного ко эффициентами , и . Предположим, что a и что корни де йствительны. Тогда возможным решением является следующая программа, ис пользующая правила Виета: module Корни 3; var A,B,C,X1,X2,D,E : Real; begin read(A,B,C); D := sqrt(Sqr(B) - 4 A C); if B>= 0 then X1 := -(B+D)/(2 A) else X1 := (-B+D)/(2 A) end ; X2 := C/(X1 A); write(X1,X2) end Корни 3. Предусматри вается возможность сокращенной записи вложенности одного условного оп ератора в другой. Например , оператор if E1 then S1 else if E2 then S2 else S3 end end, где E1, E2, E3 - произвольные последовательности оператор ов, можно записать в виде if E1 then S1 elsif E2 then S2 else S3 end. В этом случает говорят, что условный оператор содер жит не одну, а две охраняемые последовательности операторов (E1и E2), первая и з которых охраняется выражением E1, а вторая - выражением E2. Действие всего такого условного оператора совпадает (если при вычислении условия не во зникают побочные эффекты, или ,что тоже, самое изменения в состоянии памя ти -- см. п. 6.1.5) с действием одной из трех составляющих его последовательност ей операторов, выбор которой для исполнения осуществляется по значению условий E1и E2, вычисление которых происходит, начиная с E1. Условный операто р назначает к исполнению первую последовательность операторов S1, если н а текущем состоянии памяти ВМ условие E1 принимает истинное значение, вто рую последовательность операторов S2, если условие E1 ложно, а E2 истинно, и тр етью последовательность S3, если условия E1и E2 ложны. Например, программа распознавания -- равно ли данное натуральное число н екоторому нечетному числу, умноженному на два (печатает "ДА", если ответ по ложительный, и "НЕТ" -- в противном случае) -- может иметь следующий вид: Module Проверка ; var N : integer; begin read(N); if odd(N) then write(' НЕТ ') elsif N m od 4# 0 then write (' ДА ') else write (' НЕТ ') end end Проверка . Глава 1.1 : Запись на алгоритме язык а условного оператора (Примеры). Рассмотрим примеры. Задача 1. Даны действительные числа x , y . Если x и y отрицательны, то каждое значе ние заменить модулем; если отрицательно только одно из них, то оба значен ия увеличить на 0,5; если оба значения неотрицательны и ни одно из них не при надлежит отрезку [0,5; 2,0], то оба значения уменьшить в 10 раз; в остальных случая х x и y оставить без изменения. Разработаем алгоритм решения задачи, после чего напишем программу. Алгоритм запишем словесно: 1) ввести значения x, y; 2) если x<0 и y<0, найти их модули и перейти к п. 5, иначе перейти к следующему пункт у; 3) если x<0 или y<0, увеличить каждую величину на 0,5 и перейти к п. 5, иначе перейти к следующему пункту; 4) если ни x, ни y не принадлежат отрезку [0,5; 2,0], уменьшить их в 10 раз; 5) вывести значения x и y; 6) конец . Program Usl; Var X, Y : Real; Begin Write('Введите два действительных числа '); ReadLn(X, Y); If (X < 0) AND (Y < 0) THEN Begin X = ABS(X); Y = ABS(Y) End ELSE IF (X < 0) OR (Y < 0) THEN Begin X = X + 0.5; Y = Y + 0.5 End ELSE IF NOT (((X >= 0.5) AND (X <= 2)) OR ((Y >= 0.5) AND (Y <= 2))) THEN Begin X = X / 10; Y = Y / 10 End; WriteLn(' Результат :'); WriteLn('X= ', X:10:6); WriteLn('Y= ', Y:10:6) END. Задача 2. Дано действительное число a . Вычислить f(a) , если Program Usl1; Var A, F : Real; Begin WriteLn('Введите действительное число: '); ReadLn(A); IF A <= 0 THEN F = 0 ELSE IF A <= 1 THEN F = Sqr(A) - A ELSE F = Sqr(A) - SIN(Pi * Sqr(A)); WriteLn('Значение функции F(x) при x = ', A:10:6, ' равно ', F:10:6); END. Кроме условн ого оператора в качестве управляющей структуры довольно часто использ уется оператор выбора CASE. Эта структура позволяет переходить на одну из в етвей в зависимости от значения заданного выражения (селектора выбора). Ее особенность состоит в том, что выбор решения здесь осуществляется не в зависимости от истинности или ложности условия, а является вычислимым . Оператор выбора позволяет заменить несколько операторов развилки (в си лу этого его ещё называют оператором множественного ветвления). В конструкции CASE вычисляется выражение K и выбирается ветвь, значение метки которой совпадает со значе нием K . После выполнения выбра нной ветви происходит выход из конструкции CASE. Если в последовательности нет метки со значением, равным K , то управление передается внешнему оператору, следующему за к онструкцией CASE (в случае отсутствия альтернативы ELSE; если она есть, то выпол няется следующий за ней оператор, а уже затем управление передается внеш нему оператору). Запись оператора выбора CASE K OF A1 : серия 1; A2 : серия 2; ... AN : серия N ELSE серия N + 1 END; Любая из указ анных серий операторов может состоять как из единственного оператора, т ак и нескольких (в этом случае, как обычно, операторы, относящиеся к одной метке, должны быть заключены в операторные скобки begin..end). Выражение K здесь может быть л юбого порядкового типа (напомним, что к таким типам относятся все целые т ипы, Boolean, Char, перечисляемый тип, диапазонный тип, базирующийся на любом из ука занных выше типов). Задача 1. В старояпонском календаре был принят двенадцатилетний цикл. Го ды внутри цикла носили названия животных: крысы, коровы, тигра, зайца, драк она, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать програм му, которая позволяет ввести номер года и печатает его название по старо японскому календарю. Справка: 1996 г. — год крысы — начало очередного цикла. Поскольку цикл является двенадцатилетним, поставим название года в соо тветствие остатку от деления номера этого года на 12. Program Goroskop; Var Year : Integer; Begin Write(' Введите год '); ReadLn(Year); CASE Year MOD 12 OF 0 : WriteLn(' Год Обезьяны '); 1 : WriteLn('Год Петуха'); 2 : WriteLn('Год Собаки'); 3 : WriteLn('Год Свиньи'); 4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год Тигра'); 7 : WriteLn('Год Зайца'); 8 : WriteLn('Год Дракона'); 9 : WriteLn('Год Змеи'); 10 : WriteLn('Год Лошади'); 11 : WriteLn(' Год Овцы ') END; END. Задача 2. Най ти наибольшее из двух действительных чисел, используя оператор выбора. Program Maximum; Var Max, X, Y : Real; Begin Write('Введите два неравных числа:'); ReadLn(X, Y); Case X > Y Of TRUE : Max := X; FALSE : Max := Y End; WriteLn('Максимальное из двух есть ', Max : 12 : 6) End. Задача 3. Прео бразовать символ, если он является строчной русской буквой, в заглавную букву. Так как в альтернативной системе кодировки ASCII строчные русские буквы иду т не подряд, а с некоторым разрывом, то в данном случае, в зависимости от то го, в какую часть таблицы попадает введенная буква, используется та или и ная формула. Если введённый символ не является строчной русской буквой, он выводится без изменения. Program UpCase; Var C : Char; Begin Write('Введите символ:'); ReadLn(C); Case C Of ' а '..' п ' : C := Chr(Ord(C) - 32); ' р '..' я ' : C := Chr(Ord(C) - 80) End; WriteLn(C); End. Как видно из п римера, в качестве метки может выступать не только отдельное значение, н о и диапазон значений. Кроме того, в качестве метки может выступать переч ень значений выражения (значения перечисляются через запятую). Глав1.2: Пример программы с использованием условн ого оператор а. Операторы отношений сравнива ют два значения, возвращая в результате булевское значение True или False. В Паск але реализуются операторы: > – больше , чем; >= – больше, или равно; < – меньше, = – равно; <= – меньше, чем или равно; <> – не равно; in – является элементом. Общий форма т условного оператора: if < условие > then < оператор1 > else < оператор2 > где < условие > – любое булевское выражение (вырабатывающее в результате True и ли False); < оператор1 > и < оператор2 > – операторы Паскаля. Если выра жение принимает значение True, то выполняется < операт ор1 >; в противном случае – < опе ратор2 > . Например : if a > b then max := a else max := b; Два важных момента, на которые следует обратить вним ание при использовании if/then/else. Во-первых, оператор else не является обязательн ым, другими словами, допустимо использовать оператор if в следующем виде: if выражение then оператор 1 В этом случае оператор 1 выполняется только тогда, ко гда выражение имеет значение True. В противном случае пропускается оператор 1 и выполняется следующий оп ератор. Во-вторых, если необходимо выполнить более одного оператора, в сл учае, когда выражение принимает значение, True или False, то следует использоват ь составной оператор. Составной оператор – это последовательность про извольных операторов программы, заключённая в операторные скобки – за резервированные слова begin ... end. Например: if B = 0 then Writeln('Деление на нуль невозможно .') else begin Ratio := A div B; Writeln('Отношение =', Ratio) end; В Паскале есть четыре логичес ких оператора – and, xor, or, not . Эти логические операторы раб отают с логическими значениями (True и False), позволяя комбинировать выражения отношений, булевские переменные и булевские выражения. Например : if (a > b) and (a = 0) then writeln('a = ", a); if (a > b) and (a = 0) then writeln('a = ", a); Глава 2:Создать программу диалога с использованием у словного оператора. Программа 1 Программа 2 Вычислить: Алгоритм в виде диаграммы действий Текст программы Program prg2; var http://nataliya.kiev.ua x,z:real; begin write('x='); readln(x); if x<=0 then z:=sqr(x)*x else if x<4 then z:=4-sqr(x) else z:=1; writeln('z=',z:0:3); readln; end. Результ ат работы программы x=2 z=0.000 x=3 z=-5.000 x=9 z=1.000 x=0 z=0.000 x=-3 z=-27.000 Теория к программе Условные операторы Оператор IF Общий вид: IF <в ыражение V> THEN <оператор S1> [ELSE <оператор S2>]; Где: V - выражение логического типа (условие, за которым выпо лняется оператор S1 или S2). S1,S2 - один простой оператор (может быть составным). Вложенный оператор IF Условный оператор if может содержать в свою очередь также оператор if, например: IF V1 THEN IF V2 THEN S1 ELSE S2 Для избежания ошибки лучше использовать опер аторные скобки: IF V1 THEN BEGIN IF V2 THEN S1 ELSE S2 END; Опе ратор выбора CASE Использу ется в том случае, если переменная может принимать ряд дискретных значен ий. Общий вид оператора: CASE OF <значение K1 или список значений K1>: S1 <значение K2 или список зн ачений K2>: S2 . . <значение KN или список значений N>: SN [ELSE SN+1] END; Где: K - выражение или переменная перечислимого типа; S1 .. SN+1 - о ператоры, которые используются в том случае, если выражение или переменн ая K приобретает соответствующее значение. Они могут быть составными.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Если у вас железный организм, четкая программа действий и ясная цель, то вы - ... межконтинентальная баллистическая ракета.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, курсовая по программированию "Условный оператор", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru