Учебно-методический комплекс дисциплины Практикум по структурированному программированию (стр. 6 )

х

- п 0 п

5.  Составить программу, позволяющую определить наименование оценки по её цифровому обозначению. (например, 3-«удовлетворительно»).

Вариант № 10.

1.  Считая, что стандартные функции sin и cos применимы только к аргументам из отрезка [0, π/2], вычислить y=sin x для произвольного числа x.

2.  Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них чисел, равных 1.

3.  Две точки заданы своими координатами, определить какая из них находится дальше от окружности радиуса R с центром в начале координат.

у

.В

х

.А

4.  Дано натуральное k. Определить k-ю цифру в последовательности 110100100010000100000…, в которой вписаны подряд степени 10.

5.  Используя оператор условного перехода, составьте программу определения принадлежности точки Р с координатами (х, у) одной из заштрихованных областей D1 и D2, не включая их границы.

Y

b

-а 2b x

- b

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

Циклы

Цель лабораторной работы: закрепление теоретических знаний об операторах цикла языка программирования Turbo Pascal; овладение практическими навыками разработки алгоритмов и программ циклической структуры.

Студент должен знать: предназначение циклов в алгоритмах и программах; виды циклов; основные циклические структуры алгоритма; правила записи операторов цикла в языке программирования Паскаль, последовательность выполнения каждого оператора цикла; ограничения в реализации счетного цикла языка программирования Паскаль; порядковые типы создаваемые пользователем.

Студент должен уметь: записывать блок-схемы основных базовых структур; записывать структуру каждого оператора цикла языка программирования Паскаль; программировать алгоритмы циклической структуры, описывать и использовать в программе переменные ограниченного и перечислимого типов.

Студент должен владеть навыками: использования итерационных или счетных циклов для решения задач табулирования функции, вычисления суммы и произведения, использования вложенных циклов.

Теоретические вопросы.

1.  Основные циклические структуры алгоритма (блок-схемы).

2.  Виды циклов, предназначение циклов.

3.  Оператор цикла с предусловием.

4.  Оператор цикла с постусловием.

5.  Счетный цикл (цикл с параметром) по возрастающим значениям.

6.  Счетный цикл (цикл с параметром) по убывающим значениям.

7.  Порядковые типы данных.

8.  Основные функции порядковых типов данных.

9.  Ограниченный тип данных.

10.  Перечислимый тип данных.

11.  Ограничения на переменную в операторе цикла с параметром.

12.  Вложенные циклы.

Вариант №1

1.  Составьте программу вычисления факториала y=n!, (n!=1*2*3*…*n ). Вычисления описать каждым из трёх вариантов оператора цикла.

2.  Составить программу для вычисления 1+2+…+210

3.  Определить значение переменной s после выполнения следующих операторов:

S: =0; i: =0; While i<5 Do i: =i+1; s: =s+1/i;

4.  Составить программу позволяющую найти наибольшее и наименьшее значение функции y=3x2+x-4, если на заданном интервале [a, b] x изменяется с шагом 0.1.

5.  Дана непустая последовательность натуральных различных чисел, за которой

следует 0. Составить программу определения порядковый номер наименьшего из них.

6.* Составить программу решения задачи: Числа Фибоначчи определяются формулами f0=f1=1,fn=fn-1+fn. Вычислить сумму всех чисел, которые не превосходят 1000.

Вариант №2

1.  Дана непустая последовательность положительных вещественных чисел x1,x2,…,xn (n заранее не известно), за которой следует отрицательное число. Вычислить величину: 1*x1+2*x2+…+(n-1)*xn-1 +n*xn. Составьте программу для каждого из трёх вариантов оператора цикла.

2.  Составьте программу определения максимального из всех введённых чисел (Признак окончания работы –0).

3.  Найти ошибки в следующем фрагменте программы:

Var k, I, s: Integer;

x, y: Real;

k:=0;

For I:=0 To 42 Begin k:=k+I;

s:=x+I*k End.

4.  Дана непустая последовательность ненулевых целых чисел, за которой следует ноль. Написать программу позволяющую определить сколько раз в этой последовательности меняется знак. (Например, в последовательности 1, -34, 8, 14, -6 знак меняется три раза).

5.  Дана последовательность вещественных чисел. Сколько в ней отрицательных чисел? Если их больше 10, то не которой переменной в программе присвоить значение – истинно, иначе – ложно.

