Вопрос № 147739: Подчитать число Пи по формуле Мечина , которая выглядит : Пи/4=4arctg1/5-arctg1/239 arctg1/x=1/x-1/3x^3+1/5x^5-... Надо решить с и без функций. ОЧ прошу помогите! И на масивчик. НАйти наибольший елемент матрици Х (15х2...Вопрос № 147798: Здравствуйте уважаемые эксперты! Есть произвольно заданный небольшой одномерный массив целых чисел. Помогите написать прогамму, которая должна найти 5 самых максимальных элементов
массива и вывести их на экран с указанием индекса из массива,<br...
Вопрос № 147.739
Подчитать число Пи по формуле Мечина , которая выглядит : Пи/4=4arctg1/5-arctg1/239
arctg1/x=1/x-1/3x^3+1/5x^5-...
Надо решить с и без функций. ОЧ прошу помогите!
И на масивчик.
НАйти наибольший елемент матрици Х (15х20) и вписать нули в тот ряд и столбез где он находитсо.
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Шпак Олександр Олександрович! Вторая задача с пояснениями:
Код:
const {Размеры матрицы} N = 15; M = 20;
var {Матрица} X: array [1..N, 1..M] of integer; {i, j-счетчики для For, ii, jj - номера строки и столбца с максимальным числом}
i, j, ii, jj: integer; {Максимальное число} max: integer;
begin {Заполняем матрицу случайными числами [-50; 49] и выводим её на экран} WriteLn('Матрица X, заполненная случайными числами: '); Randomize; for i:=1 to N do begin for j:=1 to M do begin X[i, j]:=random(100)-50; Write(X[i, j]:4); end; WriteLn; end; {Инициируем значения строки, столбц
а и максимального числа} max:=X[1, 1]; ii:=1; jj:=1; {Ищем максимально ечисло путем перебора всех элементов матрицы} for i:=1 to N do for j:=1 to M do {Если текужий элемент больше максимального то запоминаем его} if X[i, j] > max then begin ii:=i; jj:=j; Max:=X[i, j]; end; {Обрабатываем матрицу и выводим её на экран} WriteLn('Максимальное число: ', max, ' в столбце ', jj,
' в строке ', ii); for i:=1 to N do X[i, jj]:=0; for i:=1 to M do X[ii, i]:=0; WriteLn('Результат: '); for i:=1 to N do begin for j:=1 to M do Write(X[i, j]:4); WriteLn; end; ReadLn; end.
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Шпак Олександр Олександрович!
Первая задача в приложении. Выводится три результата: полученные без функций, с помощью своей функции и контрольное значение числа Pi. Изменяя константу Z Вы можете добится необходимой точности вычислений. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 20.10.2008, 14:35 Оценка за ответ: 5
Вопрос № 147.798
Здравствуйте уважаемые эксперты! Есть произвольно заданный небольшой одномерный массив целых чисел. Помогите написать прогамму, которая должна найти 5 самых максимальных элементов массива и вывести их на экран с указанием индекса из массива, т.е.
Код:
Имя_массива [ индекс
] = значение Massiv[31] = 22 Massiv[10] = 20 ...
Отправлен: 20.10.2008, 02:06
Вопрос задал: Upgrader (статус: Студент)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)
Отвечает: Шичко Игорь
Здравствуйте, Upgrader! При решении такой задачи мы должны при сортировке элементов массива производить кроме этого перестановку и их номеров. Поэтому кроме массива элементов логично иметь дополнительный массив номеров элементов. Примерный код - в приложении.
Приложение:
Ответ отправил: Шичко Игорь (статус: Студент)
Ответ отправлен: 20.10.2008, 08:22 Оценка за ответ: 5
Отвечает: Чабаненко Владислав Дмитриевич
Здравствуйте, Upgrader! Вот программа, комментарии см. в приложении. Good luck!
Приложение:
Ответ отправил: Чабаненко Владислав Дмитриевич (статус: Заблокирован)
Ответ отправлен: 20.10.2008, 15:41 Оценка за ответ: 5 Комментарий оценки: Спасибо, то что надо.
