Цикл со счетчиком

@tibeg · Регистрация: 01.08.2013

Студворк — интернет-сервис помощи студентам

Всем привет. Недавно начал изучать Pascal и столкулся с проблемой ...
Задание: Напишите программу, вычисляющую сумму чисел от 1 до N, где N - число, вводимое пользователем.

Решение:

Pascal
1
2
3
4
5
6
7
8
9
var       N : integer;
     i, sum : integer;
begin
      Write('Введите N '); Readln(N);
      sum:0;
      for i:=1 to N do sum:= sum+1;
      Write('C = ' , sum);
      Readln;
end.

Проблема заключается в том, что не могу понять вот эти строчки
sum:0;
for i:=1 to N do sum:= sum+1;

Помогите пожалуйста разобраться.

@Puporev · 01.08.2013, 20:37

Сообщение от tibeg

сумму чисел от 1 до N,

При чем тогда sum:= sum+1;? Это сумма n единиц..
напиши вместо 1 букву i

@tibeg · 01.08.2013, 20:53 **[ТС]**

спасибо) не зметил. А можете объянить поподробней? Вот я ввел N=4, как происходит подсчет?

@Puporev · 01.08.2013, 21:00

Ты что, не знаешь как сложить числа типа 1+2+3+4 ?

Добавлено через 1 минуту
И не sum:0;
а sum:=0;

@tibeg · 01.08.2013, 21:13 **[ТС]**

Это-то я как раз хорошо знаю!) Но не могу понять именно вот эту строчку
for i:=1 to N do sum:= sum+i;

@ermolay · 01.08.2013, 22:45

запускается цикл, при каждом проходе цикла i увеличивается на единицу, а сумма увеличивается на значение i.

Pascal
1
s:=s+i // сумме присваиваем значение суммы плюс значение i

для наглядности здесь при каждом проходе цикла добавил вывод на экран значения i и суммы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  i,s: integer;
begin
  s:=0;
  for i:=1 to 4 do
    begin
      s:=s+i;
      writeln('i=',i,' s=',s);
    end;
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@tibeg 2 / 2 / 2 Регистрация: 01.08.2013 Сообщений: 106
	01.08.2013, 20:53 [ТС]
	спасибо) не зметил. А можете объянить поподробней? Вот я ввел N=4, как происходит подсчет? 0

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.08.2013, 21:00
	Ты что, не знаешь как сложить числа типа 1+2+3+4 ? Добавлено через 1 минуту И не sum:0; а sum:=0; 1

@tibeg 2 / 2 / 2 Регистрация: 01.08.2013 Сообщений: 106
	01.08.2013, 21:13 [ТС]
	Это-то я как раз хорошо знаю!) Но не могу понять именно вот эту строчку for i:=1 to N do sum:= sum+i; 0