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

2. Записать на Turbo Pascal соответствующий оператор присваивания:

f = 6,673 108 .

3. Записать на Turbo Pascal выражение, истинное при выполнении указанного условия и ложное в противном случае: а)0<х<1; б) обе логические переменные a и b имеют значение true.

4. Найти ошибки в программе

Program A;

Const B=2.5; var a, b,c:real;

Begin read(a, c) writeln(a*c>b) End.

5. Написать программу, которая печатает true или false в зависимости от того, выполняется или нет указанное условие: есть ли среди цифр заданного трехзначного числа одинаковые.

6*. Найти центр и радиус окружности, проходящей через три заданные точки на плоскости.

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

Условный оператор

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

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

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

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

1.  Составной оператор. Примеры.

2.  Пустой оператор. Примеры.

3.  Условный оператор. Примеры.

4.  Оператор варианта. Примеры.

5.  Оператор перехода. Примеры.

Вариант № 1.

1.  Записать указанное действие в виде одного условного оператора:

cos2 x при 0<х<2,

y=

1-sin x2 иначе.

2.  Вычислить с – наибольший общий делитель натуральных чисел a и b.

3.  Определить, принадлежит ли точка (x, y) круговому кольцу с центром в начале координат и внутренним радиусом r, а внешним радиусом R.

4.  Если значение переменной w не равно 0 и при этом котангенс от w меньше 0.5, тогда поменять знак у w, а если значение у w равно 0, тогда присвоить w значение 1.

5.  Используя оператор Case, составьте программу вычисления площадей различных геометрических фигур:

У=

Вариант № 2.

1.  Записать указанное действие в виде одного условного оператора:

аrcsin(1+lnx)=a, если такой существует.

2.  Найти u – первый отрицательный член последовательности cos (ctg n), n=1,2,3,…

3.  Найти значение функции у=

4. 

y

Составьте программу вычисления значения функции в соответствии с графиком для произвольного (но фиксированного) значения аргумента.

5.  Логический переменной b присвоить значение true, если числа x и y равны, и значение false иначе.

Вариант № 3.

1.  Записать указанное действие в виде одного условного оператора:

Перераспределить значения переменных x и y так, чтобы в х оказалось большее из этих значений, а в y меньшее.

2.  Вычислить p-(1-1/22)(1-1/32)…(1-1/n2), n>2.

3.  Найти значение выражения у =

4.  Попадает ли точка (х, у) в область (рис.1)

y

x

-2 -1 1 2

5.  Записать условный оператор, который эквивалентен оператору присваивания x:=a or b and c (все переменные - логические) и в котором не используются логические операции ( например, оператору x:=not a эквивалентен оператор if a then x:=false else x:=true).

Вариант № 4.

1. Записать указанное действие в виде одного условного оператора: D=max(a, b,c).

2.  Вычислить y=cos(1+cos(2+…+cos(39+cos40)…)).

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

2

-3 3 Х

-2

4.  Используя оператор варианта, составьте программу вычисления значений функции:

У=

5. Записать оператор присваивания, эквивалентный оператору if a then x:=b else x:=c, где все переменные – логические.

Вариант № 5.

1.  Записать указанное действие в виде одного условного оператора:

max(x, y) при x<0,

z=

min(x, y) при y>=0.

2.  Дано 50 вещественных чисел. Найти величину наибольшего из них.

3.  Для заданного числа найти корень уравнения f(x) = 0, где

2ax + êa-1 ê при a>0,

f(x)= иначе.

4.  Вычислить у=f(x), где f(x) задана графиком (рис.1), описать в виде одного оператора.

у

у=-х у=х2

х

0

5. Составить программу определения дня недели по его номеру (например, 6-«суббота»).

Вариант № 6.

1.  Записать указанное действие в виде одного условного оператора: Переменной к присвоить номер четверти плоскости, в которой находится точка с координатами х и у (х, у≠0).

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

3.  Вычислить у=f(x), где f(x) задана графиком (рис.1), описать в виде одного оператора.

 

Рис.1.

4.  Даны числа a1, b1, c1, a2, b2, c2. Напечатать точки пересечения прямых, описываемых уравнениями a1x+b1y=c1 и a2x+b2y=c2, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не существуют.

5.  Три брата заспорили, кто из них самый толстый. Составьте программу, решающую их спор.

Вариант № 7.

1.  Записать указанное действие в виде одного условного оператора:

Известно, что из четырёх чисел a1, a2, a3 и a4 одно отлично от трёх других, равных между собой; присвоить номер этого числа переменной n.

2.  Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее геометрическое этих чисел.

3.  Найти значение выражения у=sin().

4.  Определить, попадает ли точка А с координатами ха и уа внутрь круга с радиусом R. Центр круга совпадает с началом координат.

 

у

5.  Даны числа a, b, c (a≠0). Найти вещественные корни уравнения ax4+bx2+c=0. Если корней нет, то сообщить об этом.

Вариант № 8.

1.  По номеру y (y>0) некоторого года определить с – номер его столетия (учесть, что, к примеру, началом ХХ столетия был 1901, а не 1900 год).

2.  Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее арифметическое этих чисел.

3.  Даны произвольные числа a, b, c. Если нельзя построить треугольник с такими длинами сторон, то напечатать 0, иначе напечатать 3, 2 или 1 в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо иной.

4.  Составьте программу вычисления значения функции в соответствии с графиком для произвольного (но фиксированного) значения аргумента.

у

1

Х

-1 0 1

5.  Даны три действительных числа А, В, С. Определить, сколько среди них отрицательных.

Вариант № 9.

1.  Если уравнение ax2+bx+c=0 (a≠0) имеет вещественные корни, то логической переменной t присвоить значение true, а переменным x1 и x2 – сами корни, иначе же переменной t присвоить значение false, а значения переменных x1 и x2 не менять.

2.  Дано 50 вещественных чисел. Найти количество чисел равных 0.

3.  Дано целое k от 1 до 180. Определить, какая цифра находится в k–ой позиции последовательности 10111213…9899, в которой вписаны подряд все двузначные числа.

4.  Составьте программу вычисления значения функции в соответствии с графиком для произвольного (но фиксированного) значения аргумента.

у

У=sin