Решение циклических задач средствами языка Паскаль.

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

Решение циклических задач средствами языка Паскаль.

Цель работы:  закрепление навыков решения циклических задач на языке Паскаль.

Оборудование:  персональный компьютер, программа PascalABC, методические указания по работе (в электронном виде находятся в папке «Методические указания» на рабочем столе компьютера), карты-задания

Содержание и последовательность выполнения  практической работы:

1.             Инструктаж по технике безопасности

2.             Выполнение практического задания

Теория.

Цикл с предусловием.

While условие do

    begin

       действия

    end;

Цикл повторяется до тех пор, пока выполняется условие.

Цикл с параметром.

FOR счетчик: =начальное значение  TO конечное значение DO

    begin

       действия

    end;

Начальное значение счетчика должно быть меньше конечного. При каждом выполнении цикла значение счетчика увеличивается на единицу.

Примеры задач.

1.             Вычислить значение функции для всех x от 0 до π с шагом π/6. Вывести все полученные значения.

        Program funct;

        Var x,y: real;

        Begin

             x:=0;

             while x<=6.28 do

                begin            

                    y:=sin(x);

                    writeln(‘x=’,x:0:2, ‘     y=’,y:0:2);

                    x:=x+3.14/6

                end;

        End.

2.             Вычислить

        Program summa;

        Var i: integer;

               x,s:real;

        Begin

             writeln(‘введите x’);

             readln (x);

             s:=0;

             for i:=1 to 15 do

                begin            

                    s:=s+x+sqr(i);

                end;

             writeln(‘s=’,s:0:2);

        End.

3.             Вычислить значения функции  для x от -2 до 3 с шагом 0,4.

Program funct;

Var x,y: real;

    Begin

        x:=-2;

        while x<=3 do

            begin            

               if x>0               

               then y:=2*sqr(x)-3

               else y:=abs(x-5);

               writeln(‘x=’,x:0:2, ‘     y=’,y:0:2);

               x:=x+0.4

            end;

        End.

4.             Дано натуральное число n. Вычислить .

Program proiz;

Var i,n: integer;

       p:real;

 Begin

      writeln(‘введите n’);

      readln (n);

      p:=1;

      for i:=1 to n do

         begin            

             p:=p*(i-2);

         end;

      writeln(‘p=’,p:0:2);

  End.

Задания.

Студенты решают задачи на компьютерах по вариантам с помощью среды программирования PascalABC.

Карточка №1

1.             Вычислить значения функции  для x от 2 до 4 с шагом 0,4.

2.             Дано натуральное число n. Вычислить .

3.             Дано натуральное число n и действительное число x. Вычислить .

4.             Дано натуральные  числа n и m. Вычислить значение суммы .

5.             Дано действительное число y. Увеличивать его в 3 раза до тех пор, пока оно не будет больше 40.

Карточка №2

1.             Вычислить значения функции  для x от 1 до 3 с шагом 0,5.

2.             Дано натуральное число n. Вычислить .

3.             Дано натуральное число n и действительное число x. Вычислить .

4.             Даны натуральные  числа n и m. Вычислить значение суммы .

5.             Дано действительное число х. Уменьшать его на 5 до тех пор пока оно не будет меньше 0.

Карточка №3

1.             Вычислить значения функции  для x от 0 до 5 с шагом 0,5.

2.             Дано натуральное число n. Вычислить .

3.             Дано натуральное число n и действительное число x. Вычислить .

4.             Дано натуральные  числа n и m. Вычислить значение произведения .

5.             Дано действительное число х. Увеличивать его на 3 до тех пор пока оно не будет больше 25.

Карточка №4

1.             Вычислить значения функции  для x от -2 до 2 с шагом 0,4.

2.             Дано натуральное число n. Вычислить .

3.             Дано натуральное число n и действительное число x. Вычислить .

4.             Даны натуральные числа n и m.Вычислить значение произведения .

5.             Дано действительное число y. Уменьшать его в 2 раза до тех пор, пока оно не будет меньше 10.