Question

Задачи по Паскалю.Условный оператор.1.Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.2.Найдите решение уравнения ах+ в=0, если оно существует,если а=03.написать программу удвоения меньшего из двух чисел

Answer 1

1)
program chik2;
var a,b,c:real;
begin
readln(a,b);
if(a<b)then begin
c:=a;
a:=(a+b)/2;
b:=b*c;
end;
if(a>=b)then begin
c:=b;
b:=(a+b)/2;
a:=a*c;
end;
writeln(a,' ',b);
end.
2)
program chik;
var a,x,b:real;
begin
readln(a,b);
if(a=0)and(b<>0)then writeln('НЕТ решений');
if(a<>0)then begin
 x:=-b/a;
writeln(x);
end;
end.
3)

program chik3;
var a,b:real;
begin
readln(a,b);
if(a<b)then a:=a*2 else
if(b<a)then b:=b*2;
writeln(a,' ',b);
end.

Answer 2

1. Для решения данной задачи в Паскале может быть использован условный оператор, который позволит выполнить различные действия в зависимости от условия. Ниже представлен пример программы на Паскале для решения данной задачи:

program ReplaceNumbers;

var
  a, b, smaller, larger, result: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  
  if a < b then
  begin
    smaller := a;
    larger := b;
  end
  else
  begin
    smaller := b;
    larger := a;
  end;
  
  result := (smaller + larger) / 2;
  writeln('Меньшее число заменено полусуммой: ', result);
  
  result := smaller * larger;
  writeln('Большее число заменено произведением: ', result);
end.

2. Для нахождения решения уравнения ax + b = 0 можно использовать условный оператор для проверки условия наличия решения. Ниже представлен пример программы на Паскале для решения данной задачи:

program SolveEquation;

var
  a, b, x: real;

begin
  writeln('Введите значения a и b в уравнении ax + b = 0:');
  readln(a, b);
  
  if a <> 0 then
  begin
    x := -b / a;
    writeln('Решение уравнения: x = ', x);
  end
  else
  begin
    writeln('Уравнение не имеет решения, так как a = 0');
  end;
end.

3. Для написания программы удвоения меньшего из двух чисел также можно использовать условный оператор. Ниже представлен пример программы на Паскале для решения данной задачи:

program DoubleSmallerNumber;

var
  a, b, result: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  
  if a < b then
  begin
    result := a * 2;
    writeln('Удвоенное меньшее число: ', result);
  end
  else
  begin
    result := b * 2;
    writeln('Удвоенное меньшее число: ', result);
  end;
end.

Это примеры программ на Паскале, решающие задачи с использованием условного оператора.