Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Из одной последовательности сделать две, удовлетворяющие условиям. Help(( по заданной последовательности а1,а2,....аn(n<=20) построить 2 последовательности х1,х2...хn и y1,y2...yn элементы которых определяются условиями xi = ai если а1>=0 -1 если а1<0 yi = ai если ai<0 1 если ai>=0 шапку программы я написал без проблем т.е. https://www.cyberforum.ru/ pascal/ thread546202.html	Помогите решить интересную задачку, пожалуйста) Pascal Дана матрица. Рассмотрим линии, параллельные главной диагонали, включая саму диагональ. Обозначим через x1 сумму модулей отрицательных чисел, расположенных выше линии, через x2 - чумму модулей нечетных чисел, расположенных ниже линии. Вычислить минимум для \|x1-x2\| при различных положениях линии. Результат вывести на экран. Объясните, пожалуйста, при каких различных положениях линии? Не могу...
Pascal Двумерный массив: найти сумму элементов столбца https://www.cyberforum.ru/ pascal/ thread546055.html Дан двухмерный массив вещественных чисел размерностью m*n. Разработайте программу определения суммы чисел каждого столбца. Пояснение: Переменная: i - счёткчик столбцов. j - счётчик строк s - текущее значение суммы элементов массива. a(i,j) - элемент массива i-го строки, j-го столбца. Данные:	Pascal Выводить кодовую таблицу по 10 символов, спрашивая продолжать ли дальше https://www.cyberforum.ru/ pascal/ thread545945.html Задали задачу: выводить кодовую таблицу по 10 символов, спрашивая продолжать ли дальше. Создала программу, в которой при вводе с клавиатуры любого символа выводится код.. вот: Program pr1; Uses CRT; var i,n:integer; c:char; Begin ClrScr; Repeat c:=readkey;
Нахождение корней уравнения методом итераций и методом половинного деления Pascal Прошу вас помогите пожалуйста решить задачку по теме " Нахождение корней уравнения " двумя методами: метод итераций и метод половинного деления. Я начала с метода итераций, вот что у меня получилось Program Iteratsija; const Eps=0,0001; VAR a,b,x,x1,x2,,dx:Real; n:integer; Begin	Pascal Разработать программу суммирования членов прогрессии и определения номера последнего члена прогрессии, который суммируется. https://www.cyberforum.ru/ pascal/ thread545741.html Вот условие: Первый член геометрической прогрессии равен 4, а знаменатель прогрессии 0,5. Суммирование членов прогрессии прекращается, если определенный член прогрессии становится меньше 0,02. Разработать алгоритм и программу суммирования членов прогрессии и определения номера последнего члена прогрессии, который суммируется. Объяснение: Переменная I - счетчик циклов, переменная U - текущее...
Pascal Расставить столбцы в порядке возрастания https://www.cyberforum.ru/ pascal/ thread545719.html Помогите, пожалуйста решить задачу: в массиве 8 на 8 целого типа, расставить столбцы в порядке возрастания максимальных элементов в них	Pascal Получить третий массив, в который входят все элементы первого массива и те элементы второго, которые не встречались в первом Задача по теме "массив". "Объединение массивов". Напишите программу, которая запрашивает и вводит с экрана два линейных массива действительных чисел не более 50 членов (возможно разное количество членов), получает из них третий, в который входят все элементы первого массива и те элементы второго, которые не встречались в первом. Затем программа выводит полученный массив. Буду очень...
Pascal Вычеркнуть из слова Y те согласные буквы, которые используются в слове X Всем доброго времени суток :) Очень прошу мне помочь в составлении следующей программы Составить программу , вычеркивающую из слова Y те согласные буквы, которые используются в слове X. Заранее спасибо https://www.cyberforum.ru/ pascal/ thread545526.html	Pascal Найти среднее арифметическое значение положительных элементов матрицы и количество отрицательных https://www.cyberforum.ru/ pascal/ thread545387.html Задача 1 Заполнить двумерный массив размером 10х10 случайными числами из интервала от -12 до 12. Найти среднее арифметическое значение положительных элементов и количество отрицательных. Исходный массив и результат вывести. Задача 2 Сформировать матрицу Z(n,n) по следующему правилу: элементы, расположенные выше диагонали, равны нулю, а остальные элементы имеют произвольные значения
Pascal Сформировать матрицу по следующему правилу: элементы выше диагонали равны 0 Заполнить двумерный массив размером 10х10 случайными числами из интервала от -12 до 12. Найти среднее арифметическое значение положительных элементов и количество отрицательных. Исходный массив и результат вывести. Сформировать матрицу Z(n,n) по следующему правилу: элементы, расположенные выше диагонали, равны нулю, а остальные элементы имеют произвольные значения	Pascal Стек, дек, очередь Вообщем нужны примеры программ описание стек, дек и очереди.Есть одно нужны программы с интерфейсом. Помогите пожалуйста! https://www.cyberforum.ru/ pascal/ thread545362.html

BumerangSP

4311 / 1422 / 463

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

Сообщений: 2,939

Записей в блоге: 3

12.04.2012, 21:29

Написать программу, которая определяет, является ли данное число совершенным - Pascal - Ответ 2905212

12.04.2012, 21:29. Показов 5888. Ответов 2

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

Сообщение было отмечено _ЕГОР_ как решение

Решение

Pascal

uses crt;
var i,n: integer;
    s: real;
 
function pow(x:real;n:integer):real;
var r:real;
    i:integer;
begin
r:=x;
for i:=1 to n-1 do r:=r*x;
pow:=r;
end;
    
begin
 clrscr;
 n:=10;
 s:=0;
 for i:=1 to n do
  s:=s+(pow(-1,i+1)*(sqr(i)*i-1/i));
 writeln('S = ',s:5:4);
 readln;
end.

Первое, кстати, довольно часто встречается на форуме. Впрочем, как и все остальное.

Вернуться к обсуждению:
Написать программу, которая определяет, является ли данное число совершенным Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

12.04.2012, 21:29

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

Описать функцию, которая определяет, является ли данное число простым
2. Описать функцию, которая определяет, является ли данное число простым. Помогите...

Написать программу, которая определяет, является ли заданное число числом Фибоначчи
Числа Фибоначчи строятся следующим образом: 1, 1, 2, 3, 5, …. В этой последовательности, начиная с...

Написать программу которая определяет является ли целое число, простым. Использовать repeat.until
написать программу которая определяет является ли целое число введенное пользователем, простым

Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое...

	12.04.2012, 21:29

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

12.04.2012, 21:29

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

Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным
Совершенным называется число, равное сумме всех своих делителей, меньших его самого (например,...

Написать программу, которая определяет, оканчивается ли данное целое число цифрой 7
написать программу, которая определяет, оканчивается ли данное целое число цифрой 7

Составить программу, проверяющую является ли данное число совершенным
Составить программу, проверяющую является ли данное число совершенным. Совершенным считается число,...

Написать программу, которая определяет, заданное число является палиндромом
Условия задачи, которые нужно написать: 2. Написать программу, которая определяет, заданное...

Наверх