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

Натуличка · 18.03.2012, 18:33

Данны действительные числа Х и 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 · 18.03.2012, 19:04

Разумеется, преподаватель абсолютно прав и "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.

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

18.03.2012, 18:33	#1 (permalink)
Натуличка Member Регистрация: 06.02.2012 Сообщений: 46 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в Паскале, оператор условия Данны действительные числа Х и 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(xy)); if (y>x) then (x=(x+y)/2) and (y=2(xy)); writeln ( x,y); end задача не получается, мой преподаватель говорит, что при описании условий здесь ненадо использовать and. помоги, что тогда мне нужно?

18.03.2012, 19:04	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Разумеется, преподаватель абсолютно прав и "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:=2xy; end else begin x1:=(x+y)/2; y1:=2xy; end; writeln('x= ',x1:0:3,' y= ',y1:0:3); readln end. А вообще, уважаемая Натуличка, уж извините, что сую нос, куда не следует, но так дело не пойдет. Я вижу, что, судя по Вашим потугам, за полтора месяца Вы ничуть не продвинулись в освоении азов программирования. Полагаете, всё так всегда и будет - мол, дяденьки с форумов за меня всё решат, а мне, любимой, учиться ни к чему? Ну-ну...

18.03.2012, 18:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Очень важно почитать схожие темы, возможно, что там уже есть нужный вам ответ Задача на Паскале Задача на Паскале, какие-то условия не проходят, помогите пожалуйста! Задача в паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070