Главная Обратная связь

Дисциплины:

Архитектура (936)
Биология (6393)
География (744)
История (25)
Компьютеры (1497)
Кулинария (2184)
Культура (3938)
Литература (5778)
Математика (5918)
Медицина (9278)
Механика (2776)
Образование (13883)
Политика (26404)
Правоведение (321)
Психология (56518)
Религия (1833)
Социология (23400)
Спорт (2350)
Строительство (17942)
Технология (5741)
Транспорт (14634)
Физика (1043)
Философия (440)
Финансы (17336)
Химия (4931)
Экология (6055)
Экономика (9200)
Электроника (7621)






Пример выполнения задачи на полное ветвление



Задача №1. Вычислить корни квадратного уравнения общего вида ax2 + bx + c= 0 в области действительных чисел.

Программа имеет вид :

(* ОПРЕДЕЛЕНИЕ КОРНЕЙ КВАДРАТНОГО УРАВНЕНИЯ *)

PROGRAM KU; {Имя программы}

VAR {Раздел описания переменных}

A,B,C:INTEGER; {коэффициенты уравнения}

D,X1,X2:REAL; {Дискриминант и корни уравнения}

BEGIN

WRITE('ВВЕДИТЕ КОЭФФИЦ. А,В,С '); {Вывод сообщения}

READ (A,B,C); {Ввод данных с клавиатуры}

WRITELN ('A=',A,'B=',B,'C=',C); {Эхо-печать ввода исходных данных}

D:=SQR(B)-4*A*C; {Вычисление дискриминанта}

IF D>0 THEN {Проверка выполнения условия}

BEGIN

X1:=(-B+SQRT(D))/(2*A); {Выполняемые действия }

X2:=(-B-SQRT(D))/(2*A); {если условие ИСТИНА}

WRITELN ('X1=',X1,'X2=',X2); {Вывод результата }

END

ELSE IF D=0 THEN {ИНАЧЕ, Проверка выполнения условия}

BEGIN

X1:=(-B+SQRT(D))/(2*A); {Выполняемые действия }

X2:=X1; {если условие ИСТИНА}

WRITELN ('X1=',X1,'X2=',X2);

END

ELSE WRITELN ('НЕТ РЕШЕНИЯ'); {если условие ложь}

END. {Конец программы}

Если вторая ветвь отсутствует, тогда имеет место сокращенное ветвление. Фрагмент программы представлен ниже

Оператор выбора:

Оператор caseработает следующим образом. Сначала вычисляется значение выражения-селектора, затем обеспечивается реализация того оператора, константа выбора которого равна текущему значению селектора. Если ни одна из констант не равна текущему значению селектора, выполняется оператор, стоящий за словом ELSE,при его отсутствии выполняется оператор стоящий за словом end.

Пример выполнения задачи на использование оператора выбора

Задача №2. Составить программу для ввода на экран монитора номера дня недели и вывода соответствующего ему дня недели на русском языке.

Программа решения задачи имеет вид:

PROGRAM DNED; {заголовок программы}

VAR {раздел описания переменных}

N:INTEGER,

BEGIN

WRITELN ('ВЫВЕДИТЕ НОМЕР ДНЯ НЕДЕЛИ');{Вывод сообщения}

READ(N); {Ввод значения n с клавиатуры}

CASE N OF {Выбор варианта }



1:WRITELN('понедельник'); { Выполняемые операторы }

2:WRITELN('вторник'); {в зависимости от значения селектора}

3:WRITELN('среда');

4:WRITELN('четверг');

5:WRITELN('пятница');

6:WRITELN('суббота');

7:WRITELN('воскресенье');

END; { Конец оператора Case}

END. {Конец программы}

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ№ 3

HАИМЕНОВАНИЕ:Операторы цикла

1.ЦЕЛЬ РАБОТЫ: Научится применять операторы цикла

2.ПОДГОТОВКА К ЗАНЯТИЮ:

2.1. Изучить предложенную литературу.

2.2. Подготовить бланк отчёта.

3.ЛИТЕРАТУРА:

3.1 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2009

3.2 Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования. – Форум, 2010

3.3Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования. – М.: Издательский центр «Академия», 2008

3.4Семакин И.Г., Шестаков А.П. Основы программирования. – М.: Издательский центр «Академия», 2008

 

4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ:
4.1. Персональный IBM PC.

5.ЗАДАНИЕ:

5.1 Составить логическую схему алгоритма и для вычисления значения функции: y=2*x*x; при переменной x изменяющейся от 1 до 3 с шагом 0.1.

5.2 Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N (N должно быть меньше 100) вводится с клавиатуры.

5.3 Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.



5.4 С помощью while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

5.5 Составьте и отладьте программу, вычисляющую сумму квадратов чисел от 1 до введенного вами целого числа n.

5.6 C помощью while напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

5.7 С помощью цикла while напишите программу определения идеального веса для взрослых людей по формуле: Ид.вес = рост—100. Выход из цикла: значение роста = 250.

6. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:

6.1 По предложенной литературе изучить необходимый материал;

6.2 Выполнить задания практического занятия и записать листинг программы;

6.3 Дать ответы на контрольные вопросы;

 

7. СОДЕРЖАНИЕ ОТЧЕТА:

7.1 Наименование и цель работы

7.2 Код программы

7.3 Записать результат (листинг) выполненых заданий.

7.4 Ответы на контрольные вопросы

7.5 Вывод о проделанной работе

 

8. КОНТРОЛЬНЫЕ ВОПРОСЫ:

8.1 Что такое цикл, управляющая переменная цикла?

8.2 Оператор цикла с параметром.

8.3 Оператор цикла с предусловием.

ПРИЛОЖЕНИЕ:

Для всех операторов цикла характерно следующая особенность. Повторяющиеся вычисления записываются всего лишь один раз. Вход в цикл возможен только через его начало. Переменные оператора цикла должны быть определены до входа в циклическую часть. Необходимо предусмотреть выход из цикла: или по естественному его окончанию, или по оператору перехода.

Цикл содержит:

1) подготовку (начало) цикла. (Управляющую переменную, ее начальное, конечное значение и шаг приращения);

2) тело цикла (повторяющиеся операторы);

3) изменение значения управляющей переменной на величину шага;

4) проверку на окончание цикла.

Цикл с параметром

Оператор цикла с параметром используется в тех случаях, когда заранее известно, сколько раз должна повторяться циклическая часть программы. Оператор цикла имеет вид:

При программировании циклов с параметром необходимо помнить следующие правила организации цикла:

1) параметр цикла, начальное и конечное значения, должны быть одинакового типа, их тип может быть любым скалярным типом (стандартным, перечисляемым, ограниченным), кроме вещественного;

2) очередное значение параметра вычисляется автоматически, для целого типа шаг изменения значения параметра цикла равен 1 при TO и -1 при DOWNTO;

3) запрещено изменять внутри тела цикла значение управляющей переменной цикла;

4) запрещено входить в цикл с помощью оператора GOTO, минуя оператор FOR,;

5) цикл не выполняется вообще, если начальное значение больше (при DOWNTO

- меньше), чем конечное;

6) после служебного слова DO может стоять только один оператор; если в цикле нужно выполнить группу операторов, то их заключают в скобки BEGIN-END;

7) из составного оператора, входящего в оператор цикла, можно выйти до окончания этого цикла с помощью оператора GOTO, тогда последнее значение параметра цикла сохраняется.


Просмотров 591

Эта страница нарушает авторские права

allrefrs.ru - 2021 год. Все права принадлежат их авторам!