Задачи повышенной сложности

Программирование на Турбо Паскале

 

 

Задания к лабораторным работам

 

 


Оглавление

 

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

1.1. Варианты заданий. 3

1.2. Пример решения задачи. 6

1.3. Задачи повышенной сложности. 7

2. Лабораторная работа № 2. 8

2.1. Задание 1. Ветвление с двумя альтернативами. 8

2.1.1. Варианты заданий на ветвление с двумя альтернативами. 8

2.1.2. Пример решения задачи. 11

2.2. Задание 2. Вложенные ветвления. 12

2.2.1. Варианты заданий на вложенные ветвления: 12

2.2.2. Пример решения задачи. 16

2.3. Задание 3. Оператор выбора. 17

2.3.1. Варианты заданий на оператор выбора. 17

2.3.2. Пример решения задачи. 21

2.4. Задачи повышенной сложности. 23

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

3.1. Варианты заданий к лабораторной работе № 3. 24

3.2. Пример решения задачи. 27

4. Задания к лабораторной работе № 4. 31

4.1. Варианты заданий. 31

4.2. Пример решения задачи. 34

5. Задания к лабораторной работе № 5. 36

5.1. Варианты заданий. 36

5.2. Пример решения задачи. 39

6. Задания к лабораторной работе № 6. 41

6.1. Варианты заданий. 41

6.2. Пример решения задачи. 43

7. Задания к лабораторной работе № 7. 46

7.1. Варианты заданий к лабораторной работе №7. 46

7.2. Пример решения задачи. 51

8. Порядок выполнения работ. 52

 

 


 

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

Тема: Арифметическое выражение

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

Задание: Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значений функции y=f(x) при заданном значении x, которое вводится с клавиатуры.

Таблица 1.1

Номер варианта y=f(x) Исходные данные

Пример решения задачи

Задание:

Решение: 1.Блок-схема алгоритма приведена на рисунке.

 

Рисунок 1.1.

 

 
 

 

 


2.Текст программы:

program p1;

var a,b,c,x,y:real;

begin

a:=1.5;b:=2.1;c:=3.22;

write('введите x=');

readln(x);

y:=(sqr(a)+ln(b*x))/(exp(x)+cos(c*x));

writeln('при x=',x:4:2,' значение y=',y:5:2);

readln;

end.

3.Результат выполнения контрольного примера:

при x=2.34 значение y= 0.36


Задачи повышенной сложности

 

Таблица 1.2

№ варианта Задание
Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b.
Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.
Найти произведение цифр заданного четырехзначного числа
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
Даны два действительных числа x и y.Вычислить их сумму, разность, произведение и частное
Вычислить корни квадратного уравнения , заданного коэффициентами a, b и c (предполагается, что a¹0 и что дискриминант уравнения неотрицателен).
Дано действительное число x. Не пользуясь никакими другими арифметическими операциями, кроме умножения, сложения и вычитания, вычислить за минимальное число операций
Дано x. Получить значения и . Позаботиться об экономии операций.
Дано a. Не используя никаких функций и никаких операций, кроме умножения, получить за три операции; и за четыре операции.
Полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят X кошек за Y часов?
Дана величина А , выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации.

 


 

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

Тема: Разветвляющиеся алгоритмы

Задание 1. Ветвление с двумя альтернативами

Задание: Составить схему алгоритма и программу на языке Паскаль для вычисления значений функции y = f(x) при произвольных значениях x. Получить результат работы программы для двух заданных значениий x. Варианты заданий в таблице 2.1.

Варианты заданий на ветвление с двумя альтернативами

Таблица 2.1

Номер вар. Y=f(x) Исходные данные
a=1,25 u=-0,22 v=0,01 1)x=-0,85 2)x=2,34
a=18,225 z=-3,298 1)x=1,825 2)x=3,546
a=-2,75 z=0,15 1)x=8,45 2)x=16,55
a=0,750 z=0,845 1)x=-4,500 2)x=2,320
a=-8,750 z=0,765 1)x=0,100 2)x=2,76

Пример решения задачи

Задание:

1) при x= 5.00 2) при x= 1.20

Решение: 1.Блок-схема алгоритма вычислений представлена на рисунке.

Рисунок 2.1

 
 

 

 


 

 

Да

 

 

Нет

 

2.Текст программы.

 

program p2;

var a,b,x,y:real;

begin

a:=3.7;b:=6.1;

write('введите x=');

readln(x);

if x<=2 then y:=b+3*cos(x)*sqr(cos(x))

else y:=sqrt(a*sqr(x)+7*x+10);

writeln('при x=',x:5:2,' значение y=',y:5:2);

