Паскаль. Основы программирования


Оператор цикла fordowntodo - часть 2


     uses WinCrt;

     var

        i, n, s, k: integer;

     begin

        writeln('Введите натуральное число, до которого надо');

        write('выводить квадраты чисел '); readln(n);

        writeln('Квадраты чисел следующие:');

        s  := 0; k  := 1;

           for i  :=  1 to n do

               begin

                  s :=  s + k;

                  writeln('Квадрат числа ', i, ' равен ', s);

                  k :=  k + 2

               end

     end.

 

Задание 2

 

1. Измените программу так, чтобы она выдавала на экран не таблицу квадратов чисел от 1 до n, а квадрат только одного числа n, введенного пользователем.

2. Измените и дополните программу так, чтобы она выдавала значение квадрата числа и те нечетные числа, сумме которых он равен.

3. Продолжая тему возведения натуральных чисел в степень,  без операций умножения, рассмотрим еще два интересных примера.   В первом из них нам придется совмещать, "вкладывать" друг в друга два цикла for, а во втором, циклы for и repeat.

Пример 3. Куб любого натурального числа n равен сумме n нечетных чисел, следующих по порядку за числами, сумма которых составляла куб предыдущего числа n - 1:

13  = 1

23  = 3 + 5

33  = 7 + 9 + 11

43  = 13 + 15 + 17 + 19

. . . . . . . . . . . . . . . . . . . . . .

Основываясь на этом свойстве, создайте программу, позволяющую напечатать таблицу кубов натуральных чисел.

Вот здесь уже нужны два цикла. Один - внешний, по количеству нечетных чисел, которое равно возводимому в куб числу, например, для 43 этот цикл должен выполняться 4 раза. В этом же цикле надо будет после подсчета суммы выводить ее значение на экран вместе с числом, которое возводится в куб.

Второй - внутренний, который будет суммировать нечетные числа и "вырабатывать" нужные нечетные числа для суммирования.


Программа

Program

Problem3; { Кубы натуральных чисел от 1 до n }

     uses WinCrt;

     var

         i, j, n, s, k : longint;

     begin

        writeln('Введите натуральное число, до которого надо');




Начало  Назад  Вперед