Автор Мария Типикина задал вопрос в разделе Другие языки и технологии
Паскаль. даны 3 числа. вывести в порядке убывания. воспользоваться вот этой программой см внутри. помогите пожалуйста!!! и получил лучший ответ
Ответ от Александр Филиппов[активный]
вот программа сортирующая n чисел
uses crt;
const nmax=100;
var a:array[1..nmax] of real;
n,i,j:integer;
x:real;
begin
clrscr;
randomize;
repeat
write('n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив: ');
for i:=1 to n do
begin
a:=10*random;
write(a:5:2);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a<a[j]>;
a:=a[j];
a[j]:=x;
end;
writeln('Сортировка: ');
for i:=1 to n do
write(a:5:2);
readln
end.
программа с сайта www .cyberforum. ru/ все вопросы туда уважаемый!! ! C AС А
Гуру
(4343)
может вы его неправильно скопировали? или хотябы проверяли?
работайте с условиями, в чем тут сложность? вам надо помочь или написать за вас?
дали бы ботанику-однокласснику сиськи пожамкать, он бы вам быстро сделал.
А текущая программа нерабочая. я уже писал. .
UPD:
Александр Филиппов, вас где программированию учили?? ? ))хорошо посмелся в конце рабочего дня ))Спасибо
Паскаль не знаю, но с позицией согласен.
Так что вот работающий вариант школьного уровня
program sort4;
var
a,b,c,max,min,senter:real;
mass_a,mass_b,mass_c:byte;
begin
writeln('INPUT a,b,c please');
readln(a,b,c);
max:=a;
if b>a then max:=b;
if c>b then max:=c;
min:=a;
if b
Вот как вариант:
var
x,y,z,min,max,sr:integer;
begin
write ('x= ');
readln (x);
write ('y= ');
readln (y);
write ('z= ');
readln (z);
if(xz)
then min:=x;
if(y<z) then
max:=z;
sr:=y;
else
max:=y;
sr:=z;
esle if(y<z) then
min:=y;
if (x<z) then
max:=z;
sr:=z;
else
min:=z;
sr:=y;
max:=x;
if(y<z) then
min:=y;
if (x<z) then
max:=z;
write(min,sr,max);
end.