Вычислить значение функции, заданной графически. Рисунок графика выбрать в соответствии с номером своего варианта:
/* графики содержат фрагменты линейных и квадратичных функций */
program prac4;
var x:real;
begin
readln(x);
if x<0 then writeln(sqr(x+1)) else if x>1 then writeln(-2*x+3) else writeln(1);
writeln(‘Vipolnil Kovrigin Anatoliy’);readln;
end.
Вопросы к лабораторной работе №2
Что такое логическое выражение? Каков порядок вычисления значения логического выражения?
Логическое выражение – выражение, выполняемое в булевой алгебре.
Какие служебные слова используются для записи условных операторов?
if then else, case of,repeat until,while do,begin end
Когда применяется краткая , а когда полная форма записи оператора if?
краткая – когда нужно выполнить код только если условие совпало, а если нет – то ничего не делать, а полная – когда нужно выполнить один код, когда условие совпало, а второй – когда не совпало.
В чём отличия и сходство условного оператора if и оператора варианта case? Взаимозаменяемы ли они?
if позволяет обрабатьывать только одно условие, для обработки второго нужно делать вложенные условия, а case обрабаывает много, но позволяет работать только с перечисляемыми типами.
case всегда заменяем на if,но if не всегда можно заменить на case.
Расскажите об особенностях записи вложенных условных операторов.
Вложенные условные операторы записываются там, где должен быть код в родительских операторах.
Занятие №3: Решение задач на составление программ разветвляющейся структуры. Решение уравнений и неравенств с использованием условного оператора.
Определить, имеется ли среди целых чисел a, b и с хотя бы одно четное.
program prac1;
label z;
const N=3;
var
a,i:integer;
begin
for i:=1 to N do begin
readln(a);
if odd(a) then continue else
begin
writeln('est''');
goto z;
end;
end;
writeln('net');
z:
writeln('Vipolnil Kovrigin Anatoliy');
readln;
end.
Записать выражение, зависящее от координат точки М(-0.8; 0.9) и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.
Координаты исследуемой точки: (0.75; -0.3) Область (II, III, IV четверти):
-5 3 X -1 |
5
Y
program prac2;
var x,y:real;
begin
readln(x,y);
if ((x+5>=y) and (-x/5-1<=y) and (x<=0)) or ((x<0) and (y<3) and (x/3-1<y)) then writeln('correct') else writeln('incorrect');
writeln('Vipolnil Kovrigin Anatoliy');
readln;
end.
Составить программу решения системы неравенств:
Напечатать исходные данные и результаты.
program prac3;
const N=1;
var A,B,C:array[0..N] of real;
x:real;
i:integer;
begin
for i:=0 to N do
begin
writeln('vvedite A',i,' B',i,' C',i);
readln(A[i],B[i],C[i]);
end;
writeln('sistema:');
writeln(' -');
writeln(' | ',A[0]:0:4,'X+',B[0]:0:4,'Y+',C[0]:0:4,'>0');
writeln('<|');
writeln(' | ',A[1]:0:4,'X+',B[1]:0:4,'Y+',C[1]:0:4,'>0');
writeln(' -');
if A[0]/B[0]>A[1]/B[1] then i:=1;
x:=(b[0]*c[1]/(b[1]*a[0])-c[0])/(1-b[0]*a[1]/(b[1]*a[0]));
writeln('y > ',(-C[i]/B[i]):0:4,'-',(A[i]/B[i]):0:4,'x, gde x<',x:0:4);
dec(i);
i:=abs(i);
writeln('y > ',(-C[i]/B[i]):0:4,'-',(A[i]/B[i]):0:4,'x, gde x>=',x:0:4);
writeln('Vipolnil Kovrigin Anatoliy');
readln;
end.
