Pascal LabWorks

63

Лабораторная работа 1 Простейшие вычисления. Ввод-вывод данных

Задание

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

Варианты заданий

1.y=(cos2(x)+ln(x+1))3–x–5 ln(x2–1) 1,5 10–3, x=tg( ); =60º

2.y=x–5+1,87ecos(x) cos(sin(x)), x=5,6

3.y=sin(cos(x))e cos(x)–ln(x–5) 1,5 10–3, x=7,8

4.y=1,33 105/(285+ln(x–3)–9cos(x)), x=5,7

5.y=sin(x–0,5)/(ln(x5–3)–3 102), x=2,1

6.y=tg(x)+sin2(ecos(x))–ln(x+1), x=3,9

7.y=(acos(a)+bsin(b+a))/(cos2(a)+b2), a=2,1, b=–1,5

8.y 3 2 ln(x) cos( x) , x 2,7

9.y lg(5 x) x2 x3 1 0,5 10 5 , x 1,5

11.y=sin(5,81x)/(cos2(x)+sin(2x))+ln(x), x=5,3

12.y 5x3 ab cos(ax) ln(a b x) , x=0,5, a=1, b=3

13.y x ln (x2 1) / x3 3 cos(5) , x 2,5

14.y x cos(x2 ) ex 9 / ctg(x), x 3,4

17.y ctg(cos(ex )) / x3 x2 1, x 2,3

18.y=2,1 sin(e tg(x))/(cos2(x)+tg(x)), x=30º

19.y x3 1,5 103 e x ln(x 5) , x 6,5

20.y=(ex–e–x)/e3x–cos5(x–x2–5 )/(x3+1), x= cos(α) , α=45º

21.y=(1,9 10–2+cos(0,5+x2))/(3,91–tg(x)), x=3,4

22.y=(tcos(t)+ssin(t+s))/(sin2(t)+s2), t=3,1, s=1,5

64

23.y 12,8x cos(x) x2 2,8 ln(x3 1), x 2,1

26.y= cos(sin(x))e cos(x)–lg(x+5) 0,15 10–2, x=3,4

27.y=1,72 104/(2,34+log2(x+1)+sin(x)), x=1,7

28.y=tg(x+0,5)/(ln(x3–3)–305,6 10-2), x=2,1

29.y=lg2(x)+cos(esin(x))–ln(x+1), x=2,9

65

Лабораторная работа 2

Программирование разветвлений

с помощью оператора if

Задание

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

Варианты заданий

1.Найти большее их трех заданных значений a, b, c и вывести его имя и значение.

2.Вычислить значение функции y по одной из следующих фор-

мул: y=x2+3, если x<0; y=(x2+3)2, если 0x<1; y=x(x2+3), если x1.

3.Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью =0,001, то вычислить сумму этих чисел, если все равны нулю с погрешностью =0,001, то вывести сообщение об этом, в противном случае вычислить их произведение.

4.Даны три значения a, b, c. Найти значение, наиболее близкое к среднему арифметическому (a+b+c)/3, вывести это значение и его имя.

5.Даны два произвольных числа a, b. Если оба значения принад-

лежат отрезку [c, d], то вычислить R=sin(a) sin(b), в противном случае вывести сообщение «Нет решения».

6.В зависимости от параметров a, b, c квадратного уравнения вывести одно из сообщений: «корней нет», «линейное уравнение», «корни мнимые», «корни действительные и различные», «корни действительные и равные».

7.Определить, принадлежит ли точка с координатами (x, y) области, ограниченной равнобедренным прямоугольным треугольником с катетами длиной a и прямым углом в начале координат (1-й квадрант).

8.Даны три числа a, b, c. Вычислить экспоненту того числа, значение которого ближе всего к значению функции y=(a2+b2+c2)/(a+b+c). Если a+b+c=0, то вывести сообщение об этом.

9.Даны числа a, b, c, d. Определить возможность построения параллелограмма из отрезков с такими значениями.

10.Определить, в каком квадранте координатной плоскости лежит точка с координатами (x, y).

11.Даны три числа a, b, c. Определить количество отрицательных и количество положительных чисел.

12.Даны числа a и b. Если оба значения положительны, то каждое из них удвоить; если оба отрицательны, то отбросить их знаки; в противном случае оставить числа без изменения.

66

13.Вывести заданные числа a, b, c в порядке убывания их значений.

14.Даны три числа a, b, c, которые представляют собой значения сторон треугольника. Определить вид треугольника: прямоугольный, остроугольный, тупоугольный.

15.Даны: прямоугольное отверстие размером x на y и кирпич с гранями a, b, c. Составить программу для определения возможности прохождения кирпича через заданное отверстие.

16.Определить, лежит ли точка с координатами (x, y) внутри кольца с радиусами r1, r2 и центром в точке (xc; yc).

17.Даны значения a, b, c. Если ни одно из значений не равно нулю,

то вычислить D=1/a+1/b+1/c, и если D>0 и a>0, вычислить y D , в

противном случае y=2. Если хотя бы одно из значений a, b, c равно нулю, то вывести сообщение «Нет решения».

18.Даны значения a, b, c. Если a>b и b>c, то вычислить x=0,2; y=x2+0,6x+sin(x/2), если b<c и a<c, то x=2; y=x3+x2+x+1, в остальных случаях x=0, y=0.

19.Найти наименьшее из трех заданных значений a, b, c и вывести его имя и значение.

20.Определить, лежит ли точка с координатами (x1,y1) внутри прямоугольника, ограниченного прямыми x=a, x=b, y=c, y=d.

21.Даны значения x1, x2, x3. Вычислить значения переменных a1, a2, a3 по следующему правилу: если x1>x2>x3, то a1=x1, a2=x2, a3=x3; если x1x2x3, то a1=x3, a2=x1, a3=x2, в остальных случаях a1=a2=a3=0.

22.Определить, лежит ли точка с координатами (x, y) внутри верх-

ней половины кольца с радиусами r1 и r2 и центром в точке (xc; yc).

23.Преобразовать заданные значения x и y: если x и y отрицательны, то каждое значение заменить его модулем. Если отрицательно только одно из них, оба значения увеличить на 1, если оба значения неотрицательны, то присвоить им значение, равное нулю.

24.Даны шесть монет, из которых одна фальшивая. Фальшивая монета отличается от настоящей монеты только весом, причем она либо немного тяжелее, либо немного легче. Имея рычажные весы, определить ложную монету не более чем за три взвешивания.

25.Определить, лежит ли точка с координатами (x, y) внутри секто-

ра окружности с радиусом r и центром в точке (xc; yc). Стороны сектора параллельны осям координат.

26.Преобразовать заданные значения x и y: если x и y неотрицательны, то присвоить им значение 1; если оба значения отрицательны, то присвоить им значение 0, в противном случае x и y увеличить на 1.

27.Вычислить значение функции y по одной из следующих фор-

мул: y=x2–3, если x<1; y=(x2–3)2, если 1x<5; y= (x2–3)/x, если x5.

67

28.Даны три числа a, b, c. Если хотя бы одно из них равно 1 с погрешностью =0,01, то вычислить y=a+b+c, если все равны 1 с той же погрешностью, то y=1, в противном случае y= a b c.

29.Даны три значения a, b, c. Найти значение, наиболее близкое к

значению (a b–c)/3, вывести это значение и его имя.

30. Даны два произвольных числа a, b. Если оба значения принадлежат отрезку [1, 5], то вычислить R=cos(a) ln(b), в противном случае вывести сообщение «Нет решения».

Пример выполнения задания

Вычислить значение функции z по формуле a2–b2–c2, если a максимально, b2–a2–c2, если b максимально, c2–a2–b2, если c максимально.

Алгоритм решения задачи имеет вид:

68

Writeln( Результаты работы: ); if (a>b) and (a>c)

then begin

z:=a*a-b*b-c*c; Writeln( a максимально ); end else begin

if (b>a) and (b>c) then begin

z:=b*b-a*a-c*c; Writeln( b максимально ); end else begin

z:=c*c-a*a-b*b; Writeln( c максимально ); end;{ if (b>a) and (b>c) }

end; { if (a>b) and (a>c)} Writeln( z= , z:8:4);

end. { program LabWork2 }

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

Программирование разветвлений

с помощью оператора case

Задание

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

Варианты заданий

1. Выведите на экран информацию:

Предоставьте пользователю возможность выбора варианта (ввода номера фигуры), организуйте ввод нужных данных для вычисления площади фигуры и вычислите площадь выбранной фигуры [S1=ah/2;

S2=a2; S3=a b; S4=(a+b)h/2; S5=r2; S6= (r22–r12)].

2.Введите три целых числа d, m, y, соответствующие определенной дате. Выведите название месяца и количество дней месяца, учитывая особенности високосного года.

3.Для натурального числа k напишите фразу «Мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k.

4.Введите число 1n7 и выведите соответствующий этому числу день недели и сообщение, рабочий день или выходной.

5.Введите произвольные числа: n (целое), a и b. Вычислите k – ос-

таток от деления n на 6 и значение переменной y по одной из следующих формул: y=1, если k=0; y=a+b, если k=1; y=a2+b2, если k=2 или 3;