readln;

end.

 

3.Результат выполнения контрольного примера

 

при x= 5.00 значение y=11.73

при x= 1.20 значение y= 6.24


Задание 2. Вложенные ветвления

Задание. Составить схему алгоритма и два варианта программы на языке Паскаль для вычисления значений функции y=f(x) при произвольных значениях x. Варианты заданий в таблице 2.2.

2.2.1. Варианты заданий на вложенные ветвления:

Таблица 2.2

Номер варианта Y=F(x) Исходные данные
   

Пример решения задачи

Задание:

 

 

При a=3,7 b=6,1 и значениях Х 1) Х =-1,16 2) Х= 1.32 3) Х =3.9

 

Решение:1.Блок-схема программы с вложенным ветвлением.

Рисунок 2.2

 
 

 

 


Нет

 

 

Да

Нет

 

 

Да

 

 

2.Текст программы.

 

program p3;

var a,b,x,y:real;

begin

a:=3.7;b:=6.1;

write('введите x=');

readln(x);

if x<-1 then y:=x+2*b

else if x<=2 then y:=exp(-x)

else y:=cos(a*x);

writeln(' при x=',x:5:2,' значение y=',y:5:2);

readln;

end.

 

3.Результат выполнения контрольного примера

 

при x=-1.16 значение y=11.04

при x= 1.32 значение y= 0.27

при x= 3.90 значение y=-0.29


Задание 3. Оператор выбора

Задание. Составить схему алгоритма и программу на языке Турбо Паскаль для вычисления значений функции y=f(x) при произвольных значениях x. Варианты заданий в таблице 2.3.

Варианты заданий на оператор выбора

Таблица 2.3

Номер варианта Y=F(x) Исходные данные
a=2,1 b=6,7 x=-2; 4; 6; 8
a=7,1 b=3,2 x=-1; 3; 4; 6
a=2,73 b=1,68 x=-2; 3; 5; 7
a=3,9 b=4,6 x=1; 2; 5; 8
a=3,9 b=4,6 x=-2; 1; 3; 4
a=7,1 b=4,2 x=3; 4; 7; 8
a=2,6 b=5,1 x=1; 2; 4; 5
a=2,7 b=-3,59 x=-1; 1; 3; 5
a=1,8 b=3,3 x=1; 3; 4; 6
a=6,72 b=4,85 x=1; 5; 4; 7
a=1,7 b=6,6 x=1; 2; 3; 5
a=2,1 b=0,7 x=-2; 0; 1; 2
a=4,8 b=0,51 x=-2; 1; 4; 8
a=0,19 b=6,1 x=-2; 2; 4; 7
a=5,5 b=3,1 x=0; 1; 2; 5
a=7,2 b=3,9 x=1; 4; 6; 9
    a=2,7 b=1,5 x=-2; 1; 2; 3
a=4,8 b=0,64 x=1; 3; 4; 6
a=3,9 b=2,4 x=1; 3; 5;12
a=4,27 b=1,39 x=-3; 2; 3; 5
a=3,6 b=1,7 x=1; 6; 8; 9
a=6,27 b=5,13 x=-2; 1; 2; 5
a=2,2 b=3,4 x=-3; 2; 4; 5
a=4,9 b=1,3 x=1; 2; 6; 7
a=2,7 b=4,4 x=1; 3; 4; 6
a=0,46 b=1,39 x=0; 2; 3; 5
a=1,24 b=5,17 x=1; 2; 4; 5
a=1,76 b=2,34 x=1; 2; 3; 5
a=0,65 b=1,43 x=-1; 0; 1; 2
a=0,55 b=4,31 x=0; 2; 3; 5

 


 

Пример решения задачи

Задание: Вычислить

 

 

Решение:

1.Блок-схема алгоритма с оператором выбора приведена на рис. 2.3.

Рисунок 2.3

 

 

Нет

 

 

Да

 

 

Нет

 

Да

 

Нет

 

Да

 


2.Текст программы

 

program p3a;

var a,b,y:real;

x:integer;

begin

a:=3.7;b:=6.1;

write('введите x='); readln(x);

case x of

-2: y:=x+2*b;

1: y:=exp(-x);

3: y:=cos(a*x);

else begin writeln ('значение xзадано неверно' );

writeln('нажми Enter');

readln;

exit;

end;

end;

writeln('при x=',x,' значение y=',y:5:2);

readln;

end.

 

3.Результат выполнения контрольного примера.

 

при x=-2 значение y=10.20

при x=1 значение y= 0.37

при x=3 значение y= 0.10

vvedite x=5

значение xзадано неверно

нажми Enter