Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.66/29: Рейтинг темы: голосов - 29, средняя оценка - 4.66
0 / 0 / 0
Регистрация: 19.07.2021
Сообщений: 22

Вывести на экран последовательность чисел

20.07.2021, 09:42. Показов 6093. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны натуральное n, действительное a1.
Вывести на экран последовательность чисел (где ai = -ai-1): a1, a1+a2, a1+a2+a3, ..., a1+...+an
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.07.2021, 09:42
Ответы с готовыми решениями:

Вывести на экран последовательность чисел
Составьте программу на языке Паскаль, которая производит вычисления используя цикл for. Даны натуральное n, действительное а1. ...

Вывести последовательность чисел на экран
В общем, надо вывести на экран следующую последовательность чисел, при n от 1 до 10: Буду благодарен за любую помощь!

Получить и вывести на экран последовательность чисел
Сначала решить задачу, используя цикл While, затем - цикл Repeat. Пусть {y}_{1}=1,{y}_{2}=2 . Получить и вывести на экран...

7
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
22.07.2021, 15:51
Лучший ответ Сообщение было отмечено Donny Manhunt как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var
  n, i : Integer;
  a : Real;
begin
  Read(n,a);
  for i := 1 to n do
    if odd(i) then Write(#32,a) else Write(' 0');
end.
1
0 / 0 / 0
Регистрация: 19.07.2021
Сообщений: 22
24.07.2021, 12:30  [ТС]
Актуально.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
24.07.2021, 13:09
Вывести на экран последовательность чисел
0
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,451
24.07.2021, 23:45
Puporev, по ссылке не та последовательность.
Donny Manhunt, а чем программа от JuriiMW не годится? "Волшебная" цифра мешает? Ну так, замените #32 на ' '.
0
0 / 0 / 0
Регистрация: 19.07.2021
Сообщений: 22
26.07.2021, 09:19  [ТС]
Cyborg Drone , решение конечно хорошее, хитрое, но оно обходит чуть задания. Нужно складывать элементы, а не чередовать.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
26.07.2021, 10:46
А ни чего, что если к любому числу прибавить противоположное по знаку, то получится ноль?
Т.е., если задать первый элемент, скажем а1=3, то а2=–а1=–3.
А дальше снова: а3=–а2=–(–3)=3 и т.д.
При этом получается, что выводимые значения будут:
а1=3
а12=3–3=0
а123=3–3+3=3
а1233=3–3+3–3=0
. . .

Или просто: 3 0 3 0 …

Всё, что нужно было для составления алгоритма, мы сделали.
Алгоритм свёлся к чередованию!
И не важно что там имелось в виду, когда придумывали задание.
По сути, готовая программа — это „чёрный ящик“, который выдаёт пользователю то, что в неё заложено.
В данном случае, программа будет выдавать правильную последовательность и без лишнего счёта.
Так какая разница?
0
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,451
26.07.2021, 13:29
Лучший ответ Сообщение было отмечено Donny Manhunt как решение

Решение

Donny Manhunt, буквальное выполнение задания далеко не всегда хорошая идея. Прав JuriiMW, зачем что-то там вычислять, если можно не вычислять?

На всякий случай, дебильное решение на троечку выглядит так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n, i: integer;
  a, s: real;
begin
  read(n, a);
  s := 0;
  for i := 1 to n do
    begin
      s := s + a;
      write(' ', s);
      a := -a
    end
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.07.2021, 13:29
Помогаю со студенческими работами здесь

Вывести на экран последовательность чисел, которые соответствуют формуле 1/(1+x).
Пользователь вводит натуральные числа N M. Вывести на экран последовательность чисел, которые соответствуют формуле 1/(1+x), где x числа в...

Вывести на экран последовательность чисел (в последовательности отсутствуют числа 3 и 8)
Задача: Выводит на экран последовательность чисел (в последовательности отсутствуют числа 3 и 8): 10 9 7 6 5 4 2 1

Сгенерировать последовательность чисел, вывести ее на экран и занести в одномерный целочисленный массив
1.​ Написать программу, которая будет генерировать последовательность чисел, выводить ее на экран и заносит в одномерный целочисленный...

Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше
Ввести с клавиатуры вещественное число x (0<x<1). Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор,...

Массив: Найти и вывести на экран первую последовательность чисел,которые идут рядом, и удовлетворяют условие Mi+1=Mi+1.
После ввода с клавиатуры одномерного массива целых чисел. Найти и вывести на экран первую последовательность чисел,которые идут рядом, и...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Программный отбор элементов справочника Номенклатура по группе 1С
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор элементов справочника Сотрудники по перечислениям 1С
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru