Var A, B, C, D, X, X1, X2 : Real; Begin Writeln ('Введите коэффициенты уравнения (A, B, C) '); readln(a,b,c); If A=0 Then If B=0 Then If C=0 Then Writeln('X - любое число') Else Writeln('Корней нет! ') Else Begin X:=-C/B; Writeln('X=',X:8:3); End Else Begin D:=B*B-4*A*C; If D<0 Then Writeln ('Корней нет! ') Else Begin X1:=(-B+SQRT(D))/2/A; X2:=(-B-SQRT(D))/2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); End; End; End.
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
Program asd; Var B,C,D:array[1..2500] of integer; i,max,min,n:integer; BEGIN Writeln('Введите размерность одномерного массив D: '); Readln(n); max:=D[1]; for i:=1 to n do begin Write('Введите D[',i,']: '); Readln(D[i]); If max<D[i] then max:=D[i]; end; Writeln('Максимальный элемент в массиве: ',max); Writeln('Положительный массив B из D: '); min:=D[1]; For i:=1 to n do begin If D[i]>0 then B[i]:=D[i]; If D[i]<0 then C[i]:=D[i]; If min>C[i] then min:=C[i]; Write(B[i]:4); end; writeln; Writeln('Отрицательный массив C из D: '); For i:=1 to n do begin Write(C[i]:4); end; Writeln(); Writeln('Минимальный элемент в массиве С: ',min); END.
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
End;
End;
End.