Текст программы dmatr 2 на языке Pascal: Program Dmatr win icon

Текст программы dmatr 2 на языке Pascal: Program Dmatr win



НазваниеТекст программы dmatr 2 на языке Pascal: Program Dmatr win
Дата конвертации28.10.2012
Размер15.33 Kb.
ТипДокументы
1. /blank_zadaniya.doc
2. /otchet.doc
3. /text_program.doc
4. /zametki.txt
Инструкция по эксплуатации. Заключение. Список использованных источников
Работы
Текст программы dmatr 2 на языке Pascal: Program Dmatr win

Приложение.


Текст программы DMatr v1.2 на языке Pascal:


Program Dmatr_win;

Uses WinDos,WinCrt;

Var n,f,a11,a12,a13,a14,a21,a22,a23,a24,a31,a32,a33,a34,a41,a42,a43,a44:real;

b11,b12,b13,b14,b21,b22,b23,b31,b32,b33:real;

c11,c12,c13,c14,c21,c22,c23,c31,c32,c33:real;

a,g,b,c,d,e,x1,x2:Real;

Label 1,2;

Begin

Begin

1:Clrscr;

WriteLn('********************************************************************************');

WriteLn(' Программа DMatr v1.2 for Windows 98/Me/2000/XP');

WriteLn('Автор: Кравченко К.В..');

