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

@Эла · Регистрация: 13.04.2011

Студворк — интернет-сервис помощи студентам

Здраствуйте уважаемые программисты!не могли бы вы помочь разобратся с задачей:
Сформировать массив р из 20 элементов, i – ый элемент которого определяется по формуле:
Р_i=x*c^i (sin x/i), где:х=0,225. Расставить в порядке возрастания элементы массива.
Мой макрос (почему то выдает значения в разноброс!!!)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Sub задача5()
 Dim p(100)
 x = InputBox("Введите значение x")
 c = InputBox("Введите значение c")
 For i = 1 To 20
 p(i) = x * (c) ^ (i) * (Sin(x / i))
 Next i
 
 For i = 1 To 20
 If (p(i) <= p(i + 1)) Then
 k = p(i)
 p(i) = p(i + 1)
 p(i + 1) = k
 End If
 Next i
 
 For i = 1 To 20
 
 Cells(i, 7).Value = p(i)
 Next i
 
 End Sub

@gaw · 02.05.2011, 17:58

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim p(100) As Single, k#, i%, j%
 
x = InputBox("Ââåäèòå çíà÷åíèå x")
c = InputBox("Ââåäèòå çíà÷åíèå c")
For i = 1 To 20
p(i) = x * (c) ^ (i) * (Sin(x / i))
Next i
 
For i = 1 To 19
  For j = i + 1 To 20
   If p(i) > p(j) Then
     k = p(i)
      p(i) = p(j)
       p(j) = k
    End If
  Next j
Next i
 
For i = 1 To 20
 
Cells(i, 7).Value = p(i)
Next i

@Анюта*** · 06.06.2011, 17:25

помогите плиз эту же программу сделать в паскале!!!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Анюта*** 11 / 1 / 0 Регистрация: 06.06.2011 Сообщений: 17
	06.06.2011, 17:25
	помогите плиз эту же программу сделать в паскале!!! 0

Опции темы