«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 58»

функция y y вещественное

3. Схема алгоритма решения задачи

3. Интерфейс программы

Ввод исходных данных запланируем в форме диалога: данные нужно будет вводить с клавиатуры при появлении соответствующего запроса на экране монитора после запуска программы.

Предусмотрим возможность вывода результатов расчёта на экран монитора, на принтер или в файл. Спецификация (полное имя) файла с результатами расчёта будет вводится по запросу программы. Если же нужно вывести результаты на экран, то вместо спецификации файла следует ввести con, для вывода на принтер ввести prn.

4. Текст программы на Паскале

Program Work_1;

Const Title =\'Работа №1, Вар.58, гр._ Асадуллин Э.\' ;

Var c,a,u,y : real;

Dev : text;

Name : string;

Begin

Writeln(\'Введите:’\');

Writeln(\' con для вывода результатов на экран,\');

Writeln(\' prn для вывода на принтер или \');

Write(\' спецификацию файла результатов => \');

Readln(Name);

Assign(Dev,Name);

Rewrite(Dev);

Write(\'Введите c => \');

Readln(c);

{Эхо-печать исходных данных в файл реультатов расчёта}

Writeln(Dev);

Writeln(Dev,Title);

Writeln(Dev,\'Исходные данные:\');

Writeln(Dev,\'c = \',c:6:2);

a:=sqr(sin(c))+1/(2*c);

u:=(c+a)/(2*5ln(c*a));

y:=sin(555*sqrt(sqr(u)+sqr(c)));

Write(\'a =\',a:7:4,\' u =\',u:8:4,\' y =\',y:7:4);

Writeln(Dev,\'Результаты расчёта:\');

Write(Dev,\'a =\',a:7:4,\' u =\',u:8:4,\' y =\',y:7:4);

Close(Dev);

End.

Program prim5;

Const n=7;

Const Title =\'Работа №3, Вар.58, гр._ Асадуллин Э.\' ;

Type vect=array[1.n] of real;

matr=array[1.n,1.n] of real;

Var x:vect; a:matr;

i,j:integer;

y:real;

Procedure Matrica(n:integer; var A:matr);

var i,j:integer;

Begin

for i:=1 to n do

for j:=1 to n do

a[j,i]:=i*sin(i)/cos(i)+j*cos(j)/sin(j);

End;

Procedure Vector(n:integer; A:matr; var x:vect);

var i,j,k:integer;

s:real;

Begin

writeln (\'vvedite N\');

readln(k);

for i:=1 to n do

Begin

for j:=1 to n do

if j+i=n+1 then x[i]:=x[i]+a[i,j]*a[k,j];

End;

End;

Procedure Porjdok(n:integer; var A:matr);

var k,i,j:integer;

c:real;

Begin

for k:=1 to n do

for i:=1 to n do

for j:=1 to n-1 do

Begin

if (a[i,j])>(a[i,j+1]) then

Begin

c:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=c;

End;

End;

End;

Function Fyn(n:integer; X:vect):real;

Var i,k:integer;

s, y:real;

Begin

y:=1;

for i:=1 to n do

Begin

y:=y*exp(x[i]*ln(abs(x[i])))*(abs(x[n-i+1]));

End;

Fyn:=y;

End;

Begin

Matrica(n,a);

Writeln(\' \':20,\'MATPICA A\');

for i:=1 to n do

Begin

for j:=1 to n do Write(a[i,j]:8:3);

writeln;

End;

Vector(n,a,x);

Writeln(\' \':20,\'BEKTOP X\');

for i:=1 to n do write(x[i]:8:3);

writeln;

Porjdok(n,a);

Writeln(\' \':5,\'YPOR 1 STROKU MATPICU A\');

for i:=1 to n do

Begin

for j:=1 to n do Write(a[i,j]:8:3);

writeln;

End;