![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Допиши саму задачу
Написать рекурсивную функцию, вычисляющую число Фибоначчи. Последовательность Фибоначчи: 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.
Блок-схема:
|