Я все мучаюсь с массивами. Паскаль начал только неделю назад серьезно юзать, т е с БОЛЬШИМ хотением его познать. А началась все с парой задачек. Ну типа составить прогу с помощью которой можно будет квадратные ур-ия решать. Это я сжелал, а вот массивы меня достали. ИНикик ошибку не пойму. Может кто поможет
заполнить линейный массив целых чисел а(n) по правилу а[i]=b * i!

2. Замена элементов в массиве.
В линейном массиве целых чисел d(25) заменить все элементы, меньшие нуля на квадрат этих элементов.

3. Двумерные массивы.
Найти сумму всех четных элементов двумерного массива целых чисел a(20,30).


Помогите пожалуйста (крик души!)  Может у кого похожие проги уже есть? Мыльте на [email protected]

Здравствуйте, Pusillanimous.

I)
const
 n: Integer = 25; //Размер массива
type
 TMyArray = array[0..n] of Byte;
var
 Idx, B: Integer; //B - коэффициент
 A: TMyArray;
begin
 B := 2;
 for Idx := 0 to n do
   //Заполнение по вашей формуле
   A[Idx] := B*Idx;
end;

II)
 for Idx := 0 to 24 do
   //Если элемент<0, то записать вместо него квадрат
   if B[Idx]<0 then B[Idx] := B[Idx]*B[Idx];

III)
 Sum := 0; //Обнуляем сумму в начале
 for I := 0 to n do //Первый цикл по строкам, второй по столбцам
   for J := 0 to m do
     //Если элемент кратен 2-м (делится на 2 без остатка), добавить его в сумму.
     if A[I,J] mod 2 = 0 then Sum := Sum + A[I,J];

Удачи в дальнейшем познании программирования.

Pusillanimous пиши, что у тебя не получается...с подобными задачами и я тебе помочь могу :)) а вообще здесь на форуме есть очень умные, отзывчивые, добрые, понятливые и тд и тп...в общем - тебе всегда помогут!!! :)) я тебе тоже желаю успехов !

neutrinoKleo

Нет слов! Спасибо БОЛЬШОЕ!!! Думаю, что я тут на долго прописался Честно говоря не ожидал, что кто-то ответит. Это как подарок к Рождеству, всегда неожиданно и приятно, что "есть очень умные, отзывчивые, добрые, понятливые.. которые ..тебе всегда помогут!!! )"

Снимаю шляпу!

Цитата(neutrino @ 03.1.2003, 09:41)

neutrino


В чем ошибся

Цитата(neutrino @ 03.1.2003, 09:41)

Я сразу не догадался как сюда картинку поместить. Это по первой задаче, что сам делал. Ошибку аналогичную выдает

neutrino

И почему у меня не получается  

Лучше вместо картинки приведи текст ошибки. Картинку не видно, видимо битая ссылка.

Ссылка вот такая :
file:///C:/Documents%20and%20Settings/Никита/Desktop/RR/tp2.gif

Pusillanimous, Мы ведь не имеем доступ к твоему компьютеру, поэтому не можем посмотреть картинку. Ее надо сначала в Интернете где-то выложить, а затем здесь ссылку указать.

И еще Никита, лучше не храни на рабочем столе никаких папок и файлов, кроме ярлыков...Это ненадежно...для этих файлов и папок..

Pegas

а почему не надежно? У меня обычно рабочий стол похож на рабочий Т е я там храню только что скаченныен и оперативные файлы, т е те, которые часто нужны.

Значит это то что neutrino подсказал, но в моем исполнении не все пошло.


Program massiv;
const
n: Integer = 25;
type
TMyArray = array[0..n] of Byte;
var
Idx, B: Integer;
A: TMyArray;
begin
B := 2;
for Idx := 0 to n do
 
  A[Idx] := B*Idx;
end.

Для проверки нажимаю CTRL+F9, он курсор ставит на n (в

строке [0..n] ) и пишет ERROR 133: Cannot evaluate this

expression.

А вот то что я сам написал по первой задече, прежде чем помощь искать. Тут ошибку замаялся искать, никак не пойму. Тут курсор ставит на i в строке [i..n] и пишет Error 3: Unknown identifier

Program massiv;

Uses crt;
Var
a:array [i..n] of integer;
i,b,n:integer;

Begin
Writeln ('Введите первый элемент b=');
Readln (b);

Writeln ('Введите индекс i=');
readln (i);

Writeln ('Введите второй элемент n=');
readln (n);

for i to n do
Begin
a[i]:=b*fact(i);
Readln;
end;
end.

ну если n у тебя константа и всегда равна 25 то напиши следущее:

Код

Program massiv; type TMyArray = array[0..25] of Byte; var Idx, B: Integer; A: TMyArray; begin B := 2; for Idx := 0 to 25 do  A[Idx] := B*Idx; end.

я убрал объявление n как константы, и везде заменил ее на 25.

Pegas

Задачка была такая: заполнить линейный массив целых чисел а(n) по правилу а[i]=b * i!

Блин! Не люблю не конкретных задач!

Я думаю, по замыслу того, кто придумал эту задачку, нужно эту самую n вводить по мере выполнения программы, что я сам и пытался сделать. Конечно, если n заменить на число, ошибка пропадает. Но все же в чем причина?

>>Шекспир: Вот в чем ответ, во в чем причина того, что снова к вам иду.