Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Nelo-Vergil
2 / 2 / 0
Регистрация: 24.12.2010
Сообщений: 96
1

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

02.05.2012, 16:18. Просмотров 2218. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
a:array [1..99] of integer;
i,n:integer;
begin
writeln (' Введите длину массива');
readln(n);
writeln (' введите первые два элемента');
readln (a[i,1]);
readln (a[i,2]);
a[i,3]:=a[i,1]*a[i,2];
for i:=1 to n do
writeln(a[i]:4:2);
end.
Задача
Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего , был равен произведеннию двух предыдущих элементов. Первый и второй элемент вводится с Клавы

Добавлено через 21 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array [1..99] of real;
i,n:integer;
begin
writeln (' Введите длину массива');
readln(n);
writeln (' введите первые два элемента');
 write('a[',i,',1]=');
  read(a[i,1]);
 write('a[',i,',2]=');
  read(a[i,2]);;
a[i,3]:=a[i,1]*a[i,2];
for i:=1 to n do
writeln(a[i]:4:2);
end.
Вот переделал ошибку выдает в одномерной массиве имеет другое количество индексирований
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2012, 16:18
Ответы с готовыми решениями:

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

Сформировать двумерный массив C(n ×m) , так, что бы каждый элемент матрицы был равен: cij= ai+ bj
ЗАДАНИЕ.№5 Дано два одномерных массива разной длины a(n) и b(m). Сформировать двумерный массив ...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Известны два первых элемента массива B: B=4, B=8.Создать массив, каждый элемент которого равен...

Вывести массив размера N, первый элемент которого равен А, второй В, а каждый предыдущий элемент равен сумме всех предыдущих
Данны целые числа N(<2), А и В. сформулировать и вывести целочисленный массив размера N, первый...

1
alexbec-2011
22 / 22 / 14
Регистрация: 01.12.2011
Сообщений: 159
02.05.2012, 16:34 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array [1..99] of real;
i,n:integer;
begin
write(' Ââåäèòå äëèíó ìàññèâà : ');
readln(n);
write('a[1] = ');
readln(a[1]);
write('a[2] = ');
readln(a[2]);
for i:=3 to n do
  a[i]:=a[i-2]*a[i-1];
for i:=1 to n do
  write(a[i],' ');
end.
Добавлено через 2 минуты
а на счет ошибок :
1) вы использовали 2 мерный массив когда у вас одномерный
2) a[i,3]:=a[i,1]*a[i,2]; это что за уравнение???? оно вне цикла!!!
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2012, 16:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заполнить массив из 10 элементов, чтобы каждый элемент был равен сумме делителей своего номера
Заполнить массив из 10 элементов каждый элемент был равен сумме делителей своего номера

Заполните массив степенями числа 2, так, чтобы последний элемент массива был равен 1
заполните массив степенями числа 2,так что-бы последний элемент массива был равен 1,а каждый...

Создать одномерный массив, где все элементы начиная с третьего равны сумме двух предыдущих
Составить программу на Паскале. Создать одномерный массив, в котором первые два элемента задаются с...

Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (в
Задание:Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.