38114

Составление программ разветвляющейся структуры

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

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

Решить задание в соответствии с вариантом задания. Исходные данные должны вводиться в режиме диалога и сопровождаться комментариями. Результат вывести на экран, сопровождая вывод комментариями. Изучить правила записи операторов ветвления. Разработать алгоритм решения задачи. Составить программу решения задачи.

Русский

2014-10-19

91.5 KB

4 чел.

КОМИТЕТ ПО ОБРАЗОВАНИЮ МОСКОВСКОЙ ОБЛАСТИ

ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧЕРЕЖДЕНИЕ

СРЕДНЕГО ПРОФЕССИОНАЬНОГО ОБРАЗОВАНИЯ МОСКОВСКОЙ ОБЛАСТИ

«СЕРПУХОВСКИЙ ТЕХНИЧЕСКИЙ КОЛЛЕДЖ»

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

По дисциплине «Основы программирования»

Составление программ разветвляющейся структуры

Выполнил:

Студент 2-го курса 2-П гр.

Исаев Валентин

Проверил:

Щербаков Кирилл Вадимович

Серпухов 2014

Цель работы:

  1.  Изучить правила записи операторов ветвления.
  2.  Разработать алгоритм решения задачи.
  3.  Составить программу решения задачи.

Оборудование:

  1.  Персональный компьютер
  2.  программа Turbo Pascal

Задание.

Решить задание в соответствии с вариантом задания. Исходные данные должны вводиться в режиме диалога и сопровождаться комментариями. Результат вывести на экран, сопровождая вывод комментариями.    

1) Даны три числа, определить, является ли сумма каких-либо двух из них положительной.

2) F(x)= -x^2, если x>=7 

   F(x) =2^(-x)/(x*x-9), если x<7               

Блок-схема программы.

1)    

2)

Листинг программы.

1)  Program zd1;

var a,b,c:integer;

begin

writeln('Введите a,b,c');

readln(a,b,c);

if a+b >0 then writeln ('Значение выражения a+b: ',a+b)

else

Writeln ('Значение выражения a+b меньше 0');

if a+c >0 then writeln('Значение выражения a+c: ',a+c)

else

Writeln ('Значение выражения a+c меньше 0');

if b+c >0 then writeln('Значение выражения b+c: ',b+c)

else

Writeln ('Значение выражения b+c меньше 0');

     end.

Результат выполнения программы:

2) Program zd1;

Var x, F : real;

Begin

writeln('Введите x');

readln(x);

if x>=7 then

begin

F:=-x*x;

writeln('F(x)=', F:4:1);

end

else

Begin

    F:=exp(ln(2)*(-x)) /(x*x-9);

writeln('F(x)=', F:4:1);

end;

end.

Результат выполнения программы:

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

  1.  Операторы разветвлений.
  2.  Операторы множественного выбора.
  3.  Форматированный вывод данных.

1) Операторы ветвления.
Ответ: If, then, else.


2) Операторы множественного выбора?
Ответ: Case of.

Если количество разветвлений программы больше 2, то используется оператор варианта case.


3) Форматированный вывод данных.
Ответ: Для удобного чтения выводимых программой данных, в Pascal, реализован форматированный вывод данных. 
Пример: var:a:b, где:
var — выводимая переменная;
a — количество выводимых знаков в целой части числа (избыточные значения будут заполнены пробелами);
b — количество выводимых знаков в дробной части числа.
Также в Pascal возможно использование строковых выражений. Обычно их используют вместе с операторами типа write или writeln. Выводимую строку необходимо заключить в одинарные кавычки. Пример: 'строка'.

Вывод: Изучил правила записи операторов ветвления. Научился разрабатывать алгоритм решения задачи.  Научился составлять программу решения задачи.


Вывод:
b+c<0

Вывод: z

z=b+c

1

b+c>0

Вывод: y

y=a+c

Вывод: а+c<0

Ввод: a,b,c

Начало

x=a+b

1

Вывод: x

Вывод: а+b<0

a+b>0

a+c>0

НАЧАЛО

Ввод:x

Вывод:F(x)

x>=7

F(x)=-x^2

F(x)=2^(-x)/(x*x-9)

Вывод:F(x)

КОНЕЦ

Конец


 

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

