Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal оформить программу через процедуру или функцию uses crt; var mas:array of integer; masmin:array of integer; i,j,n:integer; sum,k,min,nomst:integer; begin clrscr; randomize; https://www.cyberforum.ru/ pascal/ thread185070.html	Pascal Сортировка Отсортируйте пожалуйста - "Нечетные столбцы по убыванию."
Pascal задание матрица помогите задание матрица из nn элементов сформировать новую матрицу, повернув исходную на 180 например: 17 80 80 59 2 28 46 82 37 новая матрица: 37 82 46 28 2 59 80 80 17 https://www.cyberforum.ru/ pascal/ thread185060.html	Pascal Перевести в постфиксную нотацию Нужно написать фрагмент программы(или хотябы алгоритм) для перевода из нам привычной в постфиксную форму. (это для калькулятора) Например выражение, например из 5(8+2)-(4/2+1) в 582+42/1+- https://www.cyberforum.ru/ pascal/ thread185046.html
Pascal Матрица. Найти 2 одинаковые строки и вывести их Добрый вечер, помогите написать программу на паскале: Создать матрицу A. Найти две строки, в которых элементы одинаковы, но могут стоять в различной последовательности. Вывести номера строк и их значения Вот прогуглил нашел программу, но надо чтобы была не через процедуры.Помогите переделат. uses crt; type Tmatr=array of integer; var a,b:Tmatr; n,m,i,j,s1,s2:integer;	Pascal Ввести число Х и определить, делится ли оно на 2, на 5, на 3 https://www.cyberforum.ru/ pascal/ thread185005.html Доброго вечера Уважаемые Форумчане, помогите пожалуйста с задачей!: Ввести число Х и определить, делится ли оно на 2, на 5, на 3.
Pascal Преобразовать строку S в строку длины N Помогите пожалуйста!!!! Дано целое число N (> 0) и строка S. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы «» (точка). https://www.cyberforum.ru/ pascal/ thread185000.html	Работа со Строками Pascal Дана строка текста. Группы символов, разделенных одним или несколькими пробелами назовём словами.Пробелы могут находиться как в начале, так и в конце текста. Требуется выделить слова из текста и каждое слово записать в соответствующий элемент массива.Напечатать те слова которые отличны от последнего слова и удовлетворяют следующему свойству. а)Слово симметрично б)Первая буква слова входит в...
Pascal Graph. Секторная диаграмма Доброго времени суток дорогие форумчане. Нужна помощь в написании программы: Секторная Диаграмма - это круг, площади секторов которого пропорцианальны соответсвтующим числовым величинам, взятым из некоторой совокупности. Даны семь действительных положительных чисел. Построить секторную диаграмму для этих значений. Для большей наглядности секторы диаграммы закрасьте в разные цвета. https://www.cyberforum.ru/ pascal/ thread184980.html	Pascal оператор выбора написать программу которая по введенному номеру года выводят название по японскому календарю(крыса,змея,лошадь,овца,обезьяна,корова,свинья) использовать надо оператор выбора. помогите кто сможет пожалуйста https://www.cyberforum.ru/ pascal/ thread184974.html
Pascal Определить максимальный элемент матрицы в заштрихованной области Напишите функцию определяющую максимальный элемент матрицы в заштрихованной области x x x x x x x x x x x x	Pascal Дана матрица целых чисел размером 4х4. Дана матрица целых чисел размером 4х4. Увеличить все четные элементы на 16, а нечетные элементы увеличить втрое. Вывести на экран содержимое обратной матрицы. https://www.cyberforum.ru/ pascal/ thread184962.html

Best-pm07

..:::BesT:::..

8 / 8 / 5

Регистрация: 19.03.2009

Сообщений: 195

02.11.2010, 19:07 [ТС]

Среднее геометрическое - Pascal - Ответ 1078907

02.11.2010, 19:07. Показов 10089. Ответов 12

Метки (Все метки)

Ответ

Вот переделал, но есть НЕДОЧЕТЫ, которые я не понимаю как ИСПРАВИТЬ.
А именно:
Например, у меня сгенерировало числа:
5 2 3 0 1
Программа считает так:
- Выбирает положительные (5 2 3 1)
- Отсеивает четные (5 3 1)
- И вычисляет следующим образом
--> корень 5 степени из (5x3x1)
В итоге: 1,718771928...

Когда должно быть:
--> корень 3 степени из (5x3x1) // 3 степени (!), так как элементов у нас, после отсеивания, 3.
Поэтому ПРАВИЛЬНЫЙ ответ: 2,466212074...

Помогите сделать, чтобы в

Pascal

kol

было ПРАВИЛЬНОЕ значение СТЕПЕНИ.
Сколько сижу - не пойму как.

Pascal

uses wincrt;
var a:array[1..100]of integer;
    i,n,kol:integer;
    p,geom:real;
begin
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ: ');
readln(n);
writeln('Ìàññèâ');
randomize;
for i:=1 to n do
begin
     a[i]:=random(20);
     write(a[i]:3);
end;
p:=1;
for i:=1 to n do
begin
if (a[i]>0) and (odd(a[i])) then
P:=p*a[i];
inc(kol);
geom:=exp(ln(p)*(1/kol));
end;
writeln;
write('Srednee geometricheskoe: ',geom:3:5);
end.

Вернуться к обсуждению:
Среднее геометрическое Pascal

Следующий ответ

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

02.11.2010, 19:07

Готовые ответы и решения:

Найти среднее арифметическое этих чисел и среднее геометрическое их модулей
Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их...

Вычислить среднее арифметическое кубов / среднее геометрическое модулей двух данных чисел
даны 2 числа написать программу для вычесления среднего арифймитического кубов этих чисел, и...

Найдите среднее арифметическое и среднее геометрическое
Даны два действительных положительных числа.Найдите среднее арифметическое и среднее геометрическое...

Вычислить среднее арифметическое и среднее геометрическое
While Дано вещественное число E(>0). Последовательность вещественных чисел Ак определяется...

	02.11.2010, 19:07

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

02.11.2010, 19:07

Помогаю со студенческими работами здесь

Среднее геометрическое
Знайти середнє геометричне число всіх цілих додатних чисел менших 10.

Среднее геометрическое
Помогите плиз с заданием, весь день не могу понять как сделать. Без использования формулы суммы...

Среднее геометрическое и арифметическое
Помогите пожалуйста написать процедуру которая вычисляет среднее геометрическое и арифметическое...

Среднее геометрическое чисел 1…N (N<10).
помогите решить плз Вычислить среднее геометрическое чисел 1…N (N<10) Заранее благодарен.

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

Наверх