 Цикл |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| BanneD |
 20.12.2010 17:59
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 24 Пол: Мужской Репутация:  0   |
program massiv;
const n=15;
var x:array[1..n]of integer;
m,i:integer;
begin
read(m); {m=4}
read(x[1]); {x[1]=2}
for i:=2 to n do
x[i]:=x[i-1]+m;
for i:=1 to n do
writeln('x[',i,']=',x[i]);
end.
Помогите как вот это всё пихнуть в 1 цикл!? не так
for i:=2 to n do
begin
x[i]:=x[i-1]+m;
writeln('x[',i,']=',x[i]);
end;
потому что здесь будет выводиться начиная со 2-го эл-а!и не так writeln('x[1]=',x[1]);
for i:=2 to n do
begin
x[i]:=x[i-1]+m;
writeln('x[',i,']=',x[i]);
end;
Училка говорит что есть другие способы! мб кто знает? Сообщение отредактировано: BanneD - 20.12.2010 18:49 -------------------- Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая.
Но вся беда в том, что мы смотрим на запертую дверь! |
   |
 
|
Сообщений в этой теме
BanneD Цикл 20.12.2010 17:59
Freedom
[code=pas]
program massiv;
const n=15;
var x:arra... 20.12.2010 18:50
BanneD
А если вот так??
for i:=1 to n do begin
... 20.12.2010 18:59 BanneD Можно и так=)
for i:=1 to n do
begin
... 21.12.2010 20:28 volvo Угу. И вылететь за пределы массива при i = n... 21.12.2010 20:43 BanneD
Угу. И вылететь за пределы массива при i = n...
... 21.12.2010 20:45 volvo Зайди Options->Compiler, включи в группе Runtim... 22.12.2010 11:14  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 4:43 |