Question

С помощью паскаля!

1.   Задано x.
Вычислить у(1 картинка):
2.    Даны действительные числа x,
y
(x≠y).
Меньшее из этих двух чисел заменить их
полусуммой, а большее - их удвоенным
произведением.
3.   Отредактируйте задачу zadacha3_11
так, чтобы при вводе
произвольного символа программа
выдавала ответ:
"Введена некорректная
арифметическая операция";
4.     Даны действительные числа х, у.
Получить:     max(x,y);                                              min(x,y);              max(x,y) и
min(x,y);

Answer 1

1)
var x,y:real;
begin
write('Введите число ');
readln(x);
if x<3 then y:=x*x-5;
if (x>=3) and (x<=7) then y:=x;
if x>7 then y:=x-3;
writeln(y)
end.

2)
var x,y,s,p:real;
begin
readln(x,y);
s:=(x+y)/2;
p:=2*x*y;
if x<y then  
   begin   
      x:=s;
      y:=p
      end
   else
      begin
         y:=s;
         x:=p
         end;
writeln('x=',x,'; y=',y)
end.

3)
var 
   a,b,s:real;
   sim:char;
   f:boolean;
Begin
f:=true;
writeln('Введите два числа');
readln(a,b);
writeln('Введите знак операции');
readln(sim);
case sim of
   '+': s:=a+b;
   '-': s:=a-b;
   '*': s:=a*b;
   '/': s:=a/b
   else f:=false
   end;
if f then writeln ('результат ',a,sim,b,' = ',s) 
   else writeln('Введена некорректная арифметическая операция')
End.

4)
var x,y,min,max:real;
Begin
writeln('Введите два числа');
readln(x,y);
if x<y then
   begin
      min:=x;
      max:=y
      end
   else
      begin
         min:=y;
         max:=x
         end;
writeln ('min=',min,'; max=',max,'; min+max=',min+max)
End.

Answer 2

Найти макс., мин. и их сумму что-ли?

Answer 3

и их сумму

Answer 4

сейчас добавлю

Answer 5

Только смысла не вижу, это же будет сумма исходных чисел. Но как сказано, так и сделано. Все. Готово

Answer 6

спасибо