Задание 4
Дано действительное число a. Для функции y = f(x), график которой приведен на рисунк , вычислить y = f(a).
Алгоритм решения задачи
Результаты.
1). a = 0, y = 1;
2). a = 1.75, y = 3.06;
3). a =3, y = 4.
Вывод
Изучил условные операторы. Научился работать в среде Pascal с ними.
Листинг программы
var a,y :real;
BEGIN
write('vedite chislo a');
readln(a);
if (a<=1)
then y:=1
else
if (a>1) and (a<=2)
then y:= a*a
else
y:=4;
writeln('y=',y:6:2);
readln
END.
Задание 5
Даны три действительных числа A, B, C. Если B <A<C , то все три числа удвоить ,если A<B<C , то максимальное из этих трех чисел возвести в квадрат , в противном случае все три числа заменить минимальным из них.
Алгоритм решения задачи
Результаты.
1)a=4 , b=2 ,c=6
2) a=1, b=2 , c=9
3)a=3,b=3 ,c=3
Вывод
Изучил условный оператор в языке Pascal. Научился использовать его при составлении нелинейных ветвящихся алгоритмов.
Листинг программы
var a,b,c :real;
BEGIN
write ('vedite chisla a,b,c');
readln(a,b,c);
if (a>b) and (a<c) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
if (a<b) and (b<c) then
c:= c*c
else
begin
a:=c;
b:=c;
c:=c;
end;
writeln('a=',a:6:2,'b=',b:6:2,'c=',c:6:2);
readln
END.