IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помоигте с задачей на массив, массив
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Помогите пожалуйста написать программу в паскале. Я с массивами вообще не знаком, а прогу написать нужно. Надеюсь кому - то не сложно будет написать. Очень надеюсь на вашу помощь.
Условие: Дан массив из 10 целых чисел. Найти сумму элементов данного массива.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


псевдокод...
Код
сумма:=0
от первого элемента до последнего делай
сумма:=сумма + текущий элемент


upd
цикл лучше использовать for, имхо

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


program masiv;
var
i, rez, mas:integer;
begin
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
readln;
end.

mas-имя, rez-результат.

Что тут нитак ? Програмка не работает :/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


0. mas описано как целое число, а не как массив
надо
mas: array[1..10] of integer;

1. Что в массиве? Неизвестно.... Хорошо бы туда что-нибудь записать.
2. Сумму (rez) надо обнулять до цикла.

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(Juhn @ 21.01.2008 21:41) *
Что тут нитак ? Програмка не работает :/
а должна? во первых, массив должен быть описан как массив(а не целое число), а во вторых не плохо было бы инициализировать переменные...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


program masiv;
var mas : array [1..10] of integer;
i, rez : integer;
begin
rez := 0;
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
readln;
end.

Ответ выдаёт 0, видать всё - равно что - то нитак. :/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(Juhn @ 21.01.2008 22:00) *
Ответ выдаёт 0, видать всё - равно что - то нитак. :/
а сколько хотел? smile.gif хош не ноль, попроси пользователя сначала заполнить массив или заполни случайно(псевдо случайными числами))...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Тоесть ответ правильный ? Я просто не вьезжаю что такое массив, какая - то последовательность чисел, и какой ответ должен быть тоже не знаю, ну ладно smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


Цитата(Juhn @ 21.01.2008 22:00) *

Ответ выдаёт 0, видать всё - равно что - то нитак. :/

тебе ж сказали, заполнить массив попробуй

Цитата

1. Что в массиве? Неизвестно.... Хорошо бы туда что-нибудь записать.



--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Ребята я с трудом понимаю что такое массив, а как его заполнить это уже действия ещё более сложные :D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


посмотри эту программу, может станет яснее...
var
mas : array [1..10] of integer;
i, rez : integer;
begin
(*randomize;
For i:= 1 To 10 Do begin
mas[i]:=random(10);
end;*)

For i:= 1 To 10 Do begin
write('Enter element number', i, '> '); read(mas[i]);
end;

write('array:');
For i:= 1 To 10 Do begin
write(mas[i]:4);
end;
writeln;

rez := 0;
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
end.



--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


Цитата(Juhn @ 21.01.2008 22:11) *

Ребята я с трудом понимаю что такое массив, а как его заполнить это уже действия ещё более сложные :D

тебе, желательно для начала почитать литературу,
но ты же написал: rez:=0?
сделай тоже для элемента массива mas[1]:=5;


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Цитата(Juhn @ 21.01.2008 23:11) *

Тоесть ответ правильный ? Я просто не вьезжаю что такое массив, какая - то последовательность чисел, и какой ответ должен быть тоже не знаю, ну ладно

ну да, по сути одномерный массив - последовательность... элементы в которой пронумерованы.

например, mas - массив. mas[1] - первый элемент, mas[2] - второй элемент...

соответственно, надо:
1. заполнить массив
2. то, что у тебя уже написано...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Уважаемые форумчане,помогите чем можете,до меня не допирает...мне нужна прога которая формирует матрицу случайными числами,выводит её на экран,находит сумму главной диагонали и второстепенной диагонали,ищет номер минимального размера массива.

 ! 
Не задавай свои вопросы в чужих темах



Сообщение отредактировано: Michael_Rybak -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name