Ребят, помогите пожалуйста. Завтра сдавать просто. Прошу, не проходите мимо. Заранее спасибо.Решите пожалуйста 4, 7, 8 задачи. Или хотя бы одну из них.
Answers & Comments
SanGreen74Задание №1 var x1,x2,y1,y2:longint; begin writeln('Введите координаты точки A (x1;y1)'); read(x1,y1); writeln('Введите координаты точки B (x2;y2)'); read(x2,y2); if sqrt(sqr(x1)+sqr(y1))>sqrt(sqr(x2)+sqr(y2)) then writeln('Точк В ближе') else if sqrt(sqr(x1)+sqr(y1))<sqrt(sqr(x2)+sqr(y2)) then writeln('Точк А ближе') else writeln('Точки равноудалены от начала координат'); end.
Задание №2 Пункт А) var x,y:real; begin writeln('Введите число x'); read(x); if x<=2 then y:=sqr(x)+4*x+5; if x>2 then y:=1/(sqr(x)+4*x+5); writeln('Y = ',y); end.
Пункт Б) var x,y:real; begin writeln('Введите число x'); read(x); if (x>=0) and (x<=3) then y:=sqr(x); if (x>3) or (x<0) then y:=4; writeln('Y = ',y); end.
Задание №3 var m1,m2,m3,n1,n2,n3,p1,p2,p3,s1,s2,s3:integer; begin writeln('Введите через пробел баллы, которые набрал Иванов '); read(m1,n1,p1); writeln('Введите через пробел баллы, которые набрал Петров '); read(m2,n2,p2); writeln('Введите через пробел баллы, которые набрал Сидоров '); read(m3,n3,p3); s1:=m1+n1+n1; s2:=m2+n2+n2; s3:=m3+n3+n3; if (s1>s2) and (s1>s3) then writeln('Победитель набрал ', s1); if (s2>s1) and (s2>s3) then writeln('Победитель набрал ', s2); if (s3>s1) and (s3>s2) then writeln('Победитель набрал ', s3); end.
Answers & Comments
var x1,x2,y1,y2:longint;
begin
writeln('Введите координаты точки A (x1;y1)');
read(x1,y1);
writeln('Введите координаты точки B (x2;y2)');
read(x2,y2);
if sqrt(sqr(x1)+sqr(y1))>sqrt(sqr(x2)+sqr(y2)) then writeln('Точк В ближе')
else if sqrt(sqr(x1)+sqr(y1))<sqrt(sqr(x2)+sqr(y2)) then writeln('Точк А ближе')
else writeln('Точки равноудалены от начала координат');
end.
Задание №2
Пункт А)
var x,y:real;
begin
writeln('Введите число x');
read(x);
if x<=2 then y:=sqr(x)+4*x+5;
if x>2 then y:=1/(sqr(x)+4*x+5);
writeln('Y = ',y);
end.
Пункт Б)
var x,y:real;
begin
writeln('Введите число x');
read(x);
if (x>=0) and (x<=3) then y:=sqr(x);
if (x>3) or (x<0) then y:=4;
writeln('Y = ',y);
end.
Задание №3
var m1,m2,m3,n1,n2,n3,p1,p2,p3,s1,s2,s3:integer;
begin
writeln('Введите через пробел баллы, которые набрал Иванов ');
read(m1,n1,p1);
writeln('Введите через пробел баллы, которые набрал Петров ');
read(m2,n2,p2);
writeln('Введите через пробел баллы, которые набрал Сидоров ');
read(m3,n3,p3);
s1:=m1+n1+n1;
s2:=m2+n2+n2;
s3:=m3+n3+n3;
if (s1>s2) and (s1>s3) then writeln('Победитель набрал ', s1);
if (s2>s1) and (s2>s3) then writeln('Победитель набрал ', s2);
if (s3>s1) and (s3>s2) then writeln('Победитель набрал ', s3);
end.