Как найти сумму квадратов чисел в паскале

Задание из серии задач, реализуемых с применением языка программирования Паскаль. Для работы желательно использовать новую версию программы на платформе 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

Скачать файл кода готовой программы

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

Программа для определения принадлежности чисел одному знаку Вывод введённых значений из массива

Перейти к контенту

Приветствуем читателей нашего сайта! Сегодня мы с вами решим for1-15 из вот этого задачника.

For1. Даны целые числа K и N (N > 0). Вывести N раз число K.

Организовываем простой цикл от 1 до требуемого числа.

program for1;

var
 K, N, i: integer;

begin
 read(K, N);
 for i := 1 to N do write(K, ' '); {Пишем К через пробел }
end.

For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Так как A < B, то цикл должен будет выводить все числа от А до B. Чтобы сосчитать количество чисел, используем формулу: <конечное_значение> — <начальное_значение> + 1.

program for2;

var
  A, B, i, count: integer;

begin
  read(A, B);
  for i := A to B do write(i, ' '); {выписываем числа от меньшего к большему}
  count := B - A + 1; {считаем количество чисел}
  writeln;
  write( 'Количество чисел - ', count);
end.

For3. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.

Задача решается аналогично предыдущей. Только на этот раз используем  downto, так как числа будут двигаться сверху вниз. Чтобы исключить А и В из списка выводимых чисел, от В отнимаем 1, а к А наоборот прибавляем.

program for3;

var
  A, B, i, count: integer;

begin
  read(A, B);
  for i := B - 1 downto A + 1 do write(i, ' '); {выписываем числа от большего к меньшему}
  count := (B - 1) - (A + 1) + 1; {считаем количество чисел}
  writeln;
  write( 'Количество чисел - ', count);
end.

For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
Каждую итерацию цикла выводим цену, умноженную на i.

program for4;

var
  i: integer;
  price_one: real;

begin
  read(price_one);
  for i := 1 to 10 do writeln(i, ' кг. стоит - ', price_one * i, ' ');
end.

For5°. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.

Такая же программа, как предыдущая, только теперь умножаем на  i / 10.

program for5;

var
  i: integer;
  price_one: real;

begin
  read(price_one);
  for i := 1 to 10 do writeln(i / 10, ' кг. стоит - ', price_one * (i / 10), ' ');
end.

For6.Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.

program for6;

var
  i: integer;
  price_one: real;

begin
  read(price_one);
  for i := 1 to 5 do writeln(1 + i / 5, ' кг. стоит - ', price_one + price_one * (i / 5), ' ');
end.

For7. Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.

Организовываем цикл и складываем все числа.

program for7;

var
  A, B, i, S: integer;

begin
  read(A, B);
  S := 0; 
  for i := A to B do S := S + i; 
  write( 'Сумма  - ', S);
end.

For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

Создаем цикл и умножаем все числа.

program for8;

var
  A, B, i, P: integer;

begin
  read(A, B);
  P := 1; 
  for i := A to B do P := P * i; 
  write( 'Произведение - ', P);
end.

For9. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.

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

program for9;

var
  A, B, i, S: integer;

begin
  read(A, B);
  S := 0; {PascalABC делает это автоматически, но если у вас другой компилятор советуем обнулять переменные вручную}
  for i := A to B do S := S + Sqr(i);  {складываем все квадраты}
  writeln;
  write( 'Сумма квадратов - ', S);
end.

For10. Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + … + 1/N (вещественное число).

program for10;

var
  N, i: integer;
  S : real;

begin
  read(N);
  S := 0; 
  for i := 1 to N do S := S + 1 / i; 
  write( 'Сумма - ', S:1:2);
end.

For11.Дано целое число N (> 0). Найти сумму N² + (N + 1)² + (N + 2)² + … + (2·N)² (целое число).

program for11;

var
  N, i: integer;
  S : integer;

begin
  read(N);
  S := 0; 
  for i := N to 2 * N do S := S + Sqr(i); 
  write( 'Сумма - ', S);
