Лабораторные по Паскалю (WinWord)

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПРОГРАММИРОВАHИЕ, БАЗЫ ДАHHЫХ

---

ЦЕЛЬ РАБОТЫ: ЗАКРЕПЛЕНИЕ НА ПРАКТИКЕ ЗНАНИЙ В ОБЛАСТИ ПРОГРАММИРОВАНИЯ НА
ЯЗЫКЕ PASCAL, ПОЛУЧЕННЫХ В ПРОЦЕССЕ ОБУЧЕНИЯ, И ПОЛУЧИТЬ ДОСТАТОЧНЫЕ ПРАКТИЧЕСКИЕ НАВЫКИ РАБОТЫ НА ЭВМ.
СОДЕРЖАНИЕ:
СОСТАВИТЬ ПАСКАЛЬ-ПРОГРАММЫ ДЛЯ СЛЕДУЮЩИХ ВЫЧИСЛЕНИЙ:
1. ПО ИСХОДНЫМ ДАННЫМ:
СФОРМИРОВАТЬ МАТРИЦУ 6х6
A[I,J] = 2j-1(J-3)/1.3)* Cos(2j(I-3.4)*(j/3-1)
2. ПО РЕЗУЛЬТАТАМ ВЫЧИСЛЕНИЙ МАТРИЦЫ ОПРЕДЕЛИТЬ ВЕКТОР Xi,
ЭЛЕМЕНТОМ КОТОРОГО ЯВЛЯЕТСЯ СУММА НАИБОЛЬШЕГО И НАИМЕНЬШЕГО ЭЛЕМЕНТОВ КАЖДОГО ИЗ СТОЛБЦОВ МАТРИЦЫ:
3. ВЫПОЛНИТЬ РАСЧЕТ
Y = П (1.5 * Ln(Xi0.3-Xi+13.75)
В ИНТЕРВАЛЕ i=1.5
РЕАЛИЗАЦИЯ: IBM-СОВМЕСТИМЫЙ ПЕРСОНАЛЬНЫЙ КОМПЬЮТЕР, ОПЕРАЦИОННАЯ СИСТЕМА
MS-DOS 5.0 И ВЫШЕ (В ТОМ ЧИСЛЕ И ВЕРСИИ MS-DOS ПОД WINDOWS-98), ЯЗЫК ПРОГРАММИРОВАНИЯ BORLAND PASCAL 7.0 (ИСХОДНЫЙ ТЕКСТ СОВМЕСТИМ ТАКЖЕ С
TURBO PASCAL 6.0 И TURBO PASCAL 7.0. НИЖЕ ПРИВЕДЕН ЛИСТИНГ ИСХОДНОГО ТЕКСТА ПРОГРАММЫ С КОММЕНТАРИЯМИ. КОММЕНТАРИИ В ТЕКСТЕ КОНКРЕТИЗИРУЮТ АЛГОРИТМЫ.
Program X;
Const
N=6;
Type
MatrixType = ARRAY [1.N, 1.N] OF REAL;
VectorType = ARRAY [1.N] OF REAL;
Var
Matrix : MatrixType;
Vector : VectorType;
A, B,
X, Y, Z, T : REAL;
FT : TEXT;
FUNCTION CalcStepen(A, B : REAL: Real;
Begin
CalcStepen = Exp(B * Ln(A);
End;
PROCEDURE Step1; { Вычисление и вывод a[i,j] }
Var
I, J : Integer;
RI, RJ : Real;
Begin
WriteLn('Вычисление функции a[i,j] ');
WriteLn('-');
WriteLn(FT, 'Вычисление функции a[i,j] ');
WriteLn(FT, '-');
For I = 1 To N Do
Begin
For J = 1 To N Do
Begin
RI = I; RJ = J;
Matrix[i, j] = CalcStepen(2, RJ - 1) *
(RJ-3)/-1.3) *
Cos(CalcStepen(2, RJ) * (RI - 3.4) * (RJ/3 - 1)
);
Write(Matrix[i, j] : 10 : 5);
Write(FT, Matrix[i, j] : 10 : 5);
End;
WriteLn; WriteLn(FT);
End;
End;
PROCEDURE Step2;
{ Вычисление Xi как сумму наибольщего и наименьшего }
{ элементов i столбика матрицы }
Var
MinVal, MaxVal : Real;
I, J : Integer;
Begin
WriteLn('Вычисление вектора Xi ');
WriteLn('-');
WriteLn(FT, 'Вычисление вектора Xi ');
WriteLn(FT, '-');
For I = 1 To N Do
Begin { I - столбик J - строка }
MinVal

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место