![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
maksimla |
![]()
Сообщение
#1
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 324 Пол: Мужской Реальное имя: maksim Репутация: ![]() ![]() ![]() |
задание надо написать не уменьшительном порядке методом пузырька написать алгоритм в программе
program rikiavimas;
const n= 20;
type intervalas = 1..n;
masyvas = array [intervalas] of intervalas;
var a:masyvas;
maziausias, indeksas, ilgis, j: intervalas;
keitimas: boolean;
i:0..n;
begin
randomize;
WriteLn('введите длину массива не больше 20;');
Readln(ilgis);
writeln('не упорядоченный массив');
for i:= 1 to ilgis do
begin
a[i]:=1 + random(20);
writeln(a[i]:3);
end;
writeln;
i:=0;
repeat
{начало}
i:=i+1;
for j:= 1 to ilgis-1 do
if a[j+1]<a[j] then
begin
maziausias:=a[j+1];
a[j+1]:=a[j];
a[j]:=maziausias;
end;
if i=ilgis then keitimas:=true;
{ конец}
until keitimas;
writeln('óļīšåäźīāąķķūé ģąńńčā');
for i:=1 to ilgis do write(a[i]:3);
readln;
end.
где начало и конец в этом может можно както изменить программу а так всю ненадо может подскажете иди никак не изменишь тут больше этим методом пузырька -------------------- Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
|
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 21:17 |