end.

For12°.Дано целое число N (> 0). Найти произведение 1.1 · 1.2 · 1.3 · …(N сомножителей).

program for12;

var
  N, i: integer;
  P: real;

begin
  read(N);
  P := 1; 
  for i := 1 to N do P := P * (1 + i / 10 ); 
  write( 'Произведение - ', P:1:2);
end.

For13°. Дано целое число N (> 0). Найти значение выражения 1.1 – 1.2 + 1.3 – … (N слагаемых, знаки чередуются). Условный оператор не использовать.

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

program for13;

var
  N, A, i: integer;
  S: real;

begin
  Write('N = ');
  readln(N); 
  S := 1.1; 
  A := 1; {Сначала положительное}
  for i := 2 to N do {первую итерацию цикла мы уже произвели, поэтому начинаем отсчет с 2}
  begin 
   A := -A; {Теперь отрицательное}
   S := S + A * (1 + i / 10);  {Складываем}
  end;
  Writeln(S:5:1); {Отдадим под дробную часть одно знакоместо}
end.

For14. Дано целое число N (> 0). Найти квадрат данного числа, используя для его вычисления следующую формулу:
N² = 1 + 3 + 5 + … + (2·N – 1).
После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до N).

program for14;

var
  i, N: integer;
  Pow: real;

begin
  write('N = ');
  read(N);
  Pow := 0;
  for i := 1 to N do 
  begin
    Pow := Pow + (2 * i - 1);
    writeln(Pow);
  end;
end.

For15°. Дано вещественное число A и целое число N (> 0). Найти A в степени N: A^N = A·A· … ·A (числа A перемножаются N раз).

program for15;

var
  i, N: integer;
  A, Pow: real;

begin
  write('A = ');
  read(A); 
  write('N = ');
  read(N);
  Pow := 1;
  for i := 1 to N do Pow := Pow * A;
  write(Pow:1:2);
end.

На сегодня все! Не забывайте кликать по кнопочкам и подписываться на обновления нашего сайта!

Практикум по программированию. Основы. Циклы. Сумма квадратов чисел

import java.util.Scanner;

public class Task01 {

    public static void main(String[] args) {

        Scanner in = new Scanner(System.in);

        System.out.println();
        System.out.println(" Сумма квадратов чисел от 1 до N");
        System.out.println("---------------------------------");

        System.out.print(" Введите N: ");
        long n = in.nextLong();
        
        long s = 0;

        for (long i = 1; i <= n; i++) {
            s += i * i;
        }

        System.out.println("---------------------------------");
        System.out.printf(" S = %dn", s);
    }
}

// g++ 4.2

#include <iostream>

using namespace std;

int main() {
    
    long n;
    
    cout << "n Сумма квадратов чисел от 1 до Nn";
    cout << "---------------------------------n";
    
    cout << " Введите N: ";
    cin >> n;
    
    long s = 0;
    
    for (long i = 1; i <= n; i++) {
        s += i * i;
    }

    cout << "---------------------------------n";
    printf(" S = %ldnn", s);
    
    return 0;
}

# Python 3

print('n Сумма квадратов чисел от 1 до N')
print('---------------------------------')

n = int(input(' Введите N: '))

s = 0
for i in range(1, n + 1):
    s += i * i

print('---------------------------------')
print(' S = %ld' % s)

<html lang="ru">
<head>
    <meta charset="UTF-8">
    <script>
        function calc() {
            var n = document.getElementById("nId").value;

            var s = 0;

            for (var i = 1; i <= n; i++) {
                s += i * i;
            }

            document.getElementById("resultId").innerHTML = "S = " + s;
        }
    </script>
</head>
<body>

<p>Сумма квадратов чисел от 1 до N</p>
<hr>
<p>Введите N: <input id="nId" size="5"></p>
<hr>
<p id="resultId"></p>

<button onclick="calc()">Рассчитать</button>

</body>
</html>