y=asin(b), если k=4; y=aln(b), если k=5.

6. Выведите на экран следующую информацию:

69

Введите номер города и выведите соответствующую страну.

7.Введите произвольный символ и выведите соответствующее этому символу сообщение: «цифровой символ», «большая латинская буква», «малая латинская буква», «большая русская буква», «малая русская буква», «прочие символы».

8.В японском календаре годы носят названия животных и составляют 12-летний цикл (крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи). 1984 год был началом очередного цикла. Составьте программу, которая по номеру введенного года выводит его название по японскому календарю.

9.Введите три целых числа d, m, y. Если тройка чисел образует правильную дату, выведите ее на экран, где название месяца выражено текстом. В противном случае выдайте сообщение об ошибке.

10.Введите целое число 1n100 и два произвольных числа x и y. В зависимости от значения k младшей цифры числа n вычислите значение z по одной из следующих формул: z=1 при k=0; z=x+y при k=1, 7;

z=x2 exp(y) при k=2, 3, 5; z=x y при k=4, 8, 9; z=xln(y) при k= 6.

11. Астрологи делят год на 12 периодов и каждому из них ставят в соответствие знак Зодиака:

Составьте программу, которая вводит дату в виде: «день, месяц, год» и печатает название соответствующего знака Зодиака.

12.Введите символ, который соответствует курсу корабля: C – север, В – восток, Ю – юг, З – запад. Введите другой символ, соответствующий приказу: В – вперед, Н – назад, П – вправо, Л – влево. Определите новый курс корабля.

13.Выведите на экран следующую информацию:

Введите номер страны и выведите ее столицу.

14.Введите число 1n<=12, которое соответствует определенному месяцу года. Составить программу, которая выводит государственные праздники заданного месяца. Если праздников нет, то выдать соответствующее сообщение.

15.Для произвольного целого числа k напишите фразу «У меня в кармане k рублей», согласовав окончание слова «рубль» c числом k.

70

16.Введите целое число 1k30 и выведите его римскими цифрами.

17.Введите два произвольных числа a и b (оба <10). В зависимости

от результата выполнения операции k= (a b)/(a+b) , вычислите значение переменной y по одной из следующих формул: y=1/(a+b) при k=0; y=(a+b)/b2 при k=1,2; y=a2+b2 при k=3; y=bcos(a) при к=4; y=asin(b)

при k=5; y=0 в остальных случаях. – целая часть аргумента.

18.Введите два целых числа n1 и n2 (оба 7), которые соответствуют нотам октавы (0 – до, 1 – ре и т.д.). Определите интервал, образованный нотами (секунда, терция, кварта, квинта, секста, септима), если секунда – это интервал из двух соседних нот, терция – интервал через ноту, и т. д. по кругу.

19.Введите произвольный символ и в зависимости от его типа выполните одно из следующих действий: вывод символа на экран, если он принадлежит к русским символам; вывод порядкового номера сим-

вола, если он относится к латинским; вычисление y=xsin(x), если символ цифровой, где х – цифра, соответствующая введенному символу; выдача сообщения «остальные символы» в остальных случаях.

20. Выведите на экран следующую информацию:

Введите номер страны и выведите название континента, на котором находится страна.

21.Для маркировки товаров принят международный товарный штрих-код EAN-13. Первые 2 (или 3) цифры обозначают код страны. Введите код и определите страну-изготовителя товара. Ниже приведены коды ряда стран: 00, 01, 03, 04, 06 – Канада, США; 30 – 37 – Франция; 380 – Болгария; 40 – 43 – Германия; 460 – 469 – Россия; 47 – Эстония; 49 – Япония; 50 – Великобритания. В остальных случаях выдать сообщение: «Код не опознан».

22.Для целого числа k напечатайте фразу «Мне k лет», учитывая, что при некоторых значениях k слово «лет», надо заменить словом

«год».

23.Для целого числа k напишите фразу «Мы отъехали k километров от дома», согласовав окончание слова «километр» с числом k.

24.Выведите на экран следующую информацию:

Введите номер марки и выведите название страны-производителя. 25. Введите произвольный символ и выведите соответствующее

этому символу сообщение: «цифра», «знак препинания», «латинская буква», «русская буква», «скобка», «прочие символы».

71

26. Введите целое число 1n100 и два произвольных числа x и y. В зависимости от значения k числа десятков n вычислите значение переменной z по одной из следующих формул: z=1 при k=0, 1, 9; z=x2 exp(y)

при k=2, 5, 7; z=xsin(y) при k=3, 4, 8; z= ln(x y) при k= 6.

27.Для произвольного целого числа k напишите фразу «У меня в кармане k ключей», согласовав окончание слова «ключ» c числом k.

