Цикл с параметром
For1.[Pascal] [C#] [VB.NET] Даны целые числа K и N (N > 0). Вывести N раз число K.
For2.[Pascal] [C#] [VB.NET] Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
For3.[Pascal] [C#] [VB.NET] Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
For4.[Pascal] [C#] [VB.NET] Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
For5°.[Pascal] [C#] [VB.NET] Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.
For6.[Pascal] [C#] [VB.NET] Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.
For7.[Pascal] [C#] [VB.NET] Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.
For8.[Pascal] [C#] [VB.NET] Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
For9.[Pascal] [C#] [VB.NET] Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.
For10.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + … + 1/N (вещественное число).
For11.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти сумму N2 + (N + 1)2 + (N + 2)2 + … + (2·N)2 (целое число).
For12°.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти произведение 1.1 · 1.2 · 1.3 · … (N сомножителей).
For13°.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти значение выражения 1.1 − 1.2 + 1.3 − … (N слагаемых, знаки чередуются). Условный оператор не использовать.
For14.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти квадрат данного числа, используя для его вычисления следующую формулу: N2 = 1 + 3 + 5 + … + (2·N − 1). После
добавления к сумме каждого слагаемого выводить текущее значение суммы
(в результате будут выведены квадраты всех целых чисел от 1 до N).
For15°.[Pascal] [C#] [VB.NET] Дано вещественное число A и целое число N (> 0). Найти A в степени N: AN = A·A· … ·A (числа A перемножаются N раз).
For16°.[Pascal] [C#] [VB.NET] Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N.
For17.[Pascal] [C#] [VB.NET] Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A2 + A3 + … + AN.
For18.[Pascal] [C#] [VB.NET] Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1 − A + A2 − A3 + … + (−1)N·AN. Условный оператор не использовать.
For19°.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти произведение N! = 1·2·…·N (N–факториал).
Чтобы избежать целочисленного переполнения, вычислять это произведение с
помощью вещественной переменной и вывести его как вещественное число.
For20°.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1·2·…·N).
Чтобы избежать целочисленного переполнения, проводить вычисления с
помощью вещественных переменных и вывести результат как вещественное
число.
For21.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Используя один цикл, найти сумму 1 + 1/(1!) + 1/(2!) + 1/(3!) + … + 1/(N!) (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1·2·…·N). Полученное число является приближенным значением константы e = exp(1).
For22.[Pascal] [C#] [VB.NET] Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 + X + X2/(2!) + … + XN/(N!) (N! = 1·2·…·N). Полученное число является приближенным значением функции exp в точке X.
For23.[Pascal] [C#] [VB.NET] Дано вещественное число X и целое число N (> 0). Найти значение выражения X − X3/(3!) + X5/(5!) − … + (−1)N·X2·N+1/((2·N+1)!) (N! = 1·2·…·N). Полученное число является приближенным значением функции sin в точке X.
For24.[Pascal] [C#] [VB.NET] Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 − X2/(2!) + X4/(4!) − … + (−1)N·X2·N/((2·N)!) (N! = 1·2·…·N). Полученное число является приближенным значением функции cos в точке X.
For25.[Pascal] [C#] [VB.NET] Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X − X2/2 + X3/3 − … + (−1)N−1·XN/N. Полученное число является приближенным значением функции ln в точке 1 + X.
For26.[Pascal] [C#] [VB.NET] Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X − X3/3 + X5/5 − … + (−1)N·X2·N+1/(2·N+1). Полученное число является приближенным значением функции arctg в точке X.
For27.[Pascal] [C#] [VB.NET] Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X + 1·X3/(2·3) + 1·3·X5/(2·4·5) + … + + 1·3·…·(2·N−1)·X2·N+1/(2·4·…·(2·N)·(2·N+1)). Полученное число является приближенным значением функции arcsin в точке X.
For28.[Pascal] [C#] [VB.NET] Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения 1 + X/2 − 1·X2/(2·4) + 1·3·X3/(2·4·6) − … + + (−1)N−1·1·3·…·(2·N−3)·XN/(2·4·…·(2·N)). Полученное число является приближенным значением функции (1+X)1/2.
For29.[Pascal] [C#] [VB.NET] Дано целое число N (> 1) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H — длину каждого отрезка, а также набор точек A, A + H, A + 2·H, A + 3·H, …, B, образующий разбиение отрезка [A, B].
For30.[Pascal] [C#] [VB.NET] Дано целое число N (> 1) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H — длину каждого отрезка, а также значения функции F(X) = 1 − sin(X) в точках, разбивающих отрезок [A, B]: F(A), F(A + H), F(A + 2·H), …, F(B).
For31.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 2, AK = 2 + 1/AK−1, K = 1, 2, … . Вывести элементы A1, A2, …, AN.
For32.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 1, AK = (AK−1 + 1)/K, K = 1, 2, … . Вывести элементы A1, A2, …, AN.
For33°.[Pascal] [C#] [VB.NET] Дано целое число N (> 1). Последовательность чисел Фибоначчи FK (целого типа) определяется следующим образом: F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, … . Вывести элементы F1, F2, …, FN.
For34.[Pascal] [C#] [VB.NET] Дано целое число N (> 1). Последовательность вещественных чисел AK определяется следующим образом: A1 = 1, A2 = 2, AK = (AK−2 + 2·AK−1)/3, K = 3, 4, … . Вывести элементы A1, A2, …, AN.
For35.[Pascal] [C#] [VB.NET] Дано целое число N (> 2). Последовательность целых чисел AK определяется следующим образом: A1 = 1, A2 = 2, A3 = 3, AK = AK−1 + AK−2 − 2·AK−3, K = 4, 5, … . Вывести элементы A1, A2, …, AN.
Цикл с параметром: вложенные циклы
For36°.[Pascal] [C#] [VB.NET] Даны целые положительные числа N и K. Найти сумму 1K + 2K + … + NK. Чтобы
избежать целочисленного переполнения, вычислять слагаемые этой суммы с
помощью вещественной переменной и выводить результат как вещественное
число.
For37.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти сумму 11 + 22 + … + NN. Чтобы
избежать целочисленного переполнения, вычислять слагаемые этой суммы с
помощью вещественной переменной и выводить результат как вещественное
число.
For38.[Pascal] [C#] [VB.NET] Дано целое число N (> 0). Найти сумму 1N + 2N−1 + … + N1. Чтобы
избежать целочисленного переполнения, вычислять слагаемые этой суммы с
помощью вещественной переменной и выводить результат как вещественное
число.
For39.[Pascal] [C#] [VB.NET] Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).
For40.[Pascal] [C#] [VB.NET] Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т. д.
|