1.var a,b,c:integer; d,x1,x2:real; begin; readln(a); readln(b); readln(c); d:=sqr(b)-4*a*c; if d<0 then writeln('Нет корней') else if d=0 then begin; x1:=-b/(2*a); writeln(x1); end else begin; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(x1); writeln(x2); end; end. 2)var x1,y1,x2,y2:integer; r1,r2,rr:real; begin; readln(x1); readln(y1); readln(x2); readln(y2); r1:=sqrt(sqr(x1)+sqr(y1)); r2:=sqrt(sqr(x2)+sqr(y2)); if r1>r2 then begin; rr:=r1-r2; write('Расстояние от точки А до начала координат больше, чем расстояние от точки В до начала координат на ',rr,' единиц'); end else if r1<r2 then begin; rr:=r2-r1; write('Расстояние от точки B до начала координат больше, чем расстояние от точки A до начала координат на ',rr,' единиц'); end else write('Точки A и B равноудалены от начала координат'); end.
ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV поколений стояли такие задачи, как увеличение производительности в области числовых расчётов, достижение большой ёмкости памяти, то основной задачей разработчиков ЭВМ V поколения является создание искусственного интеллекта машины (возможность делать логические выводы из представленных фактов), развитие "интеллектуализации" компьютеров - устранения барьера между человеком и компьютером. Компьютер теперь используется и дома, это компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов. Уже сейчас компьютеры воспринимать информацию с рукописного или печатного текста, с бланков, с человеческого голоса, узнавать пользователя по голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний в этой области.
#8 крива
#9 симетрія