Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Произведение матриц Задача: Даны две матрицы размером 3x3. Написать программу получения коммутатора АВ-ВА и антикоммутатора АВ+ВА этих матриц. Вычисление произведения матриц оформить в виде процедуры. https://www.cyberforum.ru/ pascal/ thread86830.html Поиск максимума без алгоритма ветвления. Pascal
Задача состоит в том, что нужно найти максимум и минимум двух натуральных чисел, не используя алгоритм ветвления. Намекните хотя бы на мысль плз. Заранее спасибо!
Pascal Напишите,пожалуйста, программу на паскале Найти min и max https://www.cyberforum.ru/ pascal/ thread86814.html Pascal Растояние между точками. Нужно написать 4 программы!!!!!! Ну или хотябы сколько сможите!!!!!! Задания: 1. Даны координаты 2-х точек на плоскости (Ха;Yа) и (Xb;Yb). Составить программу вычисления расстояния между этими точками. Исходные данные водить с клавиатуры. На экран результат и исходные даные!!!!!!!!! 2.Дана сторона квадрата. Составить программу, которая определяет площадь кольца между вписаной в квадрат... https://www.cyberforum.ru/ pascal/ thread86812.html
Pascal сортировка матрицы
Я по примеру отсортировал все столбцы матрицы по увеличению, методом обмена, потскажите где нужно задать условие чтобы отсортировать только положительные элементы. Исходник: Program w; uses crt; const n=4; m=5; var a: array of integer; k,t,i,j: integer; begin clrscr; Randomize; TextColor(green); writeln('Первоначальная матрица');
Pascal Вывести списки предприятий, выпускающих одинаковую продукцию. https://www.cyberforum.ru/ pascal/ thread86809.html
Даны массивы: H1,....,H5 шифры предприятий 1-ой группы HH1,...., HH8 шифры предприятий 2-ой группы N1,....., N5 наименование продукции предприятий 1-ой группы NH1,....., NN8 наименование продукции предприятий 2-ой группы Вывести списки предприятий, выпускающих одинаковую продукцию. Ребят, может кто нибудь помочь? Для сочувствующих, вот еще одна задача, но это если вы совсем хороший...
Pascal Телефонная книга Здравствуйте! Есть такое задание: по списку содержащему фамилии, имена и отчества, рабочий и домашний телефоны сформировать телефонную книгу. Но, добавлено вот что: исходные данные задачи должны вводиться из последовательного файла; последовательный файл формируется с помощью текстового редактора; последовательный файл переписывается в файл прямого доступа; обработка данных осуществляется с... https://www.cyberforum.ru/ pascal/ thread86808.html Pascal Проверить, расположены ли символы строки в алфавитном порядке
Напишите программу, которая вводит текстовую строку из букв латинского алфавита и проверяет, расположены ли символы в алфавитном порядке.
Pascal Записи с вариантами Создать массив записей, структура которого: Учебное заведение Лицей Учебное направление Методика преподавания ВУЗ государственный Количество факультетов. https://www.cyberforum.ru/ pascal/ thread86782.html Pascal Даны несколько слов. Выведите их в алфавитном порядке. https://www.cyberforum.ru/ pascal/ thread86781.html
Ребята, помогите пожалуйста решить задачу. Слова произвольные. Задача собственно и есть название темы. Спасибо заранее.
Pascal Программа линейной структуры
1.Клоун предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот задумывал. Составьте программу, которая повторяла бы фокус клоуна. 2.Поместятся ли две...
Pascal Дан массив из N чисел нужно вычислить их среднее Девушке нужно помочь срочно, завтра ей сдавать на зачёт, буду очень признателен. Начертить структурную схему алгоритма, написать и отладить программу для одной из следующих задач. В программе 6_1 исходные массивы задать типизированными константами. В программе 6_2 элементы исходных массивов ввести через оператор ввода. 1. Дан массив из N чисел (8<N<12). Вычислить их среднее геомет-рическое... https://www.cyberforum.ru/ pascal/ thread86778.html
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
17.01.2010, 19:07 0

Сравнить среднее арифметическое - Pascal - Ответ 485564

17.01.2010, 19:07. Показов 1766. Ответов 12
Метки (Все метки)

Ответ

Dandelion, на будущее:
Odd(x) функция x - integer boolean возвращает True, если х - нечетное, и False в противном случае
А так можете заменить вот эту строку
Pascal
1
if odd(i) then
на вот эту
Pascal
1
if i mod 2 <> 0 then


Вернуться к обсуждению:
Сравнить среднее арифметическое Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2010, 19:07
Готовые ответы и решения:

подсчитать среднее арифметическое элементов и сравнить между собой.
Введите с клавиатуры одномерный массив S(B), элементами которого являются по- ложительные и...

Найти среднее арифметическое элементов каждого и сравнить эти значения.
Я сделал её в паскале и у меня ответ выводится не правильно, 2 массив равен 000 и не...

Сравнить среднее арифметическое четырех чисел с полусуммой наи-большего и наименьшего
Сравнить среднее арифметическое четырех чисел с полусуммой наибольшего и наименьшего.

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

12
17.01.2010, 19:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2010, 19:07
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru