1) такое составной оператор? В каких случаях составной оператор используется в операторе ветвления?

2) составьте программу сортировки по возрастанию значений трех переменных: А Б С в системе паскаль

2

Ответы и объяснения

2013-04-07T14:49:22+04:00

1) Составной оператор — конструкция языка программирования, состоящая из нескольких команд (операторов) языка программирования, но участвующая в программе в качестве единого оператора.

2013-04-07T15:13:45+04:00

 

uses
crt;
var
a,b,c,e,i:integer;
d:array [1..3] of integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
d[1]:=a;
d[2]:=b;
d[3]:=c;
for i:=1 to 2 do
if d[i]>d[i+1] then
begin
e:=d[i];
d[i]:=d[i+1];
d[i+1]:=e;
end;
for i:=1 to 3 do
writeln(d[i]);
end.

 

 

ну или вот попроще

program sort;
uses crt;
var t,a,b,c: integer;
begin
Write('Vvedite a,b,c: ');
readln(a,b,c);
repeat
repeat
if a>b then begin
t:=a;
a:=b;
b:=t;
end;
if b>c then begin
t:=b;
b:=c;
c:=t;
end;
if a>c then begin
t:=b;
c:=a;
a:=t;
end;
until ((a<b) and (b<c));
writeln('Результат: ',a,' ',b,' ',c);
readkey;
end.