Другие языки программирования и технологии
Подскажите по Паскалю
Даны целые числа а, b, n>2. Сформировать и вывести целочисленный массив размером n, первым элементом которого является а, вторым b, а каждый последующий элемент равен сумме всех предыдущих.
Зачем два цикла???? Нужна просто еще одна переменная в которой будет храниться сумма предыдущих. Она будет каждый раз тупо на 2 умножатся
Подсказываю: В первый элемент массива записать а, во второй - b. Затем, используя цикл со счетчиком for, записать в массив все элементы, начиная с 3-его. Для расчета значения текущего элемента складывать два предыдущих элемента.
Надо учиться, а не пиво жрать и девок щупать.
Ну вот и еще одного младенца развратили)
Теперь и он свято уверовал в то что можно всю четверть ни о чем не заботясь пиво жрать и девок щупать, а к зачетам-контрольным всегда найдется "благодетель", который нахалявку прикроет его беззаботную задницу от нацеленного в нее карающего инструмента препода)
Теперь и он свято уверовал в то что можно всю четверть ни о чем не заботясь пиво жрать и девок щупать, а к зачетам-контрольным всегда найдется "благодетель", который нахалявку прикроет его беззаботную задницу от нацеленного в нее карающего инструмента препода)
Нужно 2 цикла (цикл в цикле) . В одном будут присваиваться значения элементу массива, а во внутреннем - будет считаться сумма предыдущих элементов.
Две предыдущих подсказки - неправельные.
Две предыдущих подсказки - неправельные.
readln( m[1], m[2], n );
for i := 3 to n do
m[ i ] := m[ i-2 ] + m[ i-1 ];
for i := 3 to n do
m[ i ] := m[ i-2 ] + m[ i-1 ];
var
i:integer; // счетчик в цикле
N:integer; // размер массива
a: array [1..10] of integer;
begin
// ввод данных
writeln('Введите N (2 writeln('Введите первый элемент'); readln(a[1]);
writeln('Введите второй элемент'); readln(a[2]);
A[3]:=A[1]+A[2]; // значение третьего элемента массива
for i:=4 to N do a[i]:=a[i-1]*2; // формирование массива
for i:=1 to N do writeln('a[',i,']=',a[i]); // вывод результата
end.
i:integer; // счетчик в цикле
N:integer; // размер массива
a: array [1..10] of integer;
begin
// ввод данных
writeln('Введите N (2 writeln('Введите первый элемент'); readln(a[1]);
writeln('Введите второй элемент'); readln(a[2]);
A[3]:=A[1]+A[2]; // значение третьего элемента массива
for i:=4 to N do a[i]:=a[i-1]*2; // формирование массива
for i:=1 to N do writeln('a[',i,']=',a[i]); // вывод результата
end.
Похожие вопросы
- Подскажите почему Паскаль не делает нужного расчета и выводит на экран просто S вместо его значения? Как это исправить?
- ПОдскажите по Паскалю
- Подскажите с паскалем. Очень срочно
- Паскаль. подскажите кто может
- Аналог ассоциативного массива в Паскале.
- Подскажите мне пожалуиста что такое алгоритм и зачем компьютеру. нужен алгоритм.И что такое прога Паскаль и зачем она
- По дате вычислить порядковый номер дня в нашей эре.На паскале. Подскажите как это сделать ;/
- Паскаль не получается, подскажите?
- Я внутри написал, что я знаю про паскаль не то что решать и все такое а так теоретический в общем, смысл проги, я прав?
- ПАСКАЛЬ и ГРАФИКА