Головна сторінка Випадкова сторінка КАТЕГОРІЇ: АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія |
В юридичній літературі розрізняють соціально-економічні, політичні та юридичні гарантії.Дата добавления: 2015-10-19; просмотров: 1722
Задание. Вычислить значения функции в точках при заданных значениях . Результаты представить в виде двумерной таблицы. Таблица 6.2
Решение. 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
|