Студопедія
рос | укр

Головна сторінка Випадкова сторінка


КАТЕГОРІЇ:

АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія






В юридичній літературі розрізняють соціально-економічні, політичні та юридичні гарантії.


Дата добавления: 2015-10-19; просмотров: 634


Задание. Вычислить значения функции в точках при заданных значениях . Результаты представить в виде двумерной таблицы.

Таблица 6.2

x a 2.0 2.5 3.7 4.1 4.9
0.2 0.7 1.0 1.2 1.8 2.0 2.2 0.096 0.219 0.182 0.124 -0.061 -0.095 -0.108 0.076 0.146 0.083 0.018 -0.103 -0.094 -0.064 0.049 0.037 -0.036 -0.064 0.022 0.051 0.052 0.043 0.016 -0.046 -0.054 0.044 0.045 0.018 0.035 -0.012 -0.039 -0.015 0.021 -0.013 -0.034

 

Решение. 1. Блок-схема решения представлена на рисунке.

a) Блок-схема алгоритма основной программы PR5

Рисунок 6.1

 

 

 

 


б) Блок-схема алгоритма подпрограммы P

 

Рисунок 6.2

 

 

 

 

 


2.Текст программы.

 

type vector= array [1..20] of real;

massiv= array [1..20,1..20] of real;

var x,a:vector;

i,j,n,m:integer;

y:massiv;

 

procedure p(n,m:integer;x,a:vector;var y:massiv);

begin

for i:=1 to n do

for j:= 1 to m do

y[i,j]:=sin(a[j]*x[i])/(sqr(x[i])+sqr(a[j]));

end;

 

BEGIN

Write ('Введите количество значений x и a= ');

Readln(n,m);

for i:=1 to n do

begin

Write ('Введите x[',i,']=');

Readln(x[i]);

end;

for j:= 1 to m do

begin

Write ('Введите a[',j,']=');

Readln(a[j]);

end;

p(n,m,x,a,y);

Writeln (' Таблица');

Writeln('┌───────┬───────┬───────┬───────┬───────┬───────┐');

Write('│X \ a│');

for i:=1 to m do

Write(a[i]:3:1,' ','│');

Writeln;

Writeln('├───────┼───────┼───────┼───────┼───────┼───────┤');

for i:=1 to n do begin

Write('│',x[i]:3:1,' │');

for j:=1 to m do

Write(y[i,j]:7:3,'│');

Writeln;

end;

Writeln('└───────┴───────┴───────┴───────┴───────┴───────┘');

readln;

END.

 

3. Результат выполнения контрольного примера.

 

Таблица

┌──────┬──────┬──────┬──────┬──────┬──────┐

│x \ a │2.0 │2.5 │3.7 │4.1 │4.9 │

├──────┼──────┼──────┼──────┼──────┼──────┤

│0.2 │ 0.096│ 0.076│ 0.049│ 0.043│ 0.035│

│0.7 │ 0.219│ 0.146│ 0.037│ 0.016│ -0.012│

│1.0 │ 0.182│ 0.083│ -0.036│ -0.046│ -0.039│

│1.2 │ 0.124│ 0.018│ -0.064│ -0.054│ -0.015│

│1.8 │ -0.061│ -0.103│ 0.022│ 0.044│ 0.021│

│2.0 │ -0.095│ -0.094│ 0.051│ 0.045│ -0.013│

│2.2 │ -0.108│ -0.064│ 0.052│ 0.018│ -0.034│

└──────┴──────┴──────┴──────┴──────┴──────┘

 


 

Задания к лабораторной работе № 7

Тема: Циклы итерационного типа

Задание. Составить программу вычисления значения функции, разложенной в ряд (сумму ряда). В формулах – заданная степень точности; n –порядковый номер очередного члена ряда.

 

Варианты заданий к лабораторной работе №7

Таблица 7.1


<== предыдущая лекция | следующая лекция ==>
Тема 21. Гарантії прав і свобод людини і громадянина | Тема 22. Правовий статус іноземців в Україні
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | <== 22 ==> | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 |
Studopedia.info - Студопедия - 2014-2018 год . (0.119 сек.) російська версія | українська версія

Генерация страницы за: 0.119 сек.