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

Содержание

Работа 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

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

b a

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

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

РЕЗУЛЬТАТЫ

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

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

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

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

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

Program Work_1;

Var c,a,b,y : real;

Begin

Write('c => ');

Readln(c);

b:=0.47*exp(1+c);

a:=ln(b+sqr(ln(1/b)/ln(10)));

y:=(sin(a*b)+1)/(sqrt(a+b)*sin(a+b));

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

End.

---

Заключение

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

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

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

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

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

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

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

Вариант 60

1)

2) среднеарифметическое значение отрицательных элементов i – го столбца;

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

Блок схема основной программы

Программа на алгоритмическом языке Паскаль

Program prim;

Const n=5;

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,fj,fi:integer;

Begin

fj:=1;

for j:=1 to n do

begin

fi:=1;

fj:=fj*j;

for i:=1 to n do

begin

fi:=fi*i;

a[j,i]:=(fj-fi)/(exp(i*j));

end;

end;

End;

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

var i,j,k:integer;

s:real;

Begin

for i:=1 to n do

Begin

for j:=1 to n do

if a[i,j]<0 then begin x[i]:=x[i]+a[i,j]; k:=k+1; end;

if k>0 then x[i]:=x[i]/k;

k:=0;

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-1 do

for j:=n-2 to n do

Begin

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

Begin

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

End;

End;

End;

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

Var i,k:integer;

s,y:real;

Begin

y:=1;

s:=0;

for i:=1 to n do

Begin

if x[i]<0 then y:=y*x[i]else s:=s+x[i];

End;

Fyn:=y+s;

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:4);

writeln;

End;

Vector(n,a,x);

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

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

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:4);

writeln;

End;

y:=Fyn(n,x);

Writeln('Rez y= ',y);

End.

---