Пензенська ДЕРЖАВНИЙ УНІВЕРСИТЕТ

Кафедра МО і ПЕОМ

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

Тема: "Програмування елементів розгалужується структури»

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

Пахомов В. Е.

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

2003

Завдання А. < p> Визначити у скільки разів середнє геометричне чисел натуральногоряду кратних трьом в діапазоні від 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 i: = 1 to power div 2 do begin

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

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

sum: = sum + i; gem: = gem * i; i: = i + 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.

Блок-схема

Завдання Б.

Провести обчислення значення функції:

в діапазоні значень х від до, що змінюється з кроком h. Надрук виводити тільки позитивні значення функції, при відповіднихзначеннях аргументу.

Програма:

uses crt; var h, n, e, i, y: real; begin clrscr; writeln ( 'Введіть значення нижньої межі Х'); readln (n); writeln ( 'Введіть значення верхньої межі Х'); readln (e); writeln ( 'Введіть значення кроку'); readln (h); i: = n; while i 0 then writeln ( 'Значення фукции', y: 4:5, 'x =
', i: 4:4); end; readkey; end.
Uses crt;
Varh, n, e, i, x, y: real;beginclrscr;writeln ( 'Введіть значення нижньої межі X');readln (n);writeln ( 'Введіть значення вврехнего межі X');readln (e);writeln ( 'Введіть значення кроку');readln (h);i: = n;repeaty: = (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; i, 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.

Блок-схема < p >-----------------------avs: = sum/n;avg: = koren (gem, n);

I = 1; 31; 3

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

avg/avs

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

Кінець

початок

y, x

y> 0

n, e, h

I = 1; e; h

i: = n;

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

Кінець

початок