WriteLn(' E-mail: kkbs@mail.
ru');

WriteLn(' - Томск 2003 -');

WriteLn('');

WriteLn('********************************************************************************');

WriteLn(' Что вы хотите рассчитать:');

WriteLn(' 1 – Определитель матрицы размером 3 на 3;');

WriteLn(' 2 -- Определитель матрицы размером 4 на 4;');

WriteLn(' 3 – Умножение двух матриц размером 3 на 3;');

WriteLn(' 4 -- Умножение двух матриц размером 3 на 3 и 3 на 1;');

WriteLn(' 0 -- Выход;');WriteLn('');

Write(' :>');ReadLn(n);If n<0 then goto 1;If n>5 then goto 1;

If n=1 then begin Clrscr;

WriteLn('');

WriteLn('');

WriteLn('det A size (3 on 3):');

Write('a11=');ReadLn(a11);Write('a12=');ReadLn(a12);

Write('a13=');ReadLn(a13);Write('a21=');ReadLn(a21);

Write('a22=');ReadLn(a22);Write('a23=');ReadLn(a23);

Write('a31=');ReadLn(a31);Write('a32=');ReadLn(a32);

Write('a33=');ReadLn(a33);

a:=a11*a22*a33;b:=a12*a23*a31;c:=a21*a32*a13;d:=a13*a22*a31;e:=a32*a23*a11;

g:=a21*a12*a33;f:=a+b+c-d-e-g;

WriteLn('det A=',f:8:2);

ReadLn;goto 1;

end;

If n=2 then begin Clrscr;

WriteLn('');

WriteLn('det A size (4 on 4):');

Write('a11=');ReadLn(a11);Write('a12=');ReadLn(a12);Write('a13=');ReadLn(a13);Write('a14=');ReadLn(a14);

Write('a21=');ReadLn(a21);Write('a22=');ReadLn(a22);Write('a23=');ReadLn(a23);Write('a24=');ReadLn(a24);

Write('a31=');ReadLn(a31);Write('a32=');ReadLn(a32);Write('a33=');ReadLn(a33);Write('a34=');ReadLn(a34);

Write('a41=');ReadLn(a41);Write('a42=');ReadLn(a42);Write('a43=');ReadLn(a43);Write('a44=');ReadLn(a44);

a:=a22*a33*a44;b:=a23*a34*a42;c:=a32*a43*a24;d:=a24*a33*a42;e:=a43*a34*a22;

g:=a32*a23*a44;b11:=a+b+c-d-e-g;

c11:=a11*b11;

a:=a21*a33*a44;b:=a23*a34*a41;c:=a31*a43*a24;d:=a24*a33*a41;e:=a43*a34*a21;

g:=a31*a23*a44;b12:=a+b+c-d-e-g;

c12:=a12*b12;

a:=a21*a32*a44;b:=a22*a34*a41;c:=a31*a42*a24;d:=a24*a32*a41;e:=a42*a34*a21;

g:=a31*a22*a44;b13:=a+b+c-d-e-g;

c13:=a13*b13;

a:=a21*a32*a43;b:=a22*a33*a41;c:=a31*a42*a23;d:=a23*a32*a41;e:=a42*a33*a21;

g:=a31*a22*a43;b14:=a+b+c-d-e-g;

c14:=a14*b14;

d:=c11-c12+c13-c14;

WriteLn('');

WriteLn('det A=(',a11:8:2,')*(',b11:8:2,')-(',a12:8:2,')*(',b12:8:2,')+(',a13:8:2,')*(',b13:8:2,')-');

WriteLn('-(',a14:8:2,')*(',b14:8:2,')=',d:8:2);

WriteLn('');

WriteLn('det A=',d:8:2);

ReadLn;

Goto 1;

End;

If n=3 then begin clrscr;

WriteLn('Matr. A*B=C (3 on 3 * 3 on 3):');

Write('a11=');ReadLn(a11);Write('a12=');ReadLn(a12);Write('a13=');ReadLn(a13);

Write('a21=');ReadLn(a21);Write('a22=');ReadLn(a22);Write('a23=');ReadLn(a23);

Write('a31=');ReadLn(a31);Write('a32=');ReadLn(a32);Write('a33=');ReadLn(a33);

Write('d11=');ReadLn(b11);Write('d12=');ReadLn(b12);Write('d13=');ReadLn(b13);

Write('d21=');ReadLn(b21);Write('d22=');ReadLn(b22);Write('d23=');ReadLn(b23);

Write('d31=');ReadLn(b31);Write('d32=');ReadLn(b32);Write('d33=');ReadLn(b33);

c11:=(a11*b11)+(a12*b21)+(a13*b31);c12:=(a11*b12)+(a12*b22)+(a13*b32);c13:=(a11*b13)+(a12*b23)+(a13*b33);

c21:=(a21*b11)+(a22*b21)+(a23*b31);c22:=(a21*b12)+(a22*b22)+(a23*b32);c23:=(a21*b13)+(a22*b23)+(a23*b33);

C31:=(a31*b11)+(a32*b21)+(a33*b31);c32:=(a31*b12)+(a32*b22)+(a33*b32);c33:=(a31*b13)+(a32*b23)+(a33*b33);

WriteLn('');

Write(' ',c11:3:1);Write(' ',c12:3:1);WriteLn(' ',c13:3:1);

Write(' ',c21:3:1);Write(' ',c22:3:1);WriteLn(' ',c23:3:1);

Write(' ',c31:3:1);Write(' ',c32:3:1);WriteLn(' ',c33:3:1);

ReadLn;goto 1;

end;

If n=4 then begin clrscr;

WriteLn('Matr. A*B=C (3 on 3 * 3 on 1):');

Write('a11=');ReadLn(a11);Write('a12=');ReadLn(a12);Write('a13=');ReadLn(a13);

Write('a21=');ReadLn(a21);Write('a22=');ReadLn(a22);Write('a23=');ReadLn(a23);

Write('a31=');ReadLn(a31);Write('a32=');ReadLn(a32);Write('a33=');ReadLn(a33);

Write('d11=');ReadLn(b11);Write('d21=');ReadLn(b21);Write('d31=');ReadLn(b31);

c11:=(a11*b11)+(a12*b21)+(a13*b31);c21:=(a21*b11)+(a22*b21)+(a23*b31);c31:=(a31*b11)+(a32*b21)+(a33*b31);

WriteLn('');

WriteLn(' ',c11:3:1); WriteLn(' ',c21:3:1); WriteLn(' ',c31:3:1);

ReadLn;Goto 1;

end;

If n=0 then goto 2;

end;

ReadLn;

2:clrscr;

End.



Похожие:

Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconОсновы программирования на языке Pascal Разделы программы
Текст программы начинается со служебного слова "begin" и заканчивается служебным словом "end", после которого ставится точка. В конце...
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconПрограмма на Pascal. Простейшая программа program name; {имя программы} begin { начало программы } end. { конец программы}
Алгоритм – это понятное, точное предписание ведущее от исходных данных к получению результата
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconПрограмма на языке Pascal program qq; var a, b, max: integer; begin writeln('Введите два целых числа'); read ( a, b )
Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconI основы языка высокого уровня турбо pascal алфавит языка Pascal
Прописные и строчные буквы Pascal'eм не различаются. Знаки «возведение в степень» и двойная кавычка в языке отсутствуют
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconДокументы
1. /Модули Pascal/_001_Перв_программы_М1_БЛОК1.doc
2. /Модули...

Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconДокументы
1. /pascal/Занятия/Семестр 1/COMPILER.TXT
2. /pascal/Занятия/Семестр...

Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconПредлагаемые программы: Baltic Sea Region Neighbourhood Program
Предлагаются вашему вниманию три грантовые программы, которые находятся в настоящее время в стадии, когда надо готовить идеи, собирать...
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconПрактикум Вывод текста на экран 1) Вывести на экран текст "лесенкой" Вася пошел гулять program vasya; begin writeln('Вася')

Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconТренировочные задания государственной (итоговой) аттестации обучающихся, освоивших образовательные программы основного общего образования, по русскому языку Часть 1 Сжатое изложение
Прослушайте текст и выполните задание C1 на бланке ответов № Сначала напишите номер задания, а затем текст сжатого изложения
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconКубгту кафедра вычислительной техники и асу м. П. Малыхина программирование на языке высокого уровня
Рассмотрен комплекс вопросов, связанных с развитием у студентов навыков создания разнообразных программ. Изучение ведется на конкретных...
Текст программы dmatr 2 на языке Pascal: Program Dmatr win iconРабота с табличным процессором ms excel
На рабочем столе создайте ярлык для запуска программы Excel (программа обычно расположена по адресу: "C:\Program Files\Microsoft...
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы