1) такое составной оператор? В каких случаях составной оператор используется в операторе ветвления? 2) составьте программу сортировки по
5-9 класс
|
возрастанию значений трех переменных: А Б С в системе паскаль
1) Составной оператор — конструкция языка программирования, состоящая из нескольких команд (операторов) языка программирования, но участвующая в программе в качестве единого оператора.
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.
Другие вопросы из категории
чашечных весов без гирь найдите среди этих 5 монет одну золотую и купите почтальону Печкину велосипед. Сделайте это при помощи двух взвешиваний. Золотыя монета более тяжёлая". Дядя Фёдор помог своим друзьям справится с этим заданием. Как он действовал? Впишите действия Дяди Фёдора в блок схему.
Сообщение занимает 3 страницы на странице 4 строки в строке 2 символа. Определите информационный объём сообщения,если при составлении этого сообщения использовали 128 символьный алфавит.
об остановке шарика в одной из лунок? 1) 8 бит 2) 5 бит 3) 2 бита 4) 1 бит
1)сделал дело,гуляй смело
2)где песня поётся,там весело живётся.
Читайте также
1.Если это часы на циферблате
2.это 16-ичная систем счисления
3.Такое,невозможно,ни при каких условиях
4.Если это римские числа
а) Если это часы на циферблате
б) Если это 16-ичная система счисления
в) Такое невозможно, ни при каких условиях
г) Если это римские числа.
Информатика 9 класс.
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.