Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 12.02.2021, 14:27   #1
EVE94
Новичок
Джуниор
 
Регистрация: 12.02.2021
Сообщений: 1
По умолчанию Паскаль

Опишите целочисленный массив из 10 элементов
заполнить массив последовательностью чисел 2 5 11 23 47
вывести массив на экран.
var A : array [1..10] of integer;
i : integer;
begin
A[1]:=2;
for i:=1 to 10 do
begin
A[i]:=A[i-1]+3*i;
write (A[i], ' ')
end;
end.
Подскажите почему программа не работает?
EVE94 вне форума Ответить с цитированием
Старый 12.02.2021, 14:34   #2
FrosyaZZ
Форумчанин
 
Регистрация: 16.11.2020
Сообщений: 188
По умолчанию

Код:
for i:=1 to 10 do
begin
A[i]:=A[i-1]
Чему равно i-1 при i = 1?
FrosyaZZ вне форума Ответить с цитированием
Старый 12.02.2021, 21:16   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,088
По умолчанию

Код:
for i:=2 to 10 do
"Вот так-то будет лучше" - сказал старик Хотябыч . Но при этом будет другая последовательность
2 8 17 29 44
А по уму - оно так:
Код:
var A : array [1..10] of integer;
i,d : integer;
begin
A[1]:=2;
d := 3;
for i:=2 to 10 do
begin
   A[i]:=A[i-1]+d;
   d := d + d;
   write (A[i], ' ')
end;
end.

Последний раз редактировалось digitalis; 12.02.2021 в 21:43.
digitalis вне форума Ответить с цитированием
Старый 12.02.2021, 21:53   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,861
По умолчанию

Или просто A[i] := 2 * A[i - 1] + 1;.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 12.02.2021, 22:30   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,088
По умолчанию

Действительно...
Впрочем, "нормальные герои всегда идут в обход"
digitalis вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль ABC. Программа на языке Паскаль. Helen1 Паскаль, Turbo Pascal, PascalABC.NET 6 13.01.2018 21:46
паскаль abc. Используя графические средства языка Паскаль на одной координатной сетке построить графики функций кириллюк Помощь студентам 5 15.09.2013 11:11
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже IZOPGRAM Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2012 09:54
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 17:23


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS