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

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

1

Ответы и объяснения

  • Участник Знаний
2014-03-20T16:54:07+04:00
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.
Найти макс., мин. и их сумму что-ли?
и их сумму
сейчас добавлю
Только смысла не вижу, это же будет сумма исходных чисел. Но как сказано, так и сделано. Все. Готово
спасибо