Работа с одномерными массивами. Подпрограммы: процедуры и функции.

[Apache116]

Здравствуйте! Всех с Новым Годом!

Помогите пожалуйста решить задание на TurboPascal.
С массивами абсолютно не дружу
Может кто-нибудь делал похожее.

Задана последовательность значений элементов некоторого массива до и после преобразования по некоторому правилу. Определите алгоритм преобразования и напишите программу, которая:

1) формирует массив из заданного количества случайных целых чисел в заданном диапазоне и выводит элементы массива на экран;
2) по определенному вами алгоритму преобразовывает этот массив и выводит на экран элементы преобразованного массива.
3) производит заданные вычисления и выводит результат на экран.
Указания:
- преобразование массива оформить в виде процедуры;
- заданные вычисления оформить в виде функции;
- все выводы на экран осуществлять в основной программе.

Массив K = (5, –5, 4, 9, –7, –11, 0) преобразован к виду K = (0, 1, 0, 0, –1, –5, 0). Размер массива K - 21 элемент из диапазона [–56,56]. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–1, 16].

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Apache116]

Сообщение от Alex11223

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

вот код, подскажите, в чем ошибка, делал по образцу
программа компилируется, при запуске выдает ошибку 215: Арифметическое переполнение

uses crt;
const kol_el=21;
type mas=array[1..kol_el] of integer;
Procedure Preobr(var a:mas);
var i: integer;
begin;
writeln('Algoritm: umenshit elementy na 7');
for i:=1 to kol_el do
a[i]:=a[i]-7;
end;

Function Sum(a:mas):integer;
var i,s: integer;
begin
s:=0;
for i:=1 to kol_el do
if (a[i]>=-1) and(a[i]<=16) then s:=s+a[i];
sum:=s;
end;

var T:mas;
i:integer;
Begin
clrscr;
Randomize;
writeln('Ishodnyi massiv');
for i:=1 to kol_el do
begin
T[i]:=Random(112)-56;
write(T[i]:4);
end;
writeln;
Preobr(T);
writeln('Preobrazovanyi massiv');
for i:=1 to kol_el do
write(T[i]:4);
writeln;
write('Summa elementov v int [-1..16]= ',Sum(T));
readln;
End.

[digitalis]

Странно, запустил несколько раз - никаких ошибок. Может, компилятор кривой и неправильный код сгенерировал ?

[Apache116]

Сообщение от digitalis

Странно, запустил несколько раз - никаких ошибок. Может, компилятор кривой и неправильный код сгенерировал ?

ошибка была в этой строке

T[i]:=Random(112)-56;

и вообще я не правильно решил все, если интересно могу скинуть правильное решение, может кому-нибудь пригодится

[Apache116]

в общем вот:

uses crt;
const kol_el=21;
type mas=array[1..kol_el] of integer;
Procedure Preobr(var a:mas);
var i: integer;
begin;
writeln('Algoritm: otricatelnye uvelichit na 6, ostalnye obratit v 0');
for i:=1 to kol_el do
if a[i]<0 then a[i]:=a[i]+6
else a[i]:=0;
end;
 
Function Sum(a:mas):integer;
var i,s: integer;
begin
s:=0;
for i:=1 to kol_el do
if (a[i]>=-1) and(a[i]<=16) then s:=s+a[i];
sum:=s;
end;
 
var T:mas;
i:integer;
Begin
clrscr;
Randomize;
writeln('Ishodnyi massiv');
for i:=1 to kol_el do
begin
T[i]:=-56+Random(113);
write(T[i]:4);
end;
writeln;
Preobr(T);
writeln('Preobrazovanyi massiv');
for i:=1 to kol_el do
write(T[i]:4);
writeln;
write('Summa elementov v int [-1..16]= ',Sum(T));
readln;
End

[digitalis]

Не вижу разницы между

T[i]:=-56+Random(113);

и

T[i]:=Random(112)-56;

- ну чуть-чуть случайные числа будут отличаться, а чтобы ошибка ... ? . Тем боле проверено - работает без всяких яких. Тут или ошибка копипасты с оригинала (компилятору подкинули текст чуть-чуть отличный от форумного) - или какая-то мистика новогодняя. В обчем, "Ирония судьбы" .

[Вадим Мошев]

Я подтверждаю, при таком

T[i]:=Random(112)-56;

может произойти ошибка переполнения. В досовской Turbo Pascal 7.0 такое имело место.

Решается так.
Чтобы сгенерировать случайное целое число число из диапазона [min..max] используйте такую формулу:

random(max-min+1) + min

[digitalis]

Или я туплю после н.г., или я вообще чего-то не догоняю.
В чем крамола, что аргумент random(max-min+1) будет не 113, а 112 ? Если этот рандом нормально сформируется, то +/- чего-то -- это будет всего лишь сдвиг сформированного рандома на +/- чего-то туда-сюда. Обязательно max-min+1 должен быть нечетным ? random(3) всегда будет х'океей, а с random(2) возможно иметь грабли ? Экзешник не видит этой формулы random(max-min+1), у него на входе число, а каким боком оно получено (5-3+1 или 5-2+1) - ему по уху. Вроде так.
А уж где стоит -56 -- перед random или после -- это вообще ненаучная фантастика, мрак и чернокнижие.
Я специально прогнал в ТР7 несколько запусков с random(112) по несколько тысяч раз в каждом - и ни разу вылета не было. Повезло ?

[Аватар]

Не вижу разницы между
Цитата:
T[i]:=-56+Random(113);
и
Цитата:
T[i]:=Random(112)-56;

В первом случае получим интервал [-56;56], во втором [-56;55]. И все. А ошибка - то гримасы турбо паскаля, а не из-за этого. В нем тип промежуточных результатов связан с порядком следования в выражении