Написать программу на Pascal ABC. (Разветвления)

[VladimirAvakov]

Даны действительные числа a, b, c, d. Если a≤b≤c≤d, то каждое число заменить наибольшим из них; если a>b>c>d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.

Ребят помогите пожалуйста срочно. Заранее большое спасибо.

[Serge_Bliznykov]

if (a<=b) and (b<=c) and (c<=d) then 
   begin
      a:=d; b:=d; c:=d
   end
else
 if not ((a>b) and (b>c) and (c>d)) then 
    begin
       a := sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d);
    end;

и это всё.

[VladimirAvakov]

Вбил ваш код в Pascal ABC и выдает ошибки, можете пересмотреть еще раз пожалуйста?

Скажите а такой код правильный?

program p2;
label 1;
var
a:array[1..4] of real;
max:real;i:integer;
begin
write('vedite a-');read(a[1]);
write('vedite b-');read(a[2]);
write('vedite c-');read(a[3]);
write('vedite d-');read(a[4]);
if(a[1]<=a[2]) and (a[2]<=a[3]) and (a[3]<=a[4]) then
begin
max:=a[1];
for i:=2 to 4 do if (max<=a[i]) then max:=a[i];
for i:=1 to 4 do a[i]:=max;
end else
if(a[1]>a[2]) and (a[2]>a[3]) and (a[3]>a[4]) then goto 1 else
for i:=1 to 4 do a[i]:=a[i]*a[i];
1:for i:=1 to 4 do writeln(a[i]);
end.

[BDA]

program p2;
var
  a, b, c, d: real;

begin
  write('vedite a ');
  readln(a);
  write('vedite b ');
  readln(b);
  write('vedite c ');
  readln(c);
  write('vedite d ');
  readln(d);
  if (a <= b) and (b <= c) and (c <= d) then
  begin
    a := d;
    b := d;
    c := d;
  end
  else if not((a > b) and (b > c) and (c > d)) then
  begin
    a := sqr(a);
    b := sqr(b);
    c := sqr(c);
    d := sqr(d);
  end;
  writeln(a:0:0, ' ', b:0:0, ' ', c:0:0, ' ', d:0:0);
  readln;
end.

1) Не используйте метки (тем более, когда можно легко обойтись без них)
2) Искать максимум нету смысла, т.к. d - самое большое, что следует из самого условия захода в эту ветку
3) Не забывайте о форматировании кода - читать и исправлять неудобно

[VladimirAvakov]

Спасибо большое, но вопрос: зачем тут not? и можно ли без него обойтись?

program p2;
var
  a, b, c, d: real;

begin
  write('vedite a ');
  readln(a);
  write('vedite b ');
  readln(b);
  write('vedite c ');
  readln(c);
  write('vedite d ');
  readln(d);
  if (a <= b) and (b <= c) and (c <= d) then
  begin
    a := d;
    b := d;
    c := d;
  end
  else if not((a > b) and (b > c) and (c > d)) then
  begin
    a := sqr(a);
    b := sqr(b);
    c := sqr(c);
    d := sqr(d);
  end;
  writeln(a:0:0, ' ', b:0:0, ' ', c:0:0, ' ', d:0:0);
  readln;
end.

[BDA]

program p2;
var
  a, b, c, d: real;

begin
  write('vedite a ');
  readln(a);
  write('vedite b ');
  readln(b);
  write('vedite c ');
  readln(c);
  write('vedite d ');
  readln(d);
  if (a <= b) and (b <= c) and (c <= d) then
  begin
    a := d;
    b := d;
    c := d;
  end
  else if (a > b) and (b > c) and (c > d) then//пустая ветка, при истинном условии
  else
  begin
    a := sqr(a);
    b := sqr(b);
    c := sqr(c);
    d := sqr(d);
  end;
  writeln(a:0:0, ' ', b:0:0, ' ', c:0:0, ' ', d:0:0);
  readln;
end.

Можно, но выглядеть будет глупо. not - отрицание утверждения.

Про раскрытие выражений забыл

[Serge_Bliznykov]

пожалуйста, всегда рад помочь..

зачем тут not?

not - это логическое отрицание (not ( true ) == false и, наоборот, not (false) == true )

и можно ли без него обойтись?

разумеется

else if not((a > b) and (b > c) and (c > d)) then
....

можно переписать и без not
способ 1 (раскрываем not по правилам логических преобразований )

  end
  else if (a <= b) or (b <= c) or (c <= d)) then
  begin
    a := sqr(a);
    b := sqr(b);
    c := sqr(c);
    d := sqr(d);
  end;

способ 2. (меняем ветку, в которой мы производим возведение в степень)

  end
  else if (a > b) and (b > c) and (c > d) then
  begin
     {пустой оператор - нам ничего не нужно делать: если a>b>c>d, то числа оставить без изменения}
  end
  else { иначе - возводим числа в квадрат...}
  begin
    a := sqr(a);
    b := sqr(b);
    c := sqr(c);
    d := sqr(d);
  end;

UPDATE
BDA опередил чуток..