28.Введите произвольный символ и выведите его, если символ – русская буква; выведите порядковый номер символа, если символ – латинская буква; выведите сообщение «остальные символы» в остальных случаях.

29.Введите число 1n12 и выведите число дней в соответствующем этому числу месяце.

30.Выведите на экран следующую информацию:

Введите номер улицы и выведите соответствующий район города.

Пример выполнения задания

Введите целое число n и два произвольных числа x и y. В зависимости от значения k остатка от деления n на 5 вычислите значение переменной z по формуле: z=x+y при нечетных k, z=x2+y2 при четных k, в противном случае z=0. Алгоритм решения задачи:

Начало

Ввод n,x,y

k = n mod 5

k

1, 3

z = x+ y

2, 4

z = x2+ y2

z = 0

Вывод n,k,z

Конец

72

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

Исследование функции

с помощью операторов while и repeat

Задание

Составьте алгоритм и программу табулирования и исследования функции f(x) на заданном диапазоне изменения аргумента [x0, xn] с шагом hx. Вид функции и диапазон ее исследования (значения величин x0, xn, hx) выберите произвольно. Для организации цикла табулирования функции последовательно используйте операторы while и repeat. Для организации цикла исследования функции используйте любой из этих операторов. Выполните трассировку программы с использованием встроенного отладчика.

Варианты методов исследования функции

1.Вычислить максимальное по абсолютной величине значение функции и соответствующее значение аргумента.

2.Вычислить количество точек графика функции, лежащих внутри окружности с радиусом r и центром в точке (xc; yc).

3.Вычислить среднее арифметическое значений функции.

4.Вычислить количество значений функции, принадлежащих заданному интервалу (y1; y2).

5.Вычислить количество значений функции, совпадающих с за-

данным значением y1 (с абсолютной погрешностью ).

73

6. Вычислить количество точек графика функции, попадающих в область, ограниченную равнобедренным прямоугольным треугольником с катетами длиной a, параллельными осям координат и пересекающимися в точке (x1; y1).

7.Вычислить количество точек графика функции, лежащих внутри кольца с радиусами r1, r2 и центром в точке (xc; yc).

8.Вычислить сумму и количество положительных значений функции.

9.Определить границы первого отрезка длиной hx, на концах которого функция имеет разные знаки.

10.Вычислить количество точек на графике функции, лежащих ле-

вее прямой, проходящей через точку (a; 0) с углом наклона 45 .

11. Вычислить количество точек на графике функции, попадающих внутрь сектора окружности с радиусом r и центром в точке (xc; yc). Одна сторона сектора параллельна оси OX, угол сектора – 45 .

12.Вычислить количество точек на графике функции, попадающих

в1-й и 3-й квадранты координатной плоскости.

13.Вычислить минимальное по абсолютной величине значения функции и соответствующее значение аргумента.

14.Вычислить количество точек на графике функции, попадающих в прямоугольник, ограниченный линиями с уравнениями x=a, x=b, y=c, y=d.

15.Вычислить количество точек на графике функции, лежащих ле-

вее прямой, проходящей через начало координат с углом наклона 135 .

16.Вычислить количество точек на графике функции, принадлежащих области, ограниченной параболой с уравнением y=ax2 и прямой y=c (с>0).

17.Вычислить количество значений функции, лежащих вне заданного интервала (y1; y2).

18.Вычислить количество точек на графике функции, попадающих в область, ограниченную первым полупериодом синусоиды и осью абсцисс.

19.Вычислить координаты точки первого экстремума функции.

20.Вычислить количество интервалов длиной hx, на которых функция изменяет знак.

21.Вычислить количество точек графика функции, лежащих вне кольца с радиусами r1, r2 и центром в точке (xc; yc).

22.Вычислить количество точек графика функции, лежащих внут-

ри квадрата с вершинами: (–a; 0), (0; a), (a; 0), (0; -a).

23.Вычислить количество точек на графике функции, попадающих во 2-й и 4-й квадранты координатной плоскости.

24.Вычислить количество точек на графике функции, лежащих пра-

вее прямой, проходящей через начало координат с углом наклона 45 . 25. Определить границы последнего отрезка длиной Step, на концах

которого функция имеет разные знаки.

75

Writeln('Диапазон исследования и заданное значение функции (x0, xn, hx, q):');

Writeln('Количество значений функции =', c); end. { program LabWork4 }

76

Лабораторная работа 5

Вычисление сумм и произведений

с помощью оператора for

Задание

Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму (произведение) с использованием оператора for. Значение аргумента (если он есть) выберите с учетом ограничения, приведенного в столбце «Аргумент» таблицы.

77