6.  * Составить программу решения задачи: Имеется некоторая сумма денег – s. Составить программу позволяющую найти число вариантов размена этой суммы монетами достоинства: 50, 10, 5, 1 копеек.

Вариант №3

1.  Вычислить f=(2n)!! =2*4*…*(2n), n>0.Записать варианты программ с различными видами циклов.

2.  С помощью оператора цикла напишите программу определения всех нечётных чисел в диапазоне от 1 до 99.

3.  Определить значение переменной s после выполнения следующих операторов: s:=0; i:=1; Repeat s:= s+1/i; i:=i-1 Until i<=1;

4.  В ЭВМ поступают результаты соревнований по плаванию для трёх спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.

5.  Составить программу, в которой логической переменной t присвоить значение true или false в зависимости от того, является натуральное число k степенью 3 или нет.

6.  * Составить программу решения задачи: Напечатать все простые делители заданного натурального числа. Некоторой логической переменной присвоить значение истинно, если делителей меньше 10 и ложно, если больше.

Вариант №4

1.  Вычислить y=n!! = 1*3*5*…*n, n>0.Вычисления описать в программах каждым из трёх вариантов оператора цикла.

2.  Вычислить значение функции y= cos x + cos x2 +cos x3 +…+ cos x30.

3.  Определить значение переменной s после выполнения следующих операторов:

s:=1; n:=1; For I:=2 To n Do s:=s+1/I

4.  Составьте программу, которая вычисляет сумму чисел от 1 до k (k <=100).

5.  Составьте программу, которая для целого k (от 1 до 99), введённого вами с клавиатуры, напечатает фразу “ Мне k лет ”, где k – введённое число, при этом в нужных случаях слово “ лет ” заменять на “год”, “года”.

6.  * Составить программу решения задачи: Дано 10 натуральных чисел. Определить образуют ли они убывающую последовательность.

Вариант №5

1.  Вычислить значение функции y= sin 1 + sin 1.1 + sin 1.2 +…+ sin 2. Вычисления описать в программе каждым из трёх вариантов оператора цикла

2.  С помощью цикла While напишите программу нахождения идеального веса людей по формуле: Ид. вес=рост-100. Выход из цикла: значение роста – 250.

3.  Найти ошибки в следующем фрагменте программы: Var k, I, s: Integer; x, y: Real; y:=0; For x:=0.1 To 0.9 Do y:=y+ sin(x).

4.  Составьте программу определения НОД двух натуральных чисел.

5.  Составить программу для решения следующей задачи: даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число, необходимо найти величину наибольшего среди отрицательных чисел этой последовательности.

6.  * Составить программу решения задачи: Дано 10 чисел. Определить, сколько из них принимает наибольшее значение.

Вариант №6

1.  Дана непустая последовательность положительных вещественных чисел x1,x2,…,xn (n заранее не известно), за которой следует отрицательное число. Вычислить величину: n*x1+(n-1)*x2+…+2*xn-1 +xn. Составьте программу для каждого из трёх вариантов оператора цикла.

2.  Дано 10 натуральных чисел. В программе определить образуют ли они убывающую последовательность.

3.  Найти ошибки в следующем фрагменте программы:

Var k, I, s: Integer;

x, y: Real;

k:=0; For I:=42 DownTo 2 Begin k:=k-I;

s:=x+I*k End.

4.  Дана непустая последовательность ненулевых целых чисел, за которой следует ноль. Написать программу позволяющую определить сколько раз в этой последовательности меняется знак. (Например, в последовательности 1, -34, 8, 14, -6 знак меняется три раза).

5.  Составить программу позволяющую перевести число из десятичной системы счисления в двоичную.

6.  * Составить программу решения задачи: Имеется некоторая сумма денег – s. Найти число вариантов размена этой суммы монетами достоинства: 50, 10, 5, 1 копеек.

Вариант №7

1.  Составьте программу вычисления функции p=(1-1/22)*(1-1/32)*…*(1-1/n2) для n>2. Вычисления описать каждым из трёх вариантов оператора цикла.

2.  Составьте программу вычисления суммы всех двузначных чисел.

3.  Найти ошибки в следующем фрагменте программы: Var k, I, s: Integer; x, y: Real; k:=0; For I:=1 To 9 Do k:=k+ sqr (i); k:=k*I.

4.  Используя операторы цикла напишите программу вывода всех чётных чисел в диапазоне от 2 до 100 включительно, доставьте программу подсчитывающего количество цифр вводимого вами целого неотрицательного числа (можно использовать операцию целочисленного деления).

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