Дано 3 переменных A,B,C.

[Ken_Watanabe]

Всем добрый день! Нужен код в Делфи решить на форме с использованием оператора case и for do, и если можно блок схемму.
Дано 3 переменных A,B,C. Если их значений расположены с возрастанием, надо удвоить их. Если в обратном порядке тогда значение переменных надо поменять на противоположную.

Спасибо за ранее!

[Foreseen]

А если они равны?

[Ken_Watanabe]

Сообщение от Foreseen

А если они равны?

об этом не говорилось в заданий. Нужно просто решить с возрастанием и в обратном.

помогите пожалуйста с задчкой

ошибки нет, но ниче не выводит, исправьте пожалуйста

procedure TForm1.btn1Click(Sender: TObject);
var
  a,b,c:Integer;
  q,s:string;
  i:Integer;
begin
 q:=edt1.text;
 s:='';
if (a<b)and(b<c)then
begin
    a:=2*a;
    b:=2*b;
    c:=2*c;
end
       else
  if (a>b)and(a>c)then
  begin
    a:=2*(-a);
    b:=2*(-b);
    c:=2*(-c);
  end;
 end;
end.

[Stilet]

Эту задачу нельзя решить циклом.

[Foreseen]

Дык и не выведет, ибо ничего в Edit не передается. И где в вашем коде оператор case и for?

[min@y™]

Сфотографируй оригинал задания и покажи. Это очень надо.

[Ken_Watanabe]

Код Delphi
1 procedure TForm1.Button1Click(Sender: TObject);
2 var a,b,c:Integer;
3 begin
4 memo1.Clear;
5 a:=strtoint(edit1.text);
6 b:=strtoint(edit2.text);
7 c:=strtoint(edit3.text);
8 if (a<b) and (b<c) then
9 begin
10 a:=2*a;
11 b:=b*2;
12 c:=c*2;
13 Memo1.Text:='A='+inttostr(a)+' B='+inttostr(b)+' C='+inttostr(c);
14 end
15 else if (a>b) and (b>c) then
16 begin
17 a:=-a;
18 b:=-b;
19 c:=-c;
20 Memo1.Text:='A='+inttostr(a)+' B='+inttostr(b)+' C='+inttostr(c);
21 end
22 else Memo1.Text:='Числа не упорядочены'
23 end;

[Stilet]

Ken_Watanabe

Судя по заданию тут нет ни for ни case, поэтому решено с ошибкой.
С циклом конечно решение есть, но явно не школьного уровня. Задание в студию или уточни у препода, что это за чухню он тебе задал.

[Foreseen]

Насувал аж 2 цикла, но скорее всего задача подразумевает его использование только при заполнении переменных.
П.С. В жизни не писал кода хуже

procedure TForm1.Button1Click(Sender: TObject);
var
i, m: integer;
mass: array [0..3]of integer;
s: string;
begin
s:=Edit1.Text;
Edit1.Text:='';
i:=0;
for m:=0  to length(s) do
 begin
  Edit1.Text:=Edit1.Text+s[m];
  if (s[m]=' ')then
   begin
    Edit1.Text:=trim(Edit1.Text);
    mass[i]:=strtoint(Edit1.Text);
    Edit1.Text:='';
    i:=i+1;
   end;
 end;
mass[3]:=mass[2]-mass[0];
 for i := 0 to 2 do
  case (mass[i]>mass[i+1]) and (mass[3]<0) of
   true: mass[i]:=mass[i]*2;
   false: mass[i]:=-mass[i];
  end;
Edit1.Text:=inttostr(mass[0])+' '+inttostr(mass[1])+' '+inttostr(mass[2]);
end;

end.

[Stilet]

mass: array [0..3]of integer;

и

Дано 3 переменных A,B,C.

садитесь, два

Как по мне задание какое-то никакое...