Помогите доделать задание на массив

tatca · 03.06.2011, 22:40

Я сделала № 1
1. Составьте программу, которая запрашивает значение элементов одномерного числового массива А, формирует и выводит на экран в строку новый числовой массив В, в котором элементы равны модулю соответствующих элементов А.

program upr6_1;
type mas_a=array[0..30] of integer;
type mas_c=array[0..30] of integer;
var a:mas_a; c:mas_c; i,n:integer;
begin
writeln ('введите количество элементов '); readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
write (a[i]:5);
writeln;
for i:=1 to n do
c[i]:= abs(a[i]);
for i:=1 to n do
write (c[i]:5);
writeln;
end.

Помогите с №2
2. Измените предыдущую программу так, чтобы в массиве В, элемент с номером i был равен произведению первых i элементов массива А.

Vladimir_S · 03.06.2011, 22:54

По поводу программы.
В принципе всё правильно, и работать будет, но вот это:

Цитата:

type mas_a=array[0..30] of integer;
type mas_c=array[0..30] of integer;
var a:mas_a; c:mas_c; i,n:integer;

тихий ужас...
Для начала, непонятно на кой пёс Вам вообще сдались эти пользовательские типы? Такое применяется, в частности, когда нужно организовать обмен данными между программой и подпрограммой, или модулями и т.п., у Вас же - обычная сугубо линейная программа, где это вовсе ни к чему. И уж тем более создание двух абсолютно идентичных типов - совсем абсурд! Вот два варианта:
1. Без пользовательских типов:
var
a,c:array[0..30] of integer;
i,n:integer;
2. С введением типа (если уж очень хочется):
type
mas=array[0..30] of integer;
var
a,c:mas;
i,n:integer;

Vladimir_S · 03.06.2011, 23:09

Цитата:

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

Помогите с №2 2. Измените предыдущую программу так, чтобы в массиве В, элемент с номером i был равен произведению первых i элементов массива А.

Пожалуйста - плюс кое-какая косметика:

Код:

var
 a:array[0..30] of integer;
 b:array[0..30] of LongInt;
 i,n,k:integer;
begin
 write('введите количество элементов: ');
 readln(n);
 for i:=1 to n do
  begin
   write('a[',i:2,']= ');
   readln(a[i]);
  end;
 writeln;
 for i:=1 to n do
  write(a[i]:5);
 writeln;
 writeln;
 for i:=1 to n do
  begin
   b[i]:=1;
   for k:=1 to i do
    b[i]:=b[i]*a[k];
  end;
 for i:=1 to n do
  write (b[i]:10);
 writeln;
 readln
end.

Только числа вводите маленькие - однозначные. Иначе произведения могут "выскочить" даже за пределы формата LongInt.

tatca · 03.06.2011, 23:48

По поводу "тихого ужаса "!

Просто нас так учат!

Long Cat · 04.06.2011, 08:11

Вас учат вполне правильно, но вот вы свои знания применяете ужасно.

Vladimir_S · 04.06.2011, 08:16

Цитата:

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

Просто нас так учат!

Название: Clev.gif
Просмотров: 361

Размер: 3.8 Кб

- это я про Ваших "учителей".
То есть если, конечно, Вас действительно учат для каждой переменной-массива непременно вводить свой тип. Даже если массивы одинаковы.

Ксюшенька · 15.06.2011, 19:22

Помогите пожалуйста, задание на массив!!!!

Замечание:

Значит так.
1. Несмотря на неоднократные предупреждения о недопустимости подобного, Вы, уважаемая, продолжаете клонировать свои топики, цепляясь к чужим темам.
2. Еще три дня назад Ваш запрос был перенесен в новую, специально созданную тему
Экзаменационная задача на массив
где и было выложено решение задачки.
3. Это - последнее предупреждение. Еще одна подобная выходка - и пойдете в бан.
ТЕМА ЗАКРЫТА

Модератор

03.06.2011, 22:40	#1 (permalink)
tatca Member Регистрация: 19.05.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите доделать задание на массив Я сделала № 1 1. Составьте программу, которая запрашивает значение элементов одномерного числового массива А, формирует и выводит на экран в строку новый числовой массив В, в котором элементы равны модулю соответствующих элементов А. program upr6_1; type mas_a=array[0..30] of integer; type mas_c=array[0..30] of integer; var a:mas_a; c:mas_c; i,n:integer; begin writeln ('введите количество элементов '); readln(n); for i:=1 to n do read (a[i]); for i:=1 to n do write (a[i]:5); writeln; for i:=1 to n do c[i]:= abs(a[i]); for i:=1 to n do write (c[i]:5); writeln; end. Помогите с №2 2. Измените предыдущую программу так, чтобы в массиве В, элемент с номером i был равен произведению первых i элементов массива А.

03.06.2011, 22:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам ссылки на темы, которые имеют что то общее с вашей темой Помогите доделать программу на C++, пожалуйста! Помогите доделать программу

03.06.2011, 23:48	#4 (permalink)
tatca Member Регистрация: 19.05.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	По поводу "тихого ужаса "! Просто нас так учат!

04.06.2011, 08:11	#5 (permalink)
Long Cat Banned Регистрация: 01.09.2009 Сообщений: 4,396 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2544	Вас учат вполне правильно, но вот вы свои знания применяете ужасно.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070