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

Реферат

Ветвление в Паскале

Банк рефератов / Информатика, информационные технологии

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

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

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

Одной из основных алгоритмических структу р является ветвление (альтернатива). Если условие выполняется, то будет выполнен а инструкция "1", если нет, то - инструкция "2". Несмотря на то, что в схеме присут ствуют два действия, выполнено будет только одно, так как условие либо ло жно, либо истинно. Третьего не дано. Такая схема позволяет решать задачи, в которых в зависимости от сложившихся обстоятельств требуется соверши ть то или иное действие. Нет никакого сомнения, что число задач такого род а огромно. Более того, очень сложно придумать реально значимое задание, а лгоритм выполнения которого содержал бы в себе простое прямое следован ие команд. Даже примитивный пример, взятый из курса математики, как вы уви дите, не может быть решен без использования ветвления. Итак, необходимо в ычислить значение выражения y=1/x. Вам известно, что данная функция не всегд а имеет значение, то есть не для всех значений аргумента существует знач ение результата. Наша задача так составить алгоритм, чтобы исполнитель н и в коем случае не встал в тупик, даже при получении нуля в качестве аргуме нта. Сформулировать это на естественном языке не трудно: 1. Получить значение x. 2. Если x=0, то сообщить, что выражение значения не имеет, иначе - вычислить y как 1/x. Таким образом используется приведенная вы ше алгоритмическая структура. Она может быть выражена простыми словами: Если <усл.> Если выполняется условие то <действие 1> то выполнить действие № 1 иначе <действие 2> иначе - выполнить дейст вие № 2 все Как это записать на Паскале? Да точно так же, только по-английски. Формат условного оператора на языке Паскал ь: If <условие> Then <оператор 1> Else <оператор 2>; Обратите внимание на то, что в Then- и Else- части сто ит только один оператор. Но что делать, чтобы решить задачу, в которой по в ыполнению или невыполнению условия нужно совершить не одно, а несколько действий? Здесь приходит на помощь уже известный вам составной оператор . В операторные скобки можно заключить любое количество операторов. Вариант условного оператора в этом случае: If <условие> Then Begin <группа операторов 1> end Else Begin < группа операторов 2> end; Знак "точка с запятой" не ставится перед служ ебным словом Else, но операторы в группах, естественно, отделяются друг от др уга этим знаком. Теперь поговорим об условиях. В программах на языке Паскаль условия представляют собой выражения, значением котор ых является величина логического (Boolean) типа. Это может быть как просто пере менная указанного типа, так и сложная последовательность высказываний, связанных логическими операциями. В простых условиях могут применяться знаки операций сравнения: >(больше), <(меньше), =(равно), <>(не равно), >=(больше или равно ), <=(меньше или равно). Примеры простых условий: A=5 Значение переменной А равно 5 (C+D3)>=(D1*(45-2)) Значение выражения в левой части бол ьше либо равно значению выражения из правой части S<>'ABC' Значение переменной S не равно строковой константе 'ABC' Приведем пример решения еще одной задачи: "И з двух чисел выбрать наибольшее". На первый взгляд решение очевидно, но оно не столь тривиально, как кажется. Program Example; Var A,B,C : Real; A,B - для хранения аргументов, C - результат Begin Writeln('Введите два числа'); Readln(A,B); Вводим арг ументы с клавиатуры If A>B Then C:=A Else C:=B; Если A>B, то результат - A, иначе результ ат - B Writeln(C); Выводим ре зультат на экран End. Еще один классический пример: "По заданным к оэффициентам решить квадратное уравнение". Эта задача сложнее, поэтому п еред тем как писать программу составим алгоритм, записав его в виде блок- схемы.Сначала вводим коэффициенты, затем вычисляем дискриминант. Тепер ь возникает две возможности: либо отсутствие действительных корней в сл учае отрицательного дискриминанта, либо эти корни можно все-таки вычисл ить и вывести на экран в случае неотрицательного дискриминанта (случай р авенства дискриминанта нулю входит сюда же, корней - два, только они одина ковые J). При записи алгоритма на языке программиров ания следует учесть, что в ветви "нет" не одно действие, а три, поэтому следу ет применить составной оператор. Арифметические выражения не забывайт е записывать в соответствии с правилами языка Паскаль. В остальном, эта п рограмма не сложнее предыдущей. Program Sq1; Var A, B, C, D, X1, X2 : Real; Begin Writeln ('Введите коэффициенты квадратного уравнения'); Readln (A,B,C); D:=B*B-4*A*C; If D<0 Then Writeln (' Корней нет ! ') Else Begin X1:=(-B+SQRT(D))/2/A; X2:=(-B-SQRT(D))/2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3) End End. Интересно, что в качестве оператора, которы й выполняется по выполнению или невыполнению условия, может выступать у словный же оператор. В этом случае говорят о вложенности условных операт оров. Я настоятельно рекомендую при решении такого рода задач составлят ь блок-схему алгоритма в тетради. Только потом, при составлении программ ы, вам остается лишь аккуратно прописывать сначала всю Then- часть, а затем пе реходить к Else- части. Обычно при записи условных операторов на языке Паска ль (особенно при множественных ветвлениях) команды записывают уступом в право и вниз. Это повышает наглядность, и, поверьте, снижает потери времен и на отладку. Для иллюстрации решим еще одну задачу: "реши ть уравнение вида A*x^2 + B*x + C = 0". Прошу не путать с квадратным уравнением, для кот орого нам было известно, что коэффициент А не равен нулю. Здесь же коэффиц иенты могут быть любыми числами. Исходя из элементарных математических рассуждений, получаем следующий алгоритм: Program Sq2; Var A, B, C, D, X, X1, X2 : Real; Begin Writeln ('Введите коэффициенты уравнения (A, B, C) '); If A=0 Then If B=0 Then If C=0 Then Writeln('X - любое число ') Else Writeln(' Корней нет ! ') Else Begin X:=-C/B; Writeln('X=',X:8:3) End Else Begin D:=B*B-4*A*C; If D<0 Then Writeln (' Корн ей нет ! ') Else Begin X1:=(-B+SQRT(D))/2/A; X2:=(-B-SQRT(D))/2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3) End End End. Выбор вариантов Существуют условия, которые имеют много вариантов, в зависимости от кото рых необходимо выполнить то или иное действие, например: при вводе месяц а необходимо вывести сезон, которому соответствует данный месяц. В паска ле есть специальный оператор выбора case, который оформляется следующим об разом: case mesiac of 'Декабрь','Январь','Февраль': writeln('Зима'); 'Март','Апрель','Май': writeln('Весна'); 'Июнь','Июль','Август': writeln('Лето'); 'Сентябрь','Октябрь','Ноябрь': writeln('Осень'); else wrteln('Такого месяца не существует!'); end; Где в операторе перечисляются все варианты для которых выполняются те и ли иные действия, оператор else выполняет действия если операнд имеет значе ние, которое не перечислено в case. Сложные условия (связки) Повествовательное предложение, о котором можно сказать верно оно или не т называют высказыванием. Например: Сегодня вторник. Идёт дождь. Небо может быть голубым или серым. Число может быть чётным. Завтра будет не среда. Высказывания могут объединяться с помощью слов (операций) И, Или, НЕ. Эти операции называют логическими операциями. О бъединённые высказывания называют связками. Например: Сегодня вторник и идёт дождь. Число может быть чётным или нечётным. Завтра будет не вторник. Логическую операцию И(AND) обозначают ^, операц ию ИЛИ(OR) V, отрицание НЕ(NOT) ---. Верность или неверность связки двух высказываний (истинность) определя ют по правилам истинности. Например: Определить истинно или ложно след ующее высказывание: not ((4>8) and (5<7)) 4>8 ложно 5<7 истинно (4>8) and (5<7) ложно not ((4>8) and (5<7)) истинно Итак высказывание истинно. ОРГАНИЗАЦИЯ ВЕТВЛЕНИЙ В ПРОГРАММАХ НА ПАСКАЛЕ. ОПЕРАТОР IF THEN . .. ELSE Формат оператора: IF условие THEN оператор 1 ELSE оператор 2 ; Правило работы: 1. Проверяется условие. 2. Если условие истинно, то выполняется оператор1 3. Если условие ложно, то выполняется оператор2. Допустим сокращенный формат записи операт ора: IF условие THEN оператор 1; Правило работы: 1. Проверяется условие. 2. Если условие истинно, то выполняется оператор1. 3. Если условие ложно, то выполняется оператор следующий после IF. Под условием понимается логическое (булевс кое) выражение. ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ - это выражение, котор ое принимает значение TRUE(истина) или FALSE(ложь), и включает в себя арифметичес кие выражения, связанные операциями отношения и логическими операциям и. ОПЕРАЦИИ ОТНОШЕНИЯ: > больше >= больше или рав но < меньше <= меньше или рав но = равно <> неравно Имеют один и тот же приоритет и соединяют дв а выражения одного и того же типа. Результатом любой операции сравнения является значение TRUE или FALSE. ЛОГИЧЕСКИЕ О ПЕРАЦИИ:: NOT - НЕ ; AND - И ; OR - ИЛИ ПОРЯДОК ВЫПОЛНЕНИЯ ОПЕРАЦИЙ: 1. - (унарный минус, т.е. отрицание числа) NOT 2. * / DIV MOD AND 3. + - OR 4. < <= > >= = <> Оператор ветвления (условный оператор) Формат оператора: If условие THEN оператор1 ELSE оператор2; где условие - логическое выражение (т.е. в нег о обязательно входит знак отношения, и можно определить, истинно выражен ие или ложно) оператор1 - любой оператор Паскаля; этот оператор исполняется, когда усло вие истинно; оператор2 - любой оператор Паскаля, в том числе и условный; этот оператор исполняется, когда условие ложно. Выполнение оператора: При выполнении этого оператора сначала вычисляется значение условия. Если условие истинно (true), то выполняется оператор после слова THEN, а оператор 2 пропускается; если условие ложно (false), то оператор1 пропускается, а выполняется оператор после слова ELSE. Примеры : if x > 0 then y:=sqrt(x else write ('Решений нет'); Операторы 1 и 2 могут быть любыми, в том числе и условными. В этом случае их н азывают вложенными. Примеры : if x > 0 then y:=sqrt(x else if x <= -3 then y:=sqr(x) else write ('Решений нет'); Краткая форма условного оператора Части ELSE оператор2 может и не быть, тогда форма т оператора: If условие THEN оператор1; Выполнение оператора: Если условие истинно, то выполняется операт ор после слова THEN , а иначе он пропускается. Примеры : if abs(x) >= 5 then y:=exp(3*ln(x)) Составной оп ератор В условном операторе после слов THEN и ELSE можно помещать по несколько операторов. В этом случ ае их надо объединить в СОСТАВНОЙ оператор, который начинается словом BEGIN и заканчивается словом END; (на конце не точка, а точка с запятой!) Примеры Составить программу, которая перераспределит заданные значения x, y так, ч то в х окажется большее значение, а в y - меньшее. program PRMAX; var x, y, z: real; begin write ('Введите два числа: '); read (x, y); if x < y then begin z:=x; x:=y; y:=z end; writeln ('x =', x, 'y=', y); end. Сложное условие После слова IF допускается: конъюнкция условий (условия связываются пр и помощи логической операции and), дизъюнкция условий (условия связываются пр и помощи логической операции or); инверсия условий (отрицание условия not) Примеры: Выяснить, принадлежит ли точка с координата ми (x, y) кольцу с центром в точке (0, 0), внешним радиусом r1 и внутренним радиусом r2 program PRcir; var x, y, r1, r2: real; begin write ('Введите координаты точки: '); read (x, y); writeln ('Введите радиусы r1, r2:: '); read (r1, r2); if (sqrt(sqr(x)+sqr(y))r2) then writeln ('Точка принадлежит кольцу'); else writeln ('Точка не принадлежит кольцу'); end.
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Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
По логике Американского госдепартамента, референдум проведённый на Гаваях является нелегетимным, следовательно, Гавайи не являются легетимным штатом, Обама не является гражданином рождённым на территории США, и следственно, не может по конституции быть президентом США.
Обама, геть с Бiлого Дома!!!!
Anekdot.ru

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

Обратите внимание, реферат по информатике и информационным технологиям "Ветвление в Паскале", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

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


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