|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.12.2013, 21:49 | #1 |
Пользователь
Регистрация: 03.12.2013
Сообщений: 22
|
Работа с массивом и процедурой.
Составить процедуру нахождения суммы последних элементов одномерного массива, произведение которых не превышает заданного числа.
Пожалуйста, нужно исправить чтобы работала. А процедуру я потом сама напишу. [CODE] Program lab10; uses crt; var a: array[1 .. 10] of integer; f: text; i,j,n,k,c: integer; Begin clrscr% Последний раз редактировалось Stilet; 21.12.2013 в 22:20. |
21.12.2013, 22:23 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Есть такие волшебные символы [сode] и [/сode]
С ними вот так красиво получается, особенно если пробелы поставить. И понятнее: Код:
пока a[n]<c (а это может быть всегда) - выполнять цикл, в котором i меняется так: 1, 0, -1, -2 , .... - 2147483648, 2147483647, 2147483646, ...., (n-1) . То есть очень длинный цикл в вечном цикле. PS. Точнее, цикл for прервется после первого шага, потому что будет " ошибка доступа " изза недопустимого индекса. Последний раз редактировалось type_Oleg; 21.12.2013 в 22:30. |
21.12.2013, 22:36 | #3 |
Пользователь
Регистрация: 03.12.2013
Сообщений: 22
|
Спасибо болшое!
|
21.12.2013, 22:44 | #4 |
Пользователь
Регистрация: 03.12.2013
Сообщений: 22
|
А теперь что не так?
Код:
Последний раз редактировалось Stilet; 21.12.2013 в 22:56. |
21.12.2013, 22:56 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот как я понял задачу:
Код:
I'm learning to live...
|
21.12.2013, 23:22 | #6 |
Пользователь
Регистрация: 03.12.2013
Сообщений: 22
|
Спасибо! Но программа считает в сумме на один элемент больше. Я понимаю почему, а как исправить не знаю.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с массивом | glebast | Помощь студентам | 1 | 20.02.2013 16:53 |
Работа с массивом | ZOHAN | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 16.04.2010 01:20 |
С++. Работа с массивом. | Bonne | Помощь студентам | 2 | 10.02.2010 21:49 |
работа с массивом | Андрей.12 | Помощь студентам | 2 | 22.10.2009 00:25 |
работа с массивом | begemotikdin | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.06.2008 21:40 |