1. var x,y:integer; begin write('x = '); readln(x); if x>0 then y:=1 else if x=0 then y:=0 else y:=-1; writeln('y = ',y); end.
Пример: x = -5 y = -1
2. var a,b,c,x1,x2,d:real; begin writeln('Введите a, b, c:'); readln(a,b,c); d:=b*b-4*a*c; if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1 = ',x1,' x2 = ',x2); end else if d=0 then begin x1:=-b/(2*a); writeln('x = ',x1); end else writeln('Корней нет'); end.
Пример: Введите a, b, c: 2 5 -3 x1 = 0.5 x2 = -3
3. var a,b,c:real; begin writeln('Введите a, b, c:'); readln(a,b,c); if (a<=b)and(b<=c) then begin b:=a; c:=a; end else begin a:=-a; b:=-b; c:=-c; end; writeln('a = ',a,' b = ',b,' c = ',c); end.
Пример 1: Введите a, b, c: 2 5 9 a = 2 b = 2 c = 2
Пример 2: Введите a, b, c: 2 9 5 a = -2 b = -9 c = -5
ramzaev09
17.09.2022
) от единиц, справа налево отсчитывать разряды - единицы, десятки, сотни... и выясняем, что 6 - это десятки миллионов. И говорим: "шесть/десят семь миллионов...". Переходя к математической записи можно заметить, что 67453422 = 6 × 10⁷ + 7 × 10⁶ + 4 × 10⁵ + 5 × 10⁴ + 3 × 10³ + 4 × 10² + 2 × 10¹ + 2 × 10⁰ Если число не целое, то десятичную дробь мы тоже может записать по разрядам. Рассмотрим пример. 0.384 - это ноль целых и триста (три сотни) восемьдесят (восемь десятков) четыре тысячных. Но это число можно представить и иначе:
И теперь пример нецелого числа. 192.64 = 1 × 10² + 9 × 10¹ + 2 × 10⁰ + 6 × 10⁻¹ + 4 × 10⁻² Мы проставляем степени десяти начиная с нулевой для позиции единиц влево с нарастанием на единицу и вправо с уменьшением на единицу. Это и есть расширенная запись числа. Но её можно проводить по любому основанию, а не только по основанию 10. В частности, для двоичной системы мы будем записывать степени уже не десятки. а двойки. 11.101₂ = 1 × 2¹ + 1 × 2⁰ + 1 × 2⁻¹ + 0 × 2⁻² + 1 × 2⁻² И останется только выполнить нужные действия. На единицу можно не умножать, достаточно просто брать сами значения степеней двойки, а на ноль тоже незачем умножать - просто отбрасывать соответствующие слагаемые. Получаем 2¹ + 2⁰ + 2⁻¹ + 2⁻³ = 2 + 1 + 1/2 + 1/8 = 3 + 0.5 + 0.125 = 3.625 Вот и все! Так же поступаем и с прочими примерами. 101.1₂ = 2² + 2⁰ + 2⁻¹ = 4 + 1 + 1/2 = 5.5 1101.1101₂ = 2³ + 2² + 2⁰ + 2⁻¹ + 2⁻² + 2⁻⁴ = 8 + 4 + 1 + 1/2 + 1/4 + 1/16 = 13 + (8+4+1)/16 = 13 + 13/16 = 13.8125
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0
then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 = ',x1,' x2 = ',x2);
end
else if d=0 then begin
x1:=-b/(2*a);
writeln('x = ',x1);
end
else writeln('Корней нет');
end.
Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3
3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
then begin
b:=a; c:=a;
end
else begin
a:=-a; b:=-b; c:=-c;
end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2
Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5