Программирование на Турбо Паскале
Задания к лабораторным работам
Оглавление
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