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)

КОНЕЦ

Конец


 

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

37316. LiME - THE EVENT DRIVEN TRANSLATION SYSTEM 24.5 KB
  Nowadays the development of CPU with new instruction set architecture (ISA) implies that translators to this ISA assembler from the certain set of high level programming languages should be developed too. If the basic principles of the ISA are close enough to the long time used traditional CISC
37317. СОВРЕМЕННЫЙ РУССКИЙ ЯЗЫК. ЯЗЫК ЛИТЕРАТУРНЫЙ И НЕЛИТЕРАТУРНЫЕ ФОРМЫ ЯЗЫКА 163 KB
  ЯЗЫК ЛИТЕРАТУРНЫЙ И НЕЛИТЕРАТУРНЫЕ ФОРМЫ ЯЗЫКА Вопросы Русский язык и его функции. Функциональная дифференциация языка. Язык литературный и нелитературные формы языка. Функциональные стили русского языка.
37318. ОСНОВЫ ПРАВА. РАБОЧАЯ ПРОГРАММА УЧЕБНОЙ ДИСЦИПЛИНЫ 36.04 KB
  Учебная дисциплина «Основы права» относятся к базовой части дисциплин Гуманитарного, социального и экономического цикла основной образовательной программы подготовки бакалавров по направлению 081100.62 «Государственное и муниципальное управление». Ее освоение опирается на знания, полученные в процессе освоения программы общего среднего образования, в том числе при изучении дисциплин «История», «Обществознание», «Граждановедение» и других курсов гуманитарного и социально-политического характера – «Политологии» и «Правовой акмеологии».
37323. ФИЛОСОФИЯ ОНТОЛОГИЯ И ТЕОРИЯ ПОЗНАНИЯ 284 KB
  Одна из задач философии – научить человека самостоятельно и творчески мыслить. Учебный курс философии предполагает как теоретический так и практический уровни. На практическом уровне студент должен научиться: использовать полученные теоретические знания для определения закономерностей развития и социальной значимости явлений и процессов действительного мира; анализировать имеющиеся точки зрения на вопрос; аргументировать собственную позицию; оценить личный вклад философа учёного деятеля культуры в развитие науки и культуры; использовать...
37324. ПРОЕКТИРОВАНИЕ АВТОМАТИЗИРОВАННЫХ СИСТЕМ 235.5 KB
  Заказная спецификация на приборы и средства автоматизации электроаппаратуру Приложение 7. Чертеж функциональной схемы автоматизации Приложение 10. ЦЕЛИ И ЗАДАЧИ КУРСОВОГО ПРОЕКТИРОВАНИЯ Выполнение курсового проекта по дисциплине “Проектирование автоматизированных систем†является подготовкой студентов к самостоятельной разработке проектов автоматизации в пищевой и химической промышленности. В процессе выполнения проекта студент должен показать глубину освоения теоретических и практических...