Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Нетипизированные файлы Реализуйте последовательное добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу с заданным именем. https://www.cyberforum.ru/ turbo-pascal/ thread711892.html	Определить кололичество эквивалентных строк Turbo Pascal Помогите с программой Определить количество эквивалентных строк данной прямоугольной матрицы. Строки считать эквивалентными сумма четырех элементов равна.
Turbo Pascal Текстовые файлы Дан текстовый файл. Перепишите в файл g все компоненты файла f с заменой в них символа "0" на символ "1" и наоборот. https://www.cyberforum.ru/ turbo-pascal/ thread711890.html	Turbo Pascal Типизированные файлы 2 https://www.cyberforum.ru/ turbo-pascal/ thread711889.html Дан файл f, содержащий сведения об ученике- имя и фамилия, названия класса (года обучения и буквы), в котором он учится и отметки, полученные учеником в последней четверти. Соберите в файле g сведения о лучших учениках школы, т.е. об учениках, не имеющих отметок ниже 4 и по сумме баллов не уступающих другим ученикам своего и параллельных классов.
Типизированные файлы Turbo Pascal Дан файл f, компоненты которого являются действительными числами. Найдите: (а) наибольший компонент; (б) наименьший компонент с четным номером; (в) наибольший модуль компонента с нечётным номером; (г) разность первого и последнего компонента файла.	Turbo Pascal Сортировка двумерных массивов Пожалуйста, помогите отсортировать двумерный массив по возрастанию методом сортировки расческой для одномерного массива. https://www.cyberforum.ru/ turbo-pascal/ thread711864.html
Turbo Pascal Составить пользовательскую процедуру или функцию для вычисления произведения https://www.cyberforum.ru/ turbo-pascal/ thread711857.html Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ... * (n/(n+1)2).	Turbo Pascal Дано матрица A,B 5х5 (целые), получить матрицу C=A+B 2)Дано матрица A,B 5х5 (целые), получить матрицу C=A+B. решите пожалуйста, мне они очень нужны завтра, а я только завтра начну ходить на курсы по паскалю
Turbo Pascal Определить коичество строк матриц, содержавших нулевой элемент https://www.cyberforum.ru/ turbo-pascal/ thread711821.html 3)Дано матрица A 10х10-целые,определить кол. строк матриц,содержавших нулевой элемент решите пожалуйста, мне они очень нужны завтра, а я только завтра начну ходить на курсы по паскалю	Turbo Pascal Вычисление логических выражений, задаваемые пользователем Прошу Вашей помощи :) Не знаю как решить данную задачу: program second; var a, b, c : integer; d, f, g : boolean; begin write('Write value A - TRUE(1) or FALSE(0) = '); readln(a); write('Write value B - TRUE(1) or FALSE(0) = '); readln(b); https://www.cyberforum.ru/ turbo-pascal/ thread711818.html
Turbo Pascal Процедуры и функции: Найти минимальный элемент и поменять его местами с первым диагональным элементом матрицы В каждой задаче написать программы с использованием процедур и функций пользователя: 2. Дан двумерный массив вещественных чисел, который содержит не более 20 строк и не более 20 столбцов. Найти минимальный элемент и поменять его местами с первым диагональным элементом массива. Массив вывести в виде таблицы.	Turbo Pascal Объясните как работают программы. Можете объяснить подробно как работает программа. 1 var n,m,x,y: integer; r: real; begin Repeat ReadLn(n); Until (n>=100) and (n<=999); x:=n div 100+n mod 10; y:=n mod 100 div 10; https://www.cyberforum.ru/ turbo-pascal/ thread711808.html

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

28.11.2012, 14:50

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n) - Turbo Pascal - Ответ 3767964

28.11.2012, 14:50. Показов 1217. Ответов 1

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

Сообщение было отмечено ryslan как решение

Решение

Pascal

uses crt;
function d(n:integer):integer;
var i,k:integer;
begin
if n=1 then k:=1
else
 begin
  k:=2;
  for i:=2 to n div 2 do
  if n mod i=0 then k:=k+1;
 end;
d:=k;
end;
const nmax=400;
var a:array[1..nmax] of integer;
    m,i,j,x:integer;
begin
clrscr;
repeat
write('Ведите целое положительное число до ',nmax,' m=');
readln(m);
until (m>0)and(m<=nmax);
for i:=1 to m do
a[i]:=i;
for i:=1 to m-1 do
for j:=i+1 to m do
if d(a[i])>d(a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Числа от 1 до ',m,' в порядке не убывания числа делителей:');
for i:=1 to m do
write(a[i]:4);
readln
end.

Вернуться к обсуждению:
Упорядочить все числа n от 1 до m в порядке неубывания значений d(n) Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.11.2012, 14:50

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

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Пусть для целого n>0 функция d(n) равна количеству делителей числа n. Дано m>0. Упорядочить все...

Упорядочить все числа n от 1 до m в порядке неубывания значений s(n).
Пусть для целого n>0 функция s(n) равна сумме делителей числа n.Дано m>0.Упорядочить все числа n от...

Упорядочить все числа n от 1 до m в порядке неубывания количества делителей
Написал программу по условию: Пусть для целого n>0 функция d(n) равна количеству делителей числа...

Упорядочить 3 числа в порядке неубывания
#include <iostream> using namespace std; int main() { int a, b, c; cin >> a >> b >> c;...

	28.11.2012, 14:50

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.11.2012, 14:50

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

Упорядочить три числа в порядке неубывания
Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке...

Упорядочить все числа n от 1 до m в порядке невозрастания значений s(n)
Пусть для целого n>0 функция s(n) равна сумме цифр числа n. Дано m>0. Упорядочить все числа n от 1...

Выведите все простые множители этого числа в порядке неубывания с учетом кратности (рекурсия)
Дано натуральное число n>1. Выведите все простые множители этого числа в порядке неубывания с...

Упорядочить массив в порядке неубывания
Помогите пожалуйста с заданием(( Дан массив a: array of integer. Упорядочить элементы массива а...

Наверх