Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
воробьев
0 / 0 / 5
Регистрация: 26.02.2014
Сообщений: 67
#1

Сумма двух, а выводит сумму всех - Pascal ABC

17.05.2014, 15:31. Просмотров 188. Ответов 2
Метки нет (Все метки)

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

http://www.cyberforum.ru/pascalabc/thread1436394.html
Нужна сумма двух, а выводит сумму всех...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  M, S: array[1..10000] of integer;
  N, i, A, B: integer;
                  
begin 
  write(' N = '); 
  readln(N);
  writeln(' Введите начальные значения A и B: ');
  readln(A, B);
  m[1] := A; m[2] := B; //Первые два элемента массива.
  S[2] := A; //Начальная сумма.
  write(' ', A, ' ', B); //Первые два элемента массива.
  for i := 3 to N do
   begin
     m[i] := S[i - 1] + m[i - 1]; //i-й элемент массива.
     S[i] := m[i]; //сумма всех предыдущих элементов массива. 
     write(' ', m[i]) //выводим следующий элемент массива.
   end
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2014, 15:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сумма двух, а выводит сумму всех (Pascal ABC):

Дано целое k. Найти сумму квадратов всех натуральных чисел от 1 до k. Сумма чисел не должна превышать заданное
Дано целое k. Найти сумму квадратов всех натуральных чисел от 1 до k. Сумма...

Вычислить сумму первых двух цифр и сумму последних двух цифр числа. Определить какая из найденных сумм больше.
дано четырёхзначное число N. Вычислить сумму первых двух цифр и сумму последних...

Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр совпадает
Четырехзначное число называется «счастливым», если сумма двух первых и двух...

Найти все четырехзначные числа, у которых сумма первых двух цифр равна сумме двух последних
Помогите решить. Описание метода решения, блок-схему алгоритма. Ввод данных...

Вывести на экран только те числа, у которых сумма первых двух цифр равна сумме двух последних
Дан массив из n натуральных четырехзначных чисел. Вывести на экран только те, у...

2
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
17.05.2014, 15:41 #2
воробьев, как-то так..если понял
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,j,n:integer;
begin
 clrscr;
  repeat
   write('n=');
    readln(n);
  until n in [1..nmax];
  write('Ïåðâûé ýëåìåГ*ГІ i=');
   readln(a[1]);
  write('Âòîðîé ýëåìåГ*ГІ i=');
   readln(a[2]);
 for i:=3 to n do
   a[i]:=a[i-2]+a[i-1];
 writeln('ГЊГ*Г±Г±ГЁГў :');
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.
1
воробьев
0 / 0 / 5
Регистрация: 26.02.2014
Сообщений: 67
17.05.2014, 16:00  [ТС] #3
Svager, я полагала, в моей задаче нужн изменить несколько строк, а вы написали новую оо) спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2014, 16:00
Привет! Вот еще темы с решениями:

Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень
Дан отсортированый массив и число N. Если сумма двух элементов массива >= N,...

Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Здравствуйте. не могу решить некоторые задачи. можете помочь? II.Логические...

Выяснить, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр...

Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр
Помогите решить задачки: 1) Проверить истинность высказывания: "Сумма двух...


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

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

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