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.
4) Оценка правильности ответа (полный оператор ветвления - если ответ пользователя верен, то увеличиваем значение k и выводим сообщение о верности ответа, иначе выводим сообщение об ошибочности ответа и верный ответ)
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.
program z1;
var i,x,y,z,k:integer;
begin
k:=0;
randomize;
writeln ('Проверка знания Таблицы умножения');
writeln;
for i:=1 to 5 do
begin
x:=random(9)+1;
y:=random(9)+1;
writeln ('Сколько будет ',x,' * ',y);
write ('Ваш ответ ');
readln (z);
if z=x*y then
begin
k:=k+1;
writeln ('Правильно!')
end
else writeln ('Неправильно! ',x,' * ',y,' = ',x*y);
writeln
end;
writeln;
writeln ('Количество правильных ответов ',k)
end.
Объяснение:
Цикл с параметром (5 вопросов):
1) Числа генерируются случайным образом от 1 до 9
2) Вывод на экран вопроса
3) Ввод ответа пользователем
4) Оценка правильности ответа (полный оператор ветвления - если ответ пользователя верен, то увеличиваем значение k и выводим сообщение о верности ответа, иначе выводим сообщение об ошибочности ответа и верный ответ)
Вывод на экран количество правильных ответов