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)

КОНЕЦ

Конец


 

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

2341. Російська панславістська, польська федеративна й українська слов’янофільська теорії. 19.65 KB
  Мета: Проаналізувати суть російського панславізму, польського федералізму, українського слов’янофільства; визначити складові ідеї соборності українських земель, вивчити релігійно-конфесійні проблеми в національному питанні.
2342. Українські землі у складі Російської імперії. 48.5 KB
  Мета: охарактеризувати стан українських земель наприкінці XVIII – у першій третині XIX ст., вивчити адміністративно-територіальний устрій та регіональний поділ українських земель у складі Російської імперії; висвітлити процес включення українських земель до складу Російської імперії.
2343. Включення західноукраїнських земель до складу Австрійської імперії 45.5 KB
  Мета: вивчити адміністративно-територіальний устрій, соціальний та національний склад західноукраїнських земель, довести колоніальний характер політики австрійського уряду щодо українців; визначити роль реформ Марії-Терезії та Йосипа II у розвитку економічного й суспільного життя Галичини та Буковини.
2344. Вплив міжнародних відносин на розвиток українських земель у першій третині XIX ст 38 KB
  Мета: проаналізувати місце України в системі міжнародних відносин на початку XIX ст., висвітлити процес колонізації Російською імперією відвойованих у Туреччини українських земель, довести, що Україні відводилося у планах Наполеона I Бонапарта місце колонії, дослідити внесок українців у розгром наполеонівських військ, довести, що доля Азовського козацького війська була закономірним наслідком колонізаторської політики російського царизму щодо українства.
2345. Початок національного відродження 54 KB
  Мета: ознайомити учнів із процесом розвитку національної ідеї в суспільно-політичному русі України першої половини XIX ст. та внеском її видатних представників у цей процес, ознайомити учнів із діяльністю українського дворянства щодо відновлення автономних прав України наприкінці XVIII ст.
2346. Поширення ідей Просвітництва в Західній Україні. 19.27 KB
  Мета: з’ясувати характер суспільно-політичного життя та витоки національного відродження на західноукраїнських землях наприкінці XVIII – на початку XIX ст., довести, що діяльність Руської трійці була виявом галицько-українського відродження; з’ясувати, чому альманах Русалка Дністрова називають “політичним маніфестом українства”.
2347. Російський визвольний та польський національно-визвольний рухи на українських землях у 20-30-ті роки XIX ст. 20.71 KB
  Мета: розкрити причини поширення західноєвропейських революційних ідей в Україні та створення масонських лож в Україні, проаналізувати діяльність декабристів в Україні та історичне значення декабристського руху для України, довести, що Польське повстання 1830-1831 рр. мало антиколоніальний і антифеодальний характер.
2348. Формування модерної української нації. Теорія та суспільні виклики першої половини XIX ст 37.5 KB
  Мета: провести підсумкове оцінювання знань як кінцевий етап оцінювання знань з тем Вступ. Формування модерної української нації. Теорія та суспільні виклики першої половини XIX ст., Українські землі у складі Російської та Австрійської імперій наприкінці XVIII – у першій третині XIX ст., оцінити рівень навчальних досягнень учнів та перевірити уміння застосовувати нубуті знання.
2349. Історія України у визначеннях, таблицях і схемах 7-9 класи 44.9 MB
  Київська Русь та Галицько-Волинська держава. Національно-визвольна війна та відродження Української держави. Наддніпрянська Україна в другій половині ХІХ століття. Культура України другої половині ХІХ століття.