Воскресенье, 22 Октября 2006 г. 15:44
+ в цитатник
В колонках играет - СплинНастроение сейчас - ХЗОчень простенькая программка
Program lab1;
uses crt;
var
mas : array[0..2] of integer;
i, j, k, m, s, n :integer;
begin
clrscr;
writeln('Vvedite tri chisla');
write('a=');
readln(mas[0]);
write('b=');
readln(mas[1]);
write('c=');
readln(mas[2]);
writeln;
if (mas[0]<0) or (mas[1]<0) or (mas[2]<0) then
{ vyvod rezultatov v poryadke vozrastaniya absolutnyh velichin}
begin
for s:=0 to 2 do
mas[s]:=abs(mas[s]);
{ sortirovka metodom puzyrka}
for i:=0 to 1 do
begin
j:=0;
k:=0;
for m:=i to 2 do
if mas[m] > k then
begin
k:=mas[m];
j:=m; {poziciya maksimal'nogo elemente massiva}
end;
k:=mas[i];
mas[i]:=mas[j];
mas[j]:=k;
end;
writeln('vyvod rezultatov v poryadke vozrastaniya absolutnyh velichin');
writeln('---');
n:=0;
for n:=2 downto 0 do
writeln(mas[n]);
writeln('---')
end
{vyvod rezultatov v poryadke postupleniya}
else
begin
writeln('vyvod rezultatov v poryadke postupleniya');
writeln('---');
for n:=0 to 2 do
writeln(mas[n]);
writeln('---');
end;
end.
Вложение: 3545949_dasha.txt
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-