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

Содержание

Работа 1. ПРОГРАММИРОВАНИЕ ЛИНЕЙНОГО ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА

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

Работа 2. ПРОГРАММИРОВАНИЕ АРИФМЕТИЧЕСКОГО ЦИКЛА.

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

Результаты расчетов вывести в табличной форме, например, для

3 варианта таблица должна иметь следующий вид:

1. Табулирование функции

Работа 3. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА

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

Работа 4. ПРОГРАММИРОВАНИЕ ИТЕРАЦИОННОГО ЦИКЛА

Функция y(x) задана двумя способами: формулой y = f(x) и ее разложением в бесконечный ряд S.

Разработать программу вычисления точного yT и приближенного yP значений функции y(x) при изменении её аргумента x от a до b с шагом x. Приближенное значение вычислять путем суммирования членов ряда до достижения требуемой точности   yTyP  . Предусмотреть завершение процесса суммирования членов ряда по заданному максимальному номеру члена ряда n для предотвращения зацикливания итерационного цикла. Результаты расчетов вывести в виде следующей таблицы.

Суммирование ряда

Аргумент Точное значение Приближенное значение Количество слагаемых Ошибка

0.20

0.30

0.80 0.16053

0.21267

0.28540 0.16053

0.21270

0.28542 3

5 -0.000003

-0.000032

-0.000015

Работа 5. ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ

Разработать программу решения четырех взаимосвязанных задач частой работы:

1) расчета элементов квадратной матрицы A = (ai,j ), i,j = 1,2,.,n по заданной формуле;

2) вычисления элементов вектора X = (xi), i = 1,2,.,n по заданному правилу;

3) требуемого упорядочения элементов матрицы А или вектора Х;

4) вычисления значения y по заданной формуле.

Размерность задачи n назначается преподавателем.

Введение (выдержка)

При изучении дисциплины Информатика студенты-заочники выполняют контрольную работу, целью которой является приобретение навыков алгоритмизации и программирования на алгоритмическом языке ПАСКАЛЬ.

Основная часть (выдержка)

Лабораторная работа №1

«Программирование линейного вычислительного процесса»

1. Постановка задачи

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

2. Таблица переменных для алгоритма и программы

Смысл переменных Обозначение Тип переменной Примечания

в алгор. в прогр.

ИСХОДНЫЕ

параметр c c вещественное

ПРОМЕЖУТОЧНЫЕ

аргумент

аргумент a

u a

u вещественное

вещественное

РЕЗУЛЬТАТЫ

функция 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.

Заключение (выдержка)

Лабораторная работа N5

Разработать программу решения четырех взаимосвязанных задач частой работы:

1) расчета элементов квадратной матрицы A = (ai,j ), i,j = 1,2,.,n по заданной формуле;

2) вычисления элементов вектора X = (xi), i = 1,2,.,n по заданному правилу;

3) требуемого упорядочения элементов матрицы А или вектора Х;

4) вычисления значения y по заданной формуле.

Размерность задачи n назначается преподавателем.

Вариант 58

2) скалярное произведение побочной диагонали на i – ю строку;

3) упорядочить элементы строк матрицы A по возрастанию значений;

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;

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;

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;