Программирование елементів разветвляющейся структуры

ПЕНЗЕНСЬКИЙ ДЕРЖАВНИЙ УНИВЕРСИТЕТ.

Кафедра МО і ПЭВМ.

Лабораторна робота № 6.

Тема: «Програмування елементів разветвляющейся структуры».

Виконав: студент грн. 02ТП1.

Пахомов У. Е.

Перевірив: Ракова А. Н.

Завдання А.

Визначити скільки раз середнє геометричне чисел натурального низки кратних трьом буде в діапазоні від 1 до 31 перевищує середнє арифметичне цих чисел.

Программа:

uses crt; function koren (X: real; power: integer): real; var.

I: integer; begin if power mod 2 0 then power := power * 2; for і := 1 to power divx 2 do begin.

X := sqrt (X); end; koren := X; end;

var n, i: integer; avs, avg, sum, gem: real; begin і := 1; n := 0; sum :=0; gem := 1; while і < 31 do begin.

sum := sum + і; gem := gem * і; і := і + 3; inc (n); end; writeln («Сума = «, Sum:3:4, «Похідні = «, gem:3:4); avs := sum / n; avg := koren (gem, n);

{writeln («avs = «, avs:3:4, «avg = «, avg:3:4, «n = «, n);} writeln («Відповідь = «, avg/avs:3:4, «raz »); readkey; end.

Блок-схема Задание Б.

Виробити обчислення значення функции:

[pic] буде в діапазоні значень x від [pic] до [pic], мінливого з кроком h. На печатку виводити лише позитивні значення функції, при відповідних значеннях аргумента.

Программа:

uses crt; var h, n, e, i, y: real; begin clrscr; writeln («Запровадьте значення нижньої межі Х »); readln (n); writeln («Запровадьте значення верхньої межі Х »); readln (e); writeln («Запровадьте значення кроку »); readln (h); і := n; while і < e do begin y := (i*i*i+sin (sqr (i)))/(1+sqrt (abs (i)))*cos (i); і := і + h; if y > 0 then writeln («Значення фукции », y:4:5, «x = «, i:4:4); end; readkey; end. Uses crt; Var h, n, e, і, x, y: real; begin clrscr; writeln («Запровадьте значення нижньої межі X »); readln (n); writeln («Запровадьте значення вврехнего краю X »); readln (e); writeln («Запровадьте значення кроку »); readln (h); i:=n; repeat y:=(i*i*i+sin (sqr (i)))/(1+sqrt (abs (i)))*cos (i); i:=i+h; if y>0 then writeln («Значення функції «, y:4:5, «x= «, i:4:4); until i>e; readkey; end. uses crt;

Var y: real; і, n, e: integer;

Begin clrscr; writeln («Запровадьте значення нижньої межі X »); readln (n); writeln («Запровадьте значення верхньої межі X »); readln (e); for i:=n to e do begin y := (i*i*i+sin (sqr (i)))/(1+sqrt (abs (i)))*cos (i); if y>0 then writeln («Значення функції «, y:3:3); end; readkey; end.

Блок-схема.

———————————- avs := sum / n; avg := koren (gem, n);

I=1;31;3.

i := 1; n := 0; sum :=0; gem := 1;

avg/avs.

sum := sum + і; gem := gem * і; і := і + 3; inc (n);

Конец.

Начало.

y, x.

y>0.

n, e, h.

I=1;e;h.

і := n;

y := (i*i*i+sin (sqr (i)))/(1+sqrt (abs (i)))*cos (i);

Конец.

Начало.