Сформировать и вывести одномерный массив, содержащий N первых чисел Фибоначчи

@Unknowns · Регистрация: 09.04.2009

Пожалуйста помогите с этими задачками

2. Известен возраст группы людей, состоящей из N человек. Выясните средний
возраст группы и процент людей, возраст которых < 20 лет.
3.Сформировать и вывести одномерный массив, содержащий N первых чисел
Фибоначчи: f0=f1=1,fn=fn-1 +fn-2
5. Дан массив А из N целых чисел. Все его элементы, кроме последнего, упорядочены по возрастанию. Переместить значение последнего элемента на такую позицию в массиве, чтобы все N элементов оказались упорядоченными по возрастанию. Методы сортировок для всего исходного массива не использовать.
8. Дана целочисленная матрица А размерности 5x5 и целое число К. Найти сумму и произведение элементов К-ой строки матрицы А.
10. Даны непустые строки S,S1 и символ С. Перед каждым вхождением символа С в строку S вставить строку S1.
14. Описать процедуру DigitCountSum(X,C,S)находящую количество С цифр в записи целого положительного числа X и сумму его цифр S. (Х- входной, С и S-выходные параметры ). С помощью этой процедуры найти количество и сумму цифр для пяти целых чисел.
15. Сформировать файл, содержащий N записей о работниках предприятия. Записи должны содержать следующие сведения: ФИО, оклад. Отсортировать все записи по возрастанию окладов

@Mat_All · 13.05.2009, 16:44

Сообщение от Unknowns

3.Сформировать и вывести одномерный массив, содержащий N первых чисел
Фибоначчи: f0=f1=1,fn=fn-1 +fn-2

Pascal

Program Bred;
Uses WinCrt;
Const m=100;
Var
  F:array [1..m] of integer;
  i,n:integer;
Begin
  F[1]:=1; F[2]:=1;
  Readln (n);
  for i:=3 to n do
   F[i]:=F[i-1]+F[i-2];
  for i:=1 to n do
   Write (F[i]:3);
End.

@Unknowns · 13.05.2009, 17:13 **[ТС]**

oO спасибо

@Mat_All · 13.05.2009, 17:16

Сообщение от Unknowns

. Дана целочисленная матрица А размерности 5x5 и целое число К. Найти сумму и произведение элементов К-ой строки матрицы А.

Pascal

Program Mat_All;
Uses WinCrt;
Const m=5;
Var
  A:array [1..m, 1..m] of integer;
  i,j,k,P,S:integer;
Begin
  Randomize;
  Writeln ('Ishodnaya:');
  For i:=1 to m do
   Begin
     For j:=1 to m do
       Begin
         A[i,j]:=Random(41)-20;
         Write (A[i,j]:4);
       End;
     Writeln;
   End;
 
  Repeat
    Write ('Vvedyte 0<k<',m, ': ');
    Readln (k);
    writeln;
  Until ((k<5) and (k>0));
 
  S:=0; P:=1;
  For j:=1 to m do
   Begin
    S:=S+A[k,j];
    P:=P*A[k,j];
   End;
 
  Write ('S=', S:4, ' P=',P:4);
End.

@Unknowns · 16.05.2009, 12:21 **[ТС]**

Спасиб тебе огромное

Добавлено через 13 часов 13 минут 31 секунду
ап

Добавлено через 3 часа 7 минут 52 секунды
ап

Добавлено через 5 часов 51 минуту 50 секунд
ап

Добавлено через 23 часа 56 минут 0 секунд
ап

Добавлено через 5 часов 43 минуты 52 секунды
ап

Добавлено через 12 часов 48 минут 4 секунды
ап

@Unknowns · 18.05.2009, 00:02 **[ТС]**

ап

@Darkcat112 · 03.03.2020, 17:39

Pascal

var f1,f2,b,i,n: word;
begin
    readln(n);
    f1 := 1;
    f2 := 2;
    write(f1,' ',f2,' ');
    for i:=3 to n do begin
        write(f1+f2, ' ');
        b := f1;
        f1 := f2;
        f2 := b + f1;
    end;
    writeln;
end.

Вот вам уневерсальная прога по Фибоначи(числам)
Выводит то кол-во элементов скок нужно)
Вставил свою лепту для разнообразия(даты старые)

@ZX Spectrum-128 · 03.03.2020, 18:44

Darkcat112, теме 11 (одиннадцать!) лет.

@Darkcat112 · 04.03.2020, 18:05

Есть же изменения за эти 11 лет)Верно же?

@Unknowns 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 12
		1
	Сформировать и вывести одномерный массив, содержащий N первых чисел Фибоначчи 13.05.2009, 16:07. Показов 7712. Ответов 8 Метки нет (Все метки) Пожалуйста помогите с этими задачками 2. Известен возраст группы людей, состоящей из N человек. Выясните средний возраст группы и процент людей, возраст которых < 20 лет. 3.Сформировать и вывести одномерный массив, содержащий N первых чисел Фибоначчи: f0=f1=1,fn=fn-1 +fn-2 5. Дан массив А из N целых чисел. Все его элементы, кроме последнего, упорядочены по возрастанию. Переместить значение последнего элемента на такую позицию в массиве, чтобы все N элементов оказались упорядоченными по возрастанию. Методы сортировок для всего исходного массива не использовать. 8. Дана целочисленная матрица А размерности 5x5 и целое число К. Найти сумму и произведение элементов К-ой строки матрицы А. 10. Даны непустые строки S,S1 и символ С. Перед каждым вхождением символа С в строку S вставить строку S1. 14. Описать процедуру DigitCountSum(X,C,S)находящую количество С цифр в записи целого положительного числа X и сумму его цифр S. (Х- входной, С и S-выходные параметры ). С помощью этой процедуры найти количество и сумму цифр для пяти целых чисел. 15. Сформировать файл, содержащий N записей о работниках предприятия. Записи должны содержать следующие сведения: ФИО, оклад. Отсортировать все записи по возрастанию окладов 0

@Unknowns 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 12
	13.05.2009, 17:13 [ТС]	3
	oO спасибо 0

@Unknowns 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 12
	16.05.2009, 12:21 [ТС]	5
	Спасиб тебе огромное Добавлено через 13 часов 13 минут 31 секунду ап Добавлено через 3 часа 7 минут 52 секунды ап Добавлено через 5 часов 51 минуту 50 секунд ап Добавлено через 23 часа 56 минут 0 секунд ап Добавлено через 5 часов 43 минуты 52 секунды ап Добавлено через 12 часов 48 минут 4 секунды ап 0

@Unknowns 0 / 0 / 0 Регистрация: 09.04.2009 Сообщений: 12
	18.05.2009, 00:02 [ТС]	6
	ап 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	03.03.2020, 18:44	8
	Darkcat112, теме 11 (одиннадцать!) лет. 0

@Darkcat112 Кот форума 9 / 9 / 5 Регистрация: 02.03.2020 Сообщений: 183
	04.03.2020, 18:05	9
	Есть же изменения за эти 11 лет)Верно же? 0

Опции темы