Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Допиши саму задачу
|
|
Написать рекурсивную функцию, вычисляющую число Фибоначчи. Последовательность Фибоначчи: 1, 1, 2, 3, 5, 8, 13, 21, 34… Изобразите графически алгоритм и напишите программу для решения этой задачи.
Программа:
#include < conio.h>
#include < iostream.h>
int Fibonaci(int n)
{
if (n==0||n==1)
return n;
else
return Fibonaci(n-1) + Fibonaci(n-2);
}
void main()
{
int n;
cout< < " Number: ";
cin> > n;
cout< < " Fibonaci = " < < Fibonaci(n);
getch();
}
Блок-схема:
Задача №3
Допиши саму задачу
Программа:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, Windows,
math;
type mas = array [0..5, 0..5] of integer;
type ArifmMas = array [0..4] of integer;
var
SfArifm: ArifmMas;
massiv: mas;
stroka, stolbik, count1, count2, count3, count4: Integer;
SredneArifm1, SredneArifm2, SredneArifm3, SredneArifm4: Real;
begin
Randomize;
SredneArifm1: =0;
SredneArifm2: =0;
SredneArifm3: =0;
SredneArifm4: =0;
count1: = 0;
count2: = 0;
count3: = 0;
count4: = 0;
for stroka: = 0 to 4 do
begin
for stolbik: = 0 to 4 do
begin
massiv [stroka, stolbik]: = 10 + Random (90);
write (massiv [stroka, stolbik], ' ');
if (stolbik = 0) then
begin
SredneArifm1: = SredneArifm1 + massiv [stroka, 0];
end;
if (stolbik = 1) then
begin
SredneArifm2: = SredneArifm2 + massiv [stroka, 1];
end;
if (stolbik = 2) then
begin
SredneArifm3: = SredneArifm3 + massiv [stroka, 2];
end;
if (stolbik = 3) then
begin
SredneArifm4: = SredneArifm4 + massiv [stroka, 3];
end;
end;
writeln;
writeln;
end;
//--------------------------------------------------------------
SredneArifm1: = SredneArifm1/5;
SredneArifm2: = SredneArifm2/5;
SredneArifm3: = SredneArifm3/5;
SredneArifm4: = SredneArifm4/5;
for stroka: = 0 to 4 do
begin
for stolbik: = 0 to 4 do
begin
if (stolbik > = 1) then
begin
if (Trunc (SredneArifm1) < massiv [stroka, stolbik]) then
count1: = count1 + 1;
end;
if (stolbik > = 2) then
begin
if (Trunc (SredneArifm2) < massiv [stroka, stolbik]) then
count2: = count2 + 1;
end;
if (stolbik > = 3) then
begin
if (Trunc (SredneArifm3) < massiv [stroka, stolbik]) then
count3: = count3 + 1;
end;
if (stolbik = 4) then
begin
if (Trunc (SredneArifm4) < massiv [stroka, stolbik]) then
count4: = count4 + 1;
end;
end;
end;
write ('Среднее арифметическое 1-го столбца: ', Trunc (SredneArifm1));
writeln;
write ('Среднее арифметическое 2-го столбца: ', Trunc (SredneArifm2));
writeln;
write ('Среднее арифметическое 3-го столбца: ', Trunc (SredneArifm3));
writeln;
write ('Среднее арифметическое 4-го столбца: ', Trunc (SredneArifm4));
writeln;
writeln;
writeln;
write ('Количестов элементов превышающих значение 1-го столбца ', count1);
writeln;
write ('Количестов элементов превышающих значение 2-го столбца ', count2);
writeln;
write ('Количестов элементов превышающих значение 3-го столбца ', count3);
writeln;
write ('Количестов элементов превышающих значение 4-го столбца ', count4);
writeln;
readln;
end.
Блок-схема:
|