38114

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

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

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

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

Русский

2014-10-19

91.5 KB

5 чел.

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

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

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

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

Лабораторная работа №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)

КОНЕЦ

Конец


 

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

46781. Защита экологических прав граждан в судах общей юрисдикции 30.25 KB
  Особенности правового режима животного мира Юридическое понятие животного мира определено в Федеральном законе О животном мире. Отношения в области охраны и использования объектов животного мира содержащихся в полувольных условиях или искусственно созданной среде обитания в целях сохранения ресурса и генетического фонда объектов животного мира и в иных научных и воспитательных целях регулируются названным Федеральным законом другими федеральными законами и иными нормативными правовыми актами РФ а также законами и нормативными правовыми...
46783. Экономический рост – обобщающий результат функционирования национальной экономики 31.64 KB
  Экономическая наука выделяет два основных типа экономического роста: экстенсивный и интенсивный. Главное здесь совершенствование технологии производства повышение основных факторов производства. В экономической теории существуют два основных типа равновесных моделей экономического роста: неоклассические и неокейнсианские. В макроэкономической теории выделяются два основных типа равновесных траекторий экономического роста: устойчивые и неустойчивые.
46786. Imperative sentences 30.5 KB
  Impertive sentences express commnds which convey the desire of the speker to mke someone generlly the listener perform n ction. Besides commnds proper impertive sentences my express prohibition request n invittion wrning persusion etc. Be quick Formlly commnds re mrked by the predicte verb in the impertive mood positive or negtive the reference to the second person lck of subject nd the use of the uxiliry do in negtive in emphtic sentences with the verb to be. Commnds re generlly chrcterized by the flling tone lthough the rising...
46789. Системное и смысловое строение сознания 30.5 KB
  Системное и смысловое строение сознания. Выготский определил область своего исследования как вершинную психологию психологию сознания. Согласно ему становление сознания является существенной линией развития человека. Под системным строением сознания Выготский понимал своеобразное отношение отдельных функций друг к другу то есть то что на каждой возрастной ступени определенные функции стоят в известном отношении друг к другу образуют определенную систему сознания.