Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Лысый лев
0 / 0 / 0
Регистрация: 08.05.2009
Сообщений: 4
1

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

18.05.2009, 17:49. Просмотров 1874. Ответов 8
Метки нет (Все метки)

Напишите пожалуйста программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен разности двух предыдущих элементов. Два первых элемента задайте с клавиатуры.
Буду очень благодарен...
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2009, 17:49
Ответы с готовыми решениями:

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

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

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

Массив 9 на 5, заполненный по следующим правилам: Каждый элемент равен разности удвоенного номера строки и номер столбца
Помогите написать программу, которая запрашивает массив 9*5 числами по следующим правилам: Каждый...

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

8
Jazon_deenAlt
4113 / 988 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
18.05.2009, 18:05 2
Уточните правильно ли я вас понял оно что должно выглядеть так:
например массив 4*4, ввел 5 и 1 тогда должно получитса
5 1 4 -3
7 -10 17 -27
44 -71 115 -186
301 -487 788 -1275
или я чтото не так понимаю?
0
GOBLIN
5 / 5 / 4
Регистрация: 26.04.2009
Сообщений: 23
18.05.2009, 18:09 3
Товарисчи нужно примерно похожее!!! Нужно чтобы прога считала суммы элементов строк матрицы!!! Матрица произвольная размерность задаётся при запуске!!! Заранее спасибо!!
0
Лысый лев
0 / 0 / 0
Регистрация: 08.05.2009
Сообщений: 4
18.05.2009, 18:11  [ТС] 4
Jazon_deenAlt, Вы все правильно поняли!
0
Jazon_deenAlt
4113 / 988 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
18.05.2009, 18:22 5
GOBLIN, ето вам:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program symmas;
uses crt;
var
   a:array of array of integer;
   s,m,n,i,j:integer;
 
   begin
      writeln('vvedite kolichestvo stolbikov');
      readln(m);
      writeln('vvedite kolichestvo strok');
      readln(n);
      setlength(a,m,n);
      s:=0;
      for i:=0 to n-1 do begin
         for j:= 0 to m-1 do begin
           a[i,j]:=random(200)-100;
         end;
      end;
      for i:=0 to n-1 do begin
         for j:= 0 to m-1 do begin
           s:=s+a[i,j];
         end;
         writeln('stroka', i, 'rovna', s);
         s:=0;
      end;
readln;
end.
Проверте должно работать)
1
GOBLIN
5 / 5 / 4
Регистрация: 26.04.2009
Сообщений: 23
18.05.2009, 18:24 6
Тут вот в чём проблема!!!
Паскаль не пашет с динамическими!!!
Такой код в Дельфе я и сам делал!!!
А в паскале он не катит!!
Там надо как то по другому
0
Jazon_deenAlt
4113 / 988 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
18.05.2009, 19:13 7
GOBLIN, Уважаемый, как я извиняюсь не работает? проверил на фри паскале все работает, попробуйте и вы. сохраните текст в блокноте с розшырением *.pas и все должно быть)
0
GOBLIN
5 / 5 / 4
Регистрация: 26.04.2009
Сообщений: 23
18.05.2009, 19:57 8
Хех!!! Ну загвоздка в том что в FreePascal используется код Object!!! В котором уже есть Динамические массивы!!! А в Turbo Pascal их нет!!
Но я уже качаю FREE так что спасибо!!
0
Jazon_deenAlt
4113 / 988 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
18.05.2009, 20:20 9
Лысый лев, вот ваша программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program symmas;
uses crt;
var
   a:array of array of integer;
   b:array of integer;
   b1,b2,l,m,n,i,j:integer;
  g, s:string;
 
   begin
      writeln('vvedite kolichestvo stolbikov');
      readln(m);
      writeln('vvedite kolichestvo strok');
      readln(n);
      setlength(a,m,n);
      setlength(b,m*n);
      s:='';
      writeln('vvedite 1 element');
      readln(b1);
      writeln('vvedite 2 element');
      readln(b2);
      b[0]:=b1;
      b[1]:=b2;
         for i:=2 to m*n-1 do begin
            b[i]:=b[i-2] - b[i-1];
         end;
      l:=0;
      for i:=0 to n-1 do begin
         for j:= 0 to m-1 do begin
           a[i,j]:=b[l];
           str(b[l],g);
           s:=s+g+' ';
           l:=l+1;
         end;
         writeln(s);
         s:='';
      end;
      writeln('nazmite enter') ;
readln;
end.
1
18.05.2009, 20:20
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2009, 20:20

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

Сформировать массив так, чтобы каждый элемент, начиная с третьего, был равен произведеннию двух предыдущих
uses crt; var a:array of integer; i,n:integer; begin writeln (' Введите длину массива');...

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

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


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

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

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