Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Типизированные файлы:числовые данные https://www.cyberforum.ru/ pascalabc-net/ thread1620183.html
Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны K. Вывести полученный файл на печать.
Изменить решение задачи PascalABC.NET
Всем привет! Была у меня задачка: одноклеточная амёба каждые 4 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12, .., 24 часа. Решил её так: program labv; var counter: integer; a: array of integer; begin a:=1; for counter:=1 to 24 do
PascalABC.NET Типизированные файлы: файлы записей Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. Найти даты, где год с наименьшим номером. https://www.cyberforum.ru/ pascalabc-net/ thread1620154.html PascalABC.NET Типизированные файлы: файлы записей https://www.cyberforum.ru/ pascalabc-net/ thread1620151.html
Дан файл, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы (например, игрушка может предназначаться для детей от двух до пяти лет). Получить название игрушек, цена которых не превышает s руб. и которые подходят детям 5 лет.
PascalABC.NET С3 игра в камни
Здравствуйте. У меня есть программа для задания: Два игрока играют в следующую игру. Перед ними лежат кучка камней . У каждого игрока неограниченно много камней. Игроки ходят по очереди. Ход состоит в том, что игрок или удваивает число камней в куче, или добавляет 2 камня в кучу. Выигрывает игрок, после хода которого общее число камней кучае становится не менее камней. Кто выигрывает при...
PascalABC.NET процедуры и функции. не могу найти ошибку https://www.cyberforum.ru/ pascalabc-net/ thread1620101.html
Программа. По заданным 5-элементным целым массивам x, y вычислить \sum_{j=1}^{5}x{\left}^{2} если \sum_{j=1}^{5}x\left*\left>0 иначе \sum_{j=1}^{5}y{\left}^{2} вот код procedure gen_prn(s: string; var z: array of longint); var i: integer;
PascalABC.NET Задача с использованием структуры «файл» https://www.cyberforum.ru/ pascalabc-net/ thread1620095.html
Найти сумму длин самой длинной и k-й строк PascalABC
Задача с использованием структуры «файл» PascalABC.NET
Переписать в другой файл строки, начинающиеся с заданного символа. PascalABC
PascalABC.NET Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово https://www.cyberforum.ru/ pascalabc-net/ thread1620059.html
Помогите пожалуйста, не могу понять множества, из-за этого не могу сделать лабораторную работу Решение обеих задач оформить одной программой. Для вывода множества использовать процедуру PRINTS(M: N) Procedure PRINTS(M:N); Var i:byte; begin for i:=0 to 255 do if chr(i) in M then write(chr(i):2)); writeln
PascalABC.NET Сформировать расписание экзаменов сессии в заданном году https://www.cyberforum.ru/ pascalabc-net/ thread1620041.html
Сессия начинается в день d.m.g.. Для студентов специальности "Электронные системы " она состоит из N экзаменов. Первый экзамен приходится на второй день сессии. Между экзаменами - M дней подготовки. Сформировать расписание экзаменов сессии в заданном году.
PascalABC.NET Скопировать из одного файла в другой только натуральные четные числа и найти их сумму
Подскажите пожалуйста как преобразовать из char в integer? var a,b:file of char; c:char; i:integer; begin assign (a, 'C:\Users\WindForce\Desktop\in.txt'); reset(a); assign (b, 'C:\Users\WindForce\Desktop\out.txt');
PascalABC.NET Попадание точки в заштрихованную область Построить программу, которая вводит координаты точки (x, y) и определяет, попадает ли точка в заштрихованную область на рисунке. Попадание на границу области считать попаданием в область. https://www.cyberforum.ru/ pascalabc-net/ thread1620022.html
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
21.12.2015, 11:04 0

Сформировать массив: первый элемент равен A, второй равен B, каждый последующий - равен сумме всех предыдущих - PascalABC.NET - Ответ 8521699

21.12.2015, 11:04. Показов 2370. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const 
   n=5;
   a=4;
   b=0;
var
  i,s:integer;
  c:array[1..n] of integer;
begin
  c[1]:=a;c[2]:=b;s:=c[1];
  for i:=3 to n do begin
    s:=c[i-1]+s;
    c[i]:=s;
  end;
  writeln('результат:',C);
end.


Вернуться к обсуждению:
Сформировать массив: первый элемент равен A, второй равен B, каждый последующий - равен сумме всех предыдущих PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2015, 11:04
Готовые ответы и решения:

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

Получить массив, каждый элемент которого равен сумме соответствующих элементов двух исходных
Дан массив A(10,12) и B(10,12) А)Получить массив C(10,12) каждый элемент которого равен сумме...

Сгенерировать одномерный массив, каждый элемент которого равен сумме соответствующей строки матрицы А
Составить программу генерирующую одномерный массив каждый элемент которого равен сумме...

Сформировать массив, в котором каждый элемент равен предыдущему, уменьшенному в n раз
1. Сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен...

2
21.12.2015, 11:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2015, 11:04
Помогаю со студенческими работами здесь

Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5
Дан двумерный массив размерностью 4 х 5, заполненный целыми числами с клавиатуры. Сформировать...

В последовательности каждый член, начиная с четвертого, равен последней цифре суммы трех предыдущих. Найти n- ый элемент
2) В последовательности (1 2 3 , , , ..., n) a каждый член, начиная с четвертого, равен последней...

Сформировать вектор, каждый элемент которого равен среднему арифметическому значений элементов строк матрицы
Сформировать вектор D=(d1, d2, d3,...,dk), каждый элемент которого равен среднему арифметическому...

Массив: Составить массив, каждый элемент которого равен среднему арифметическому элементов массивов A B C...
Даны 3 массива по 8 чисел. Нужно составить ещё один массив элементы вычисляются вот так:каждый...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru