Задача в Паскале, оператор условия

[Натуличка]

Задача в Паскале, оператор условия

Данны действительные числа Х и Y-не равны друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее ихудвоенным произведенимне нужно решить эту задачу при помощи условия.
вот как это сделала я:
program zadacha:
var x, y : real;
begin
writeln ('ввод x,y');
readln ( x,y);
if (x>y)then(y=(x+y)/2)and (x=2*(x*y));
if (y>x) then (x=(x+y)/2) and (y=2*(x*y));
writeln ( x,y);
end
задача не получается, мой преподаватель говорит, что при описании условий здесь ненадо использовать and. помоги, что тогда мне нужно?

 

[Vladimir_S]

Разумеется, преподаватель абсолютно прав и "and" тут ни к селу, ни к городу. Правильно так (извините - не проверял, проверьте сами):

program zadacha:
var 
 x,y,x1,y1: real;
begin
  writeln ('ввод x,y');
  readln ( x,y);
  if (x>y) then
   begin
    y1:=(x+y)/2;
    x1:=2*x*y;
   end
  else
   begin
    x1:=(x+y)/2; 
    y1:=2*x*y;
   end;
  writeln('x= ',x1:0:3,'     y= ',y1:0:3);
  readln
end.

А вообще, уважаемая Натуличка, уж извините, что сую нос, куда не следует, но так дело не пойдет. Я вижу, что, судя по Вашим потугам, за полтора месяца Вы ничуть не продвинулись в освоении азов программирования. Полагаете, всё так всегда и будет - мол, дяденьки с форумов за меня всё решат, а мне, любимой, учиться ни к чему? Ну-ну...