Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помоигте с задачей на массив

Автор: Juhn 22.01.2008 2:20

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

Автор: compiler 22.01.2008 2:32

псевдокод...

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


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

Автор: Juhn 22.01.2008 2:41

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

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

Что тут нитак ? Програмка не работает :/

Автор: мисс_граффити 22.01.2008 2:45

0. mas описано как целое число, а не как массив
надо

mas: array[1..10] of integer;

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

Автор: compiler 22.01.2008 2:47

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

Автор: Juhn 22.01.2008 3:00

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, видать всё - равно что - то нитак. :/

Автор: compiler 22.01.2008 3:03

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

Автор: Juhn 22.01.2008 3:07

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

Автор: feniks25 22.01.2008 3:08

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

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

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

Цитата

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


Автор: Juhn 22.01.2008 3:11

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

Автор: compiler 22.01.2008 3:17

посмотри эту программу, может станет яснее...

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.


Автор: feniks25 22.01.2008 3:24

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

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

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

Автор: мисс_граффити 22.01.2008 3:54

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

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

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

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

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

Автор: DJ-FOX 23.01.2008 19:32

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

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