Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
198 / 10 / 3
Регистрация: 30.04.2016
Сообщений: 732

Используя оператор цикла, найти сумму первых пяти нату- ральных чисел

16.04.2017, 11:24. Показов 1127. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Упражнение 1 (со стр. 137): Используя оператор цикла, найти сумму первых пяти нату-
ральных чисел (целых положительных). Напечатать конечный и промежуточные результаты
суммирования.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
DATA 7,11,2,5,9,12,1,15,20,4
    FOR i = 1 TO 10
      READ A(i)
      PRINT A(i);
         S = S + A(i)
   NEXT i
PRINT
PRINT “ Сумма всех чисел: “ ; S
    FOR i = 1 TO 5
      S1 = S1 + A(i)
    NEXT i
PRINT “ Сумма первых 5-и чисел: “ ; S1;
    PRINT
PRINT “ Пошаговая сумма всех чисел:”
  FOR i = 1 TO 10
      S2 = S2 + A(i)
      PRINT S2;
   NEXT i
На выходе:
QBasic/QuickBASIC
1
2
3
4
5
7   11   2   5   9   12   1   15   20   4
Сумма всех чисел:  86
Сумма первых 5-и чисел:  34
Пошаговая сумма всех чисел:
7   18   20   25   34   46   47   62   82   86
Во – первых:
В этом упражнении натуральные числа задаются в книге задолго до изучения темы «Мас-
сивы». И как же предполагалось обойтись без использования массива (ведь у меня факти-
чески использован массив, только что не напечатано «DIM A(10)».
Во –вторых:
Раз уж у меня она выполнена таким образом – с тремя циклами, то можно ли выполнить её
с двумя циклами, а лучше бы с одним циклом в 5 строк (как у меня).
И чтобы строк в коде было не больше, чем их имеется при трёх циклах.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.04.2017, 11:24
Ответы с готовыми решениями:

Найти сумму первых 8 элементов, используя оператор цикла for
Доброго утра/дня/вечера! Ребят, кто шарит может подсобить? 1)Геометрическая прогрессия имеет вид -0,02;0,08;-0,32;1,24;...Найти сумму...

Найти сумму первых пяти чисел и произведение последний пяти чисел
Вводится не менее 8 чисел. Конец ввода 0. Найти сумму первых пяти чисел и произведение последний пяти чисел. var p,s,k,n:integer; ...

Найти сумму первых пяти цифр double числа, используя цикл
как найти суму первых пяти цифр double числа используя цикл ,через строчки знаю как но через цикл не могу Добавлено через 25 минут ...

1
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.04.2017, 14:07
Petro29
Вы усложнили себе задачу. Вы пишете, что надо найти
сумму первых пяти натуральных чисел.. Это однозначно
означает, что вам надо вычислить 1 + 2 + 3 + 4 + 5
То есть, никакой массив вам не нужен. Все и так поместится
в одном цикле...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.04.2017, 14:07
Помогаю со студенческими работами здесь

Программа, которая выводит таблицу квадратов первых десяти целых положительных чисел, используя оператор цикла while
fprintf('Tablica kvadratov\n'); fprintf('-------------------------\n'); fprintf('| x | y |\n'); ...

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

Используя оператор цикла, найти сумму элементов
Найти сумму ряда с точностью e=10-4, общий член которого {a}_{n}=\frac{{2}^{n}n!}{{n}^{n}}

Даны четыре целых числа. найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла не использовать
Даны четыре целых числа. найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла не использовать !

Используя оператор цикла, найти сумму элементов ряда
Найти сумму ряда с точностью е={10}^{-3} общий член которого {a}_{n}=\frac{1}{{2}^{n}}+\frac{1}{{3}^{n}}. Не понимаю ни задание не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru