Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Расчетно-графическое задание

Читайте также:
  1. I. Задание для самостоятельной работы
  2. Государственное задание с субсидиями
  3. Домашнее задание
  4. Домашнее задание
  5. Домашнее задание
  6. Домашнее задание
  7. Домашнее задание

Вариант 2: текст программы на языке Pascal процедурами.

 

Program str;{вариант 2}

uses crt;

{описание массивов и переменных}

type

mas=array[1..10,1..10] of real;

var

a,b,ba,bat,d:mas;

ma,na,mb,nb,m,n,i,j:integer;

f:text;

{описание процедуры mout}

procedure mout(p:mas;m,n:integer);

var

i,j:integer;

begin

for i:=1 to m do

begin

for j:=1 to n do write(p[i,j]:6:1);

writeln

end;

end;

{описание процедуры mult}

procedure mult(p,q:mas;m,l,n:integer;var r:mas);

var

i,j,k:integer;

sum:real;

begin

for i:=1 to m do

for j:=1 to n do

begin

sum:=0;

for k:=1 to l do sum:=sum+p[i,k]*q[k,j];

r[i,j]:=sum

end

end;

{описание процедуры tr}

procedure tr(p:mas;m,n:integer;var q:mas);

var

i,j:integer;

begin

for i:=1 to m do

for j:=1 to n do q[j,i]:=p[i,j]

end;

procedure add(p,q:mas;m,n:integer;var r:mas);

var

i,k:integer;

begin

for i:=1 to m do

for j:=1 to n do r[i,j]:=p[i,j]-q[i,j]

end;

{основная программа}

begin

{очистка экрана}

clrscr;

{ввод из файла размеров и элементов матрицы А, }

assign(f,'sled.pas');

reset(f);

read(f,m,n);

for i:=1 to m do

for j:=1 to n do read(f,a[i,j]);

{вывод на экран матрицы А}

writeln('Матрица А');

mout(a,m,n);

{ввод из файла размеров и элементов матрицы B}

read(f,m,n);

for i:=1 to m do

for j:=1 to n do read(f,b[i,j]);

close(f);

{вывод на экран матрицы B}

writeln('Матрица B');

mout(b,m,n);

{вычисление и вывод матрицы ВА}

mult(b,a,m,n,m,ba);

writeln('Матpица ВА');

readkey;

mout(ba,m,n);

{вычисление и вывод матрицы ВАТ}

tr(ba,m,n,bat);

writeln('Матрица ВАТ');

mout(bat,n,m);

{вычисление и вывод матрицы Д}

add(bat,a,m,n,d);

writeln('Матрица Д');

mout(d,m,n)

end.

 

Исходные данные

Исходные данные для решения матричного выражения представлены в файле sled.pas. В нем указывается количество строк и столбцов матриц. Ниже представлены исходные матрицы.

 

Матрица А

1.0 4.0 2.0 0.0

1.0 0.0 0.0 0.0

1.0 0.0 2.0 3.0

3.0 0.0 1.0 1.0

Матрица B

-1.0 0.0 -2.0 -1.0

1.0 1.0 1.0 0.0

0.0 0.0 2.0 0.0

1.0 -2.0 0.0 3.0

 

 

Результаты счета

Результаты выполнения этой программы:

Матрица А

1.0 4.0 2.0 0.0

1.0 0.0 0.0 0.0

1.0 0.0 2.0 3.0

3.0 0.0 1.0 1.0

Матрица B

-1.0 0.0 -2.0 -1.0

1.0 1.0 1.0 0.0

0.0 0.0 2.0 0.0

1.0 -2.0 0.0 3.0

Матpица ВА

-6.0 -4.0 -7.0 -7.0

3.0 4.0 4.0 3.0

2.0 0.0 4.0 6.0

8.0 4.0 5.0 3.0

Матрица ВАТ

-6.0 3.0 2.0 8.0

-4.0 4.0 0.0 4.0

-7.0 4.0 4.0 5.0

-7.0 3.0 6.0 3.0

Матрица Д

-7.0 -1.0 0.0 8.0

-5.0 4.0 0.0 4.0

-8.0 4.0 2.0 2.0

-10.0 3.0 5.0 2.0

 

 

Выводы

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

 

Заключение

Выполнение расчётно-графическое задания дает представление о возможностях среды ТР 7.0, далее самостоятельно

 


Библиографический список

1. Алексеев В.Е. Вакулин А.В./под. ред. Петрова А.В. «Вычислительная техника и программирование» М.:ВЫСШАЯ ШКОЛА, 1991.

2. Турбо Паскаль 7.0 – К.: Торгово-издательское бюро BHV, 1997 – 448с.

3. Петров А.В., Алексеев В.Е. «Вычислительная техника и программирование» учебник для технических ВУЗов, М.:ВЫСШАЯ ШКОЛА, 1990.

4. Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, перабот. и дополнен. – М.:ИНФРА – М, 1996. – 432с.: ил.


Федеральное агентство по образованию

Российской Федерации

 

Санкт-Петербургский государственный горный институт им. Г.В. Плеханова

(технический университет)

 

РАСЧЕТНО-ГРАФИЧЕСКОЕ ЗАДАНИЕ

 

 
 
Информатика


По дисциплине __________________________________________________________

_____________________________________________________________________

(наименование учебной дисциплины согласно учебному плану)

 


Дата добавления: 2015-07-15; просмотров: 44 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Олимпиада по информатике| Характеристика релізів

mybiblioteka.su - 2015-2024 год. (0.008 сек.)