Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4*(x-5)*(x+3); end; begin a: =-20; - id240419820230405 от Mihael13 05.04.2023 22:16

Question

Информатика: Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4*(x-5)*(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t) r)then begin m: =t; r: =f(t); end; end; write(r); end. будет -64, объясните пож, каким образом?

Mihael13 · Accepted Answer

var a,b,c:integer;
begin read(a,b,c);
if (a > b) and (a > c) then
  write(a)
else
if (b > a) and (b > c) then
  write(b)
else
  write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer;
begin
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
if (a > b) and (a > c) then
  max:= a;
else
if (b > a) and (b > c) then
max:= b;
else
  max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max);
end.

Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4(x-5)(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t)< r)then begin m: =t; r: =f(t); end; end; write(r); end. будет -64, объясните пож, каким образом?

MOGZ ответил

Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4*(x-5)*(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t)< r)then begin m: =t; r: =f(t); end; end; write(r); end. будет -64, объясните пож, каким образом?

MOGZ ответил

Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4(x-5)(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t)< r)then begin m: =t; r: =f(t); end; end; write(r); end. будет -64, объясните пож, каким образом?