VPF::[Pascal] Сортировка пузырьком! - Форум программистов

N2N

Дата 27.6.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет

Помогите:

1. С клавиатуры вводится натуральное число К.
Все числа от 1 до К включительно отсортируйте в порядке возростания суммы делителей числа.
(сортировка пузырьком) .

2. С клавиатуры вводится натуральное число Т - кол-во элементов последовательности, а затем последовательность из Т целых чисел. Из последовательности вычеркнули все повторяющиеся элементы. Определите, сколько чисел осталось в последовательности.

Это сообщение отредактировал(а) N2N - 27.6.2007, 17:30

DimkraS

Дата 27.6.2007, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: 1
Всего: 3

Цитата

суммы делителей числа

вот это не понял. а так сортировка методом пузырька несложна, вот пример:

Код


const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
    i,j,x:integer;
begin
     writeln('введите ',n,' элементов массива');
     for i:=1 to n do readln( a[i] );

     for i:=1 to n-1 do begin
         for j:=i+1 to n do begin
           if a[i]>a[j] then begin
              x:=a[i]; a[i]:=a[j]; a[j]:=x;
           end;
         end;
     end;
     writeln('после сортировки:');
     for i:=1 to n do writeln( a[i] );
end.

Это сообщение отредактировал(а) DimkraS - 27.6.2007, 18:08

--------------------

N2N

Дата 27.6.2007, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет

Цитата(DimkraS @ 27.6.2007, 18:00)

Цитата

суммы делителей числа

вот это не понял. а так сортировка методом пузырька несложна, вот пример:

Код


const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
    i,j,x:integer;
begin
     writeln('введите ',n,' элементов массива');
     for i:=1 to n do readln( a[i] );

     for i:=1 to n-1 do begin
         for j:=i+1 to n do begin
           if a[i]>a[j] then begin
              x:=a[i]; a[i]:=a[j]; a[j]:=x;
           end;
         end;
     end;
     writeln('после сортировки:');
     for i:=1 to n do writeln( a[i] );
end.

Это и есть проблема.

Сумма делителей это, например:

Есть число 6, оно делится на 6,1,2,3

6:6=1
6:1=6
6:2=3
6:3=2

1+6+3+2= 12 - сумма делителей числа 6

Вот это надо на Паскале написать, я не знаю как((

DimkraS

Дата 28.6.2007, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: 1
Всего: 3

Я это дело реализовал на бесике, и всё работает вот код:

Код


    chislo = Text1.Text
    ReDim mas1(chislo) As Integer
    ReDim mas2(chislo) As Integer
    For i = 1 To chislo
        mas1(i) = mas1(i - 1) + 1
        For p = 1 To chislo
            If mas1(i) Mod p = 0 Then
                mas2(i) = mas2(i) + p
            End If
        Next p
    Next i

В этом коде прога записывает в массив все суммы делителей числа от 1 до K.(дальше его можно уже будет сортировать) Но тебе нужно на паскале, давно с ним неработал поэтому рабочик код на паскале дать не могу, могу тока примерно написать, но алгоритм думаю из вышенаписанного ясен.

вот примерно как это на паскале выглядит:

Код


program puz;
uses crt;
var
chislo,i,p:integer;
mas1,mas2:array[1..6] of integer;
begin
clrscr;
writeln('Vvedite chislo');
read(chislo);
for i:=1 to chislo do begin
    mas1[i]:=mas1[i-1]+1;
    for p:=1 to chislo do begin
        if mas1[i] mod p = 0 then begin
           mas2[i] := mas2[i] + p
        end;
    end;
end;
writeln('kolichestvo ',mas2[6]);
read(mas2[6]);
end.

Это сообщение отредактировал(а) DimkraS - 28.6.2007, 12:48

--------------------

tyz0101

Дата 4.10.2010, 05:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.6.2009

Репутация: нет
Всего: нет

ужас
N2N даже спасибо не сказал DimkraS хотя за него тут он лабу сделал

Это сообщение отредактировал(а) tyz0101 - 4.10.2010, 05:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »