Решение. Идея алгоритма состоит в том, что все делители числа X, меньшие X, лежат в интервале от 1 до (X div 2+1). Наибольшим делителем является само число X. Следовательно, для каждого из чисел [2. n] нужно отобрать и просуммировать все делители из указанного множества. По ходу вычислений производить отбор наибольшего значения. Например: число 12 имеет сумму делителей S = 12+1+2+3+4+6 = 28
Алгоритм будет содержать два вложенных цикла. Исполнение вложенных циклов происходит так: для каждого значения параметра внешнего цикла происходит полная «прокрутка» внутреннего цикла.
Program Sum_Del;
Var N, I, SumMax, Sum, K, Ch: Integer;
Write (‘Введите число N = ‘);
SumMax:=1; Ch:=1;
For I:=2 to N Do
For K:=1 to I div 2+1 Do If (I mod K) = 0
Then Sum:=Sum+K;
Sum:=Sum+I;
If Sum>SumMax Then Begin SumMax:=Sum; Ch:=I; End;
Write(‘Максимальную сумму делителей ‘,SumMax, ‘ имеет число ‘,Ch);
Программы с циклами For (с параметром) задачи
Внимание.
Паскаль с нуля [ч7]. Одномерные массивы.
1) Файлы сохраняются в личной папке с именем For
2) Для защиты практической работы необходимо выслать преподавателю заархивированную папку, в которой находятся все программы и отчет в электронном виде.
3) Распечатанный отчет сдать в течении недели после выполнения практической работы.
На оценку 3(удовлетворительно) необходимо написать, отладить и представить в отчете тексты программ №№ 1 – 4, а также PrtSc результатов отладки.
На оценку 4(хорошо) необходимо написать, отладить и представить в отчете тексты программ №№ 5 – 9, а также PrtSc результатов отладки.
На оценку 5(отлично) необходимо написать, отладить и представить в отчете тексты программ №№ 10 – 14, а также PrtSc результатов отладки.
На оценку 3(удовлетворительно):
Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. Ниже представлен рекомендуемый вид экрана во время работы программы.
Ниже представлен рекомендуемый вид экрана во время работы программы
Источник: studfile.net
Задачи по C++. Таблица квадратов от 1 до 10.
Задачи по C++
Автор cyber На чтение 2 мин.
Условие задачи : Составить программу, которая выводит таблицу квадратов целых чисел от 1 до 10.
Сложность : легкая .
Для решения задачи нам многого не понадобиться, а именно только цикл for.
Для начала создадим каркас программы :
#include using namespace std; int main() < setlocale(LC_ALL,»Rus»); // включаем русский язык >
Теперь нужно подумать какие переменные нам понадобятся :
- Переменная под число которое мы будем возводить в квадрат.
- И переменная для цикла.
1-я переменная у нас изначально должна равняться единицы, т.к. операция возведения в квадрат это умножение , т.е. у нас будет постоянно 0 если не присвоить единицу.
Математические выражения их запись в Паскале
int n, chislo; chislo = 1;
Теперь остался цикл, он у нас будет от 1 до 10 (по условию) — это у нас n
В самом цикле мы сначала выведем переменную chislo , затем выведем chislo * chislo , т.е. квадрат числа, а затем увеличим число на 1.
for (n=1; n
t — большой пробел
Рассмотрим проход цикла :
chislo = 1; Выведется 1 и chislo*chislo , т.е. 1 И chislo = 1 + 1 ; т.е. будет 2
chislo = 2; // уже будет 2 Выведется 2 и chislo*chislo , т.е. 4 И chislo = 2 + 1 ; т.е. будет 3
Весь код программы :
#include using namespace std; int main() < setlocale(LC_ALL,»Rus»); int n, chislo; chislo = 1; for (n=1; nsystem(«pause»); return 0; >
Источник: cyberlesson.ru
Сумма всех квадратов целых чисел в заданном диапазоне
Задание из серии задач, реализуемых с применением языка программирования Паскаль. Для работы желательно использовать новую версию программы на платформе PascalABC.NET.
Области применения
Данную задачу можно использовать при составлении самостоятельных, контрольных и домашних работ в средней общеобразовательной школе или при прохождении курса информатики в СПО.
Текст задания.
Составить программу на языке Паскаль, которая находит сумму всех квадратов целых чисел в заданном диапазоне [a; b].
Решение задачи на языке Паскаль
Решение задачи разбивается на несколько частей.
Первоначально, мы должны задать тот самый указанный диапазон. Учитывая, что числа у нас целые, поэтому начальная и конечная границы должны быть заданы целыми числами. Поэтому тип вводимых значений будет integer. Переменные a и b необходимы для задания верхней и нижней границ диапазона целых чисел.
С помощью оператора ввода значения readln() осуществляем ввод нижней и верхней границ диапазона.
Первоначально сумма должна быть принудительно обнулена. При помощи оператора присваивания :=
После этого, для вычисления необходимой суммы необходимо организовать цикл с шагом увеличения на единицу. Для этого, в Паскале используется оператор цикла for.
Код программы на языке Паскаль
Program summ_sqr; var a, b, x, s: Integer; begin write(‘Введите значение нижней границы диапазона a=’); readln(a); write(‘Введите значение нижней границы диапазона b=’); readln(b); s:=0; for x:=a to b do begin s:=s+x*x; end; writeln(‘Сумма квадратов чисел в диапазоне от ‘,a, ‘ до ‘, b, ‘. S=’,s); end.
Пример ввода данных и результата в окне вывода
Введите значение нижней границы диапазона a=-12
Введите значение нижней границы диапазона b=10
Сумма квадратов чисел в диапазоне от -12 до 10. S=1035
Надеюсь, что данный материал поможет вам лучше понять язык Паскаль программирования и уяснить общие принципы работы при составлении программ.
Источник: inphormatika.ru