Вычислить значение выражения

@Майоров Дмитрий · Регистрация: 13.02.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, задача вроде не сложная, но чет не могу понять как все условия расположить, что б решить задачу!
Задать R и P. Если R>P, то вычислить и напечатать z=R-P, иначе z=P-R.
Вычислить и распечатать при различных значениях z:
z > 0, y = z
z = 0, y = R + P
z < 0, y = 1- z

@ZX Spectrum-128 · 23.01.2015, 15:27

Это две разные задачи? Или две в одной?

@Майоров Дмитрий · 23.01.2015, 15:33 **[ТС]**

Это вроде одна задача:

@Майоров Дмитрий · 23.01.2015, 15:37 **[ТС]**

вот как она выглядит на самом деле, фото, я и сам не могу разобраться че к чему!

@ZX Spectrum-128 · 23.01.2015, 16:34

Pascal

var
  r,p,y,z:real;
begin
  write('R? '); readln(r);
  write('P? '); readln(p);
  if r>p then
    z:=r-p
  else
    z:=p-r;
  writeln('Z: ',z);
  if z>0 then
    y:=z
  else
    if z=0 then
      y:=r+p
    else
      y:=1-z;
  writeln('Y: ',y);
end.

@Майоров Дмитрий 4 / 4 / 0 Регистрация: 13.02.2013 Сообщений: 33
		1
	Вычислить значение выражения 23.01.2015, 15:26. Показов 1603. Ответов 4 Метки нет (Все метки) Помогите пожалуйста, задача вроде не сложная, но чет не могу понять как все условия расположить, что б решить задачу! Задать R и P. Если R>P, то вычислить и напечатать z=R-P, иначе z=P-R. Вычислить и распечатать при различных значениях z: z > 0, y = z z = 0, y = R + P z < 0, y = 1- z 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	23.01.2015, 15:27	2
	Это две разные задачи? Или две в одной? 1

@Майоров Дмитрий 4 / 4 / 0 Регистрация: 13.02.2013 Сообщений: 33
	23.01.2015, 15:33 [ТС]	3
	Это вроде одна задача: 0

@Майоров Дмитрий 4 / 4 / 0 Регистрация: 13.02.2013 Сообщений: 33
	23.01.2015, 15:37 [ТС]	4
	вот как она выглядит на самом деле, фото, я и сам не могу разобраться че к чему! Миниатюры 0

	23.01.2015, 16:34

Вычислить значение выражения

Решение