Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
воробьев
0 / 0 / 0
Регистрация: 26.02.2014
Сообщений: 67
#1

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

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

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

Нужна сумма двух, а выводит сумму всех...

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):

Если сумма двух чисел является положительной, то вывести на экран сумму всех трех - Pascal ABC
Написать программу, которая запрашивает у пользователя три целых числа А,В,С. Если сумма каких-либо двух чисел является положительной, то...

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

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

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

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

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

2
Svager
393 / 373 / 212
Регистрация: 14.09.2013
Сообщений: 1,200
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 / 0
Регистрация: 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, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень - Pascal
Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых...

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

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

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


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

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

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