1
: 111
..
:
..
2011
1
: .
: , .
: .
:
1. :
, , .
2. :
2.1. .
, ( ) . , .
3. :
3.1.
LR1 Turbo Pascal 7.0. .
3.2.
. .
: , .
3.3.
, .
. . max .
max . , max, , . .
, .
- , 1.1.
1.1 -
:
program , , . - .
var , , .
begin end. , .
. . .
|
|
: , . .
()
prog ram lr1;
Var
x,y, max: real;
Begin
writeln('vvedite chislo X');
readln(x);
writeln('vvedite chislo Y');
readln(y);
max:=y;
{uslovie vybora znacheniy
max-promegutochnoe znachenie maximalnogo znacheniya
x - iznachalnoe znachenie y
y - iznachalnoe znachenie x}
if (x>max) then
Begin
max:=x;
x:=y;
y:=max;
end;
writeln('rezultat');
writeln('x=',x:9:2,' y=',y:9:2);
readln;
end.
()
1.1 ( 1)
1.2 ( 2)