- •Лабораторная работа №1.
- •Задание 1. Ветвление с двумя альтернативами
- •Лабораторная работа №3.
- •Тема: Операторы повторений
- •Блок-схема алгоритма вычислений с использованием оператора цикла с предусловием while Блок-схема алгоритма вычислений с использованием оператора цикла с предусловием while
- •Лабораторная №4.
- •Ввод Cij
- •3. Результат выполнения контрольного примера.
- •Лабораторная №7.
Лабораторная работа №1.
Задание: Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значений функции y=f(x) при заданном значении x, которое вводится с клавиатуры.
|
|
Блок-схема:
Program p1;
Var
a,b,c,x,y:real;
begin
a:=7.2;b:=14.3;c:=13.4;
write(‘введите x=’);
readln(x);
y:=(sqrt(c*x+62.7*exp(x)))/(a*sqr(x)+7*x+b*ln(x));
writeln(‘при x=’,x:4:2,’значение y=’,y:5:2);
readln;
end.
Лабораторная работа №2.
Задание 1. Ветвление с двумя альтернативами
Задание: Составить схему алгоритма и программу на языке Паскаль для вычисления значений функции y = f(x) при произвольных значениях x. Получить результат работы программы для двух заданных значениий x. Варианты заданий в таблице 2.1.
|
|
Вывод
X,
Y
конец
Ввод
X
Блок-схема:
начало
X <= 3
program p2;
var a,b,x,y:real;
begin
a:=10,2;b:=13,4;
write('введите x=');
readln(x);
if x<=3 then y:=b+2*ln(abs(x))
else y:=sqr(x)/sqr(x)+a;
writeln('при x=',x:5:2,' значение y=',y:5:2);
readln;
end.
Задание 2. Вложенные ветвления
Задание. Составить схему алгоритма и два варианта программы на языке Паскаль для вычисления значений функции y=f(x) при произвольных значениях x.
|
|
Блок-схема:
program p3;
var a,b,x,y:real;
begin
a:=2.1;b:=6.7;
write('введите x=');
readln(x);
if x<-2 then y:=x*x*x+2*a
else if x<=5 then y:=ln(abs(cos(b*x)))
else y:=sqr(x)*exp(x);
writeln(' при x=',x:5:2,' значение y=',y:5:2);
readln;
end.
Задание 3. Оператор выбора
Задание. Составить схему алгоритма и программу на языке Турбо Паскаль для вычисления значений функции y=f(x) при произвольных значениях x.
|
a=2,1 b=6,7 x=-2; 4; 6; 8 |
Блок-схема:
Конец
Вывод
сообщения
Вывод
Х,
Y
program p3a;
var a,b,y:real;
x:integer;
begin
a:=2.1;b:=6.7;
write('введите x='); readln(x);
case x of
-3: y:=x*x*x+2*a;
4: y:=ln(abs(cos(b*x)));
6: y:= y:=sqr(x)*exp(x);
else begin writeln ('значение x задано неверно' );
writeln('нажми Enter');
readln;
exit;
end;
end;
writeln('при x=',x,' значение y=',y:5:2);
readln;
end.