36630. Наплавка зуба ковша 2.5 MB
  Основным способом соединение деталей является дуговая электрическая сварка. Возможно что, совершенствование существующих способов сварки и резки металлов и их синтез дадут новый способ сварки в твердой фазе
36631. Лекции по финансам 399.5 KB
  А В Воздействует на ставка налога Социальная При помощи Д бюджета Достигается Военная Геополитика Национальная Экономическая Бюджетная Ценовая Таможенная Финансовая Денежная Кредитная Термин финансы возник в XV в. В последнее время стал применяться метод получивший название бюджета ориентированного на результат БОР. Сущность и содержание бюджета определяется функцией государства. Сущность бюджета проявляется в его функциях: Образование общегосударственного фонда денежных средств; Использование общегосударственного фонда денежных...
36632. Инкапсуляция. Уровень абстракции (программирование) 425 KB
  Компилируемые программы. Утверждается что известные визуальные средства разработки приложений Windows также компилируют программы однако это не совсем верно в действительности происходит компиляция только части программы и последующая компоновка программыинтерпретатора и Ркода в исполняемый модуль. Например Delphi не использует ни интерпретатор ни Ркод и создаёт действительно откомпилированные программы готовые для использования. Поэтому программы Delphi быстры и могут могут поставляться в виде единственного используемого модуля...
36633. Конспект сюжетного физкультурного занятия для детей старшего дошкольного возраста 34.5 KB
  Упражнять детей в подбрасывании мяча вверх двумя руками и ловле его в ходьбе отбивании мяча в ходьбе по гимнастической скамейке двумя руками ведении мяча змейкой между предметами поочередно каждой рукой добиваться ритмичности и четкости выполнения движений на каждый таг формировать чувство мяча соотносить силу удара с высотой полета мяча. Проводится комплекс общеразвивающих упражнений с мячами. В: прокатывание мяча между ладонями 6 7 раз. В: прыжки вокруг мяча в чередовании с ходьбой на месте 5x3 раза.
36634. Как устроен компьютер 50.5 KB
  Организационный момент психологический настрой 1 мин: На доске запущена презентация с загадкой: Напишу и сосчитаю ошибку укажу Я и музыку сыграю И картинку покажу Я хотя росточком мал Но большой универсал компьютер Тема нашего урока Как устроен компьютер слайд 2 Постановка целей урока 3 мин Что такое компьютер это универсальное устройство для хранения обработки и передачи информации Из каких устройств состоит компьютер системный блок монитор клавиатура мышь и др....
36635. Количество информации, как мера уменьшения неопределенности знаний 37.5 KB
  Тип урока: комбинированный Цели: Обучающая дать определение единицы измерения информации; развивающая развивать интерес к изучаемой теме логическое мышление; воспитывающая воспитывать у ребят дисциплинированность и внимательность на уроке. Тема нашего сегодняшнего занятия Количество информации как мера уменьшения неопределенности знаний. Процесс познания окружающего мира приводит к накоплению информации в форме знаний.
36636. Інструкція з безпеки праці 46.5 KB
  Тому дайте будьласка відповіді на такі питання: Назвіть основні положення кодексу законів про працю Назвіть основний закон що гарантує право громадян на безпечні та нешкідливі умови праці Що зобовязаний роботодавець забезпечити Які створює держава умови Які Ви знаєте законодавчі акти з охорони праці Активізація нового матеріалу: А темою уроку є €œІнструкція з безпеки праці€. На уроках €œВиробничого навчання€ ми застосовуємо безпосередньо отриманні знання з охорони праці адже уявлення безпеки праці і виховування вміння до...
36637. Економічна інформатика 1.16 MB
  Інформаційні технології - технологічні процеси, що охоплюють інформаційну діяльність управлінських працівників, повязану з підготовкою і прийняттям управлінських рішень. Являють собою сукупність методів і прийомів розвязання типових задач обробки даних. Включають збір, зберігання, передачу, обробку інформації.
36638. Предмет і задачі вірусології 484.5 KB
  Історія вірусології досить незвичайна. Перша вакцина для попередження вірусної інфекції — віспи була запропонована англійським лікарем Є. Дженнером в 1796 г., майже за сто років до відкриття вірусів, друга вакцина — антирабічна була запропонована засновником мікробіології Л. Пастером в 1885 г.— за сім років до відкриття вірусів.