Контрольная работа

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

  • 23 страниц
Содержание

Работа 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 назначается преподавателем.

Введение

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

Фрагмент работы

ОТЧЁТ

по лабораторной работе № 2

по информатике

“ ПРОГРАММИРОВАНИЕ АРИФМЕТИЧЕСКОГО ЦИКЛА ”

Вариант № 66

(подпись, дата)

Преподаватель каф. ВТИК _Габдуллина А.А.

(подпись, дата)

Уфа - 2012

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

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

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

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

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

, , , ,

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

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

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

ИСХОДНЫЕ

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

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

аргумент

x

x

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

РЕЗУЛЬТАТЫ

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

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

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

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

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

Program Work_2;

Var O,x,y : real;

Begin

Writeln('O ',' x ',' y ');

O:=1;

while O<=5 do begin

x:=sqr(cos(2*O/pi));

y:=1/(x*(1.35+exp(0.7*ln(x))-sqrt(2*x+1)));

Writeln(O:7:4,x:10:4,y:10:4);

end;

End.

Заключение

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

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

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

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

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

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

Вариант 66

1)

2)

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

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

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

Program prim;

Const n=6;

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:integer;

Begin

for j:=1 to n do

begin

for i:=1 to n do

begin

a[j,i]:=(exp(3*ln(3*i+2*j)))/(sqrt(2*i*j+5));

end;

end;

End;

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

var i,j:integer;

m:real;

Begin

for i:=1 to n do

Begin

x[i]:=a[1,i];

for j:=1 to n do

if x[i] End;

for i:=1 to n do

Begin

m:=x[1];

if x[i] end;

for i:=1 to n do

x[i]:=a[i,2]/x[i];

End;

Procedure Porjdok(n:integer; var X:vect);

var i,j:integer;

c:real;

Begin

for j:=1 to n do

for i:=1 to n-2 do

if (i mod 2 =0)and(abs(x[i])>abs(x[i+2])) then

Begin

c:=x[i]; x[i]:=x[i+2]; x[i+2]:=c;

End;

End;

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

Var i:integer;

s:real;

Begin

s:=0;

for i:=1 to n do

s:=s+x[i];

Fyn:=sqrt(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]:10:1);

writeln;

End;

Vector(n,a,x);

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

for i:=1 to n do write(x[i]:10:2);

writeln;

y:=Fyn(n,x);

Writeln('Rez y= ',y:8:4);

End.

Покупка готовой работы
Тема: «Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 66»
Раздел: Информатика
Тип: Контрольная работа
Страниц: 23
Цена: 500 руб.
Нужна похожая работа?
Закажите авторскую работу по вашему заданию.
  • Цены ниже рыночных
  • Удобный личный кабинет
  • Необходимый уровень антиплагиата
  • Прямое общение с исполнителем вашей работы
  • Бесплатные доработки и консультации
  • Минимальные сроки выполнения

Мы уже помогли 24535 студентам

Средний балл наших работ

  • 4.89 из 5
Узнайте стоимость
написания вашей работы
Популярные услуги
Дипломная на заказ

Дипломная работа

от 8000 руб.

срок: от 6 дней

Курсовая на заказ

Курсовая работа

от 1500 руб.

срок: от 3 дней

Отчет по практике на заказ

Отчет по практике

от 1500 руб.

срок: от 2 дней

Контрольная работа на заказ

Контрольная работа

от 100 руб.

срок: от 1 дня

Реферат на заказ

Реферат

от 700 руб.

срок: от 1 дня

682 автора

помогают студентам

23 задания

за последние сутки

10 минут

среднее время отклика