Практическая работа по информатике

Практическая работа

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

Цель работы: овладеть практическими навыками разработки и программирования вычислительного процесса разветвляющейся  структуры, навыками по отладке и тестированию программы.

Оборудование: Компьютер с установленной операционной системой Windows, Free Pascal.

Литература:

1. Бабушкин И.А. и др. Практикум по Турбо     Паскалю. Учебное пособие.: М,1998

2. Информатика. 7–9 класс. Базовый курс. Практикум-задачник по моделированию./ Под ред.Н. В. Макаровой. –СПб.: Питер, 2001

3. Лапчик М. П. Вычисления. Алгоритмизация. Программирование: Пособие для учителя. - М.: Просвещение, 1988

4. Основы информатики и вычислительной техники: Проб. учеб. Для 10-11 кл. сред. шк./ А. Г. Гейн, В. Г. Житомирский, Е.В. Линецкий и др. - М. Просвещение, 1992

5. Основы информатики и вычислительной техники: Проб. учеб. пособие для сред. учеб. заведений. В 2 ч./ под ред А.П. Ершова, В.М. Монахова. - М.: Просвещение, 1986

Задания:

Разработать алгоритм, составить программу решения задачи, подготовить тестовый пример и вычислить его на ПК.

1 вариант.

1. Вычислите значение у, используя расчетную формулу:

            sin x, если  х>0,

у=

           х+1, если х0.

2. Вычислите значение у, используя расчетную формулу:

           х³, если  х0,

 у=      log₄x, если 0<х<10,

           , если х10.

3. Попадает ли точка с координатами (х;у) в указанную область?

4. Вычислить значение функции f(x), используя оператор выбора:

           х, при  х=1,

 у=      x³, при х=2,

           х⁴, при х=3,

           0 в остальных случаях.

2 вариант.

1. Вычислите значение у, используя расчетную формулу:

           х³, если  х>1,

у=

           12-х, если х1.

2. Вычислите значение у, используя расчетную формулу:

           х⁴, если  х<1,

 у=      log₅x, если 1х<7,

           , если х7.

3. Попадает ли точка с координатами (х;у) в указанную область?

4. Вычислить значение функции f(x), используя оператор выбора:

           х², при  х=1,

 у=      x⁴, при х=2,

           х, при х=3,

           0 в остальных случаях.

Теоретические сведения к практической работе:

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки, выполнить то или иное действие.

Полная  форма  команды  ветвления:

IF  условие

                THEN   оператор 1 

              ELSE     оператор 2;

Неполная  форма  команды  ветвления.

IF условие  THEN  оператор;

Команда   IF выполняет  после  слов THEN, ELSE  только  один  оператор.

Если  требуются  выполнить  более  чем  один  оператор, то  цепочку   операторов  заключаем  в операторные  скобки  BEGIN...END.

Для получения сложных условий простые условия объединяют с помощью скобок и  операций  AND(и), OR(или), NOT(не), например (х>-5) and (x<5) (простые условия заключаются в скобки и соединяются союзом).

Пример: Дана  программа  нахождения  меньшего  из  двух  чисел:

Var   a,b, min:  real;

BEGIN

READ(a,b);

IF  A<B 

          THEN    min: = a

         ELSE     min:  =  b;

writeln(min)

END.

Пример: Составить программу, позволяющую получить словесное наименование дня недели.

Var x: integer;

    A: string;

Begin

       Write (‘введите  номер дня’);

       Readln(х);

 Case х of

1:      a:=‘понедельник’;

2:      a:=‘вторник’;

3:      a:=‘среда’;

4:      a:=‘четверг’;

5:      a:=‘пятница’;

6:      a:=‘суббота‘;

7:      a:=‘воскресенье’;

       else  а:='такого дня недели нет';

end;

writeln(a)

end.

Пример: Дано действительное а. Для функций f(a),график которой представлен на рисунке,  вычислить f(a).

Решение: Математическая модель: функция вычисляется по следующей формуле

Составим схему алгоритма:

   Program example1;

   var a, f:real;

   begin

       write('Введите a> '); readln(a);

          if a<-1 then f:= -a-1 else

            if (a>=-1) and (a<0) then f:= a+1 else

            if (a>=0) and (a<1) then f:= -a+1 else f:= a+1;

          writeln('F= 'f);

   end.

Сделайте вывод по работе.

Скачано с www.znanio.ru