/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 500
от 27.11.2007, 01:35

Вопрос № 110.439

Здраствуйте!!!! Помогите, пожалуйста, с лабой.... Никак не могу решить. А задача заключается в следующем: составить подпрограмму вычисления К-й степени матрицы размером n x n элементов, используя подпрограмму умножения двух матриц. Заранее благодарен!!!!

Отправлен: 21.11.2007, 19:48 Вопрос задал: Sergey1 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Vassea Здравствуйте, Sergey1! Программа в приложении. Для хранения матрицы я использовал массив (type TA) Процедура FF -- производит умножение матрицы Параметры A и B в А хранится первый множитель и одновременно помещается результат в B хранится второй множитель Чтобы умножить одну матрицу на другу, мы должны элементы каждой строки умножить на соответствующие элементы каждого столбца. циклы с i и j дают все комбинации строк и столбцов (их номера) После чего мы z-ый элемент i-той строки умножаем на z-Ый элемент j-того столбца Процедура VV -- для вывода матрицы Программа I) вводим размер матрицы n (n -- глобальная переменная) II) вводим саму матрицу по строкам III) вводим степень К. Если захотите то уже сами сделаете проверку К, чтоьы оно было больше 2 K-1 раз умножаем матрицу X на исходную матрицу В первый раз X содержит матрицу А, а потом результат возведения матрицы А в i-ю степень Выводим результат. Будут вопросы, задавайте. Приложение: type TA=array[1..20,1..20] of real; var A,X:TA; n:integer; i,j:integer; K:integer; Procedure FF(var A:TA; B:TA); var X:TA; S:real; i,j,z:integer; begin for i:=1 to n do for j:=1 to n do begin S:=0; for z:=1 to n do S:=S+A[i,z]*B[z,j]; X[i,j]:=S; end; A:=X; end; Procedure VV(A:TA); var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(A[i,j]:0:3,' '); writeln; end; end; begin write('Enter n: '); Readln(n); write('VVod matri'); for i:=1 to n do begin writeln(i,'-fz row'); for j:=1 to n do read(A[i,j]); end; writeln; write('Enter K: '); readln(K); X:=A; for i:=2 to K do FF(X,A); VV(X); readln; end.

Ответ отправил: Vassea (статус: 9-ый класс) Ответ отправлен: 23.11.2007, 21:26

Вопрос № 110.443

Здравсвуйте эксперты, пара вопросов: 1) вещественный тип- это ведь extended? 2)почему пишет что для его компиляции нужен 8087 процессор?

Отправлен: 21.11.2007, 20:18 Вопрос задал: Tribak (статус: 4-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Tribak! Все вещественные типы (из хелпа Pascal): Real | 2.9e-39..1.7e38 | 6 Single | 1.5e-45..3.4e38 | 4 Double | 5.0e-324..1.7e308 | 8 Extended | 3.4e-4932..1.1e4932 | 10 Comp | -9.2e18..9.2e18 | 8 Turbo Pascal поддерживает две модели генерации объектного кода для чисел с плавающей запятой : - Программная поддержка чисел с плавающей запятой {$N-} - Аппаратная (80x87) поддержка чисел с плавающей запятой {$N+} Сопроцессор(FPU-Floatins Point Unit) х87 может работать только с данными 8 и 10 байт, его использование ускоряет время работы программы, уменьшает длину кода. По умолчанию включана программая поддержка. Она только тем и занимается, что перед каждым использованием вещественного числа(Real | Single) добавляет код который переводит их в 8(10) байтное представление т.е. в числа (Double | Extended) и после этого обрабатывается сопроцессором, а после использования преводит результат обратно. А это лишний код, лишнее время. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 21.11.2007, 20:57 Оценка за ответ: 5

Отвечает: Маренич Владимир Здравствуйте, Tribak! В настройках компилятора надо разрешить генерацию команд сопроцессора. У меня обычно установлены: меню "Options" Compiler... Numeric Processing [x] 8087/80287 [x] Emulation Если не поможет, то пишите в мини-форум - будем разбираться подробнее.

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 22.11.2007, 00:41 Оценка за ответ: 5

Вопрос № 110.449

Здраствуйте всезнайки! Пожалуйста, в кого есть время напишыте программу на паскале: дано два массивы. Получить из них с помощью слития массив (с уже сортированными числами) массив С, елементы, что совпадают вставлять один раз. Подсчитать количество елементов в массиве С. Пожалуйста!!! И если можно с коментариями! СПАСИБО

Отправлен: 21.11.2007, 21:18 Вопрос задал: Н_и_к_о_л_а_й (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Verena Здравствуйте, ЗВЕРЬ! Применять здесь чистый алгоритм сортировки слиянием (из задания не очень ясно, необходимо это или нет) не слишком удобно, поэтому возьмём только его принцип. Чтобы результирующий массив сразу был отсортирован, мы сначала сортируем оба исходных массива, а потом производим слияние по следующему алгоритму: пишем в новый массив меньший элемент из текущих. Выглядеть это будет так: А В С А В С A B C A B C (То есть из массивов А и В выбирается минимальный 1 2 3 2 1 3 4 1 5 4 1 элемент сверху (сначала) и записывается в С) 3 4 5 4 5 2 2 5 3 Реализация в приложении, комментарии помогут Вам разобраться. Удачи! Приложение: Type mas = array [1..100] of integer; Var i, n, m, k: integer; a, b, c: mas; procedure Sort (var a: mas; n: integer); {процедура сортировки (метод пузырька)} Var i, k, j: integer; begin for i:=2 to n do for j:=n downto i do if a[j]<a[j-1] then {если текущий элемент меньше предыдущего - меняем их местами} begin k:= a[j]; a[j]:=a[j-1]; a[j-1]:=k; end; end; procedure Merge (var a: mas; var b: mas; var c: mas; m, n: integer; var k: integer); {процедура слияния} Var i, j: integer; begin i:=1; j:=1; k:=1; {устанавливаем счётчики} while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов} begin if c[k-1]=a[i] then begin inc (i); continue; end; {если элемент повторный - пропускаем его и переходим на новую итерацию} if c[k-1]=b[j] then begin inc (j); continue; end; if (i<=n) and (j<=m) then {если оба массива ещё не закончились} begin if a[i]<b[j] then {то пишем в новый массив меньший из текущих элементов} begin c[k]:= a[i]; inc (i); {переходим к следующему элементу соответствующего массива} inc (k); {переходим к следующему элементу конечного массива} end else begin c[k]:= b[j]; inc (j); inc (k); end end else if j>m then {иначе один из массивов уже закончился} begin {и мы пишем из того, в котором ещё есть элементы} c[k]:= a[i]; inc (i); inc (k); end else begin c[k]:= b[j]; inc (j); inc (k); end; end; dec (k); {k показывает, сколько элементов в результирующем массиве - это выходной параметр (при завершении функции он на 1 больше, чем элементов в С} end; begin readln (n); {считываем входные данные} for i:=1 to n do readln (a[i]); readln (m); for i:=1 to m do readln (b[i]); writeln ('Ishodniii massiv A: '); {выведем исходные массивы} for i:=1 to n do write (a[i], ' '); writeln; writeln ('Ishodniii massiv B: '); for i:=1 to m do write (b[i], ' '); writeln; Sort (a, n); {сортируем оба массива} Sort (b, m); Merge (a, b, c, m, n, k); {применяем процедуру слияния} writeln ('Rezultiruiutzii massiv C iz ', k, 'elementov: '); {выводим результат} for i:=1 to k do write (c[i], ' '); writeln; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 22.11.2007, 18:38 Оценка за ответ: 5 Комментарий оценки: Спассибки! Точно и умело!!!

Вопрос № 110.451

Здраствуйте Уважаемые эксперты, помогите решить задачу: Создать связный список, написать процедуру, которая выбрасывает с списка найменьшый елемент и выводит на экран список без найменьшего елемента. Список заполняем сами, сразу указываем сколько в нём елементов, затем вводим их. Помогите пожалуйста с кодом, т.к. я непредставляю сибе как это зделать, желательно побольше коментариев :) Заранее спасибо.

Отправлен: 21.11.2007, 21:38 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Verena Здравствуйте, Станислав! Про работу о списками рассказывалось уже тысячу раз, потому повторять не буду, а предложу ссылку, по которой можно почитать теорию и посмотреть примеры: ссылка. А реализация Вашей задачи в приложении, из комментариев будет понятно, что происходит, но только если иметь хоть общее представление о вопросе. Удачи! Приложение: Uses crt; Type sp = ^s; {тип списка} s = record {внутренняя структура элемента списка} i: integer; {число} next: sp; {ссылка на следующий элемент} End; Var first, q: sp; n, i, min: integer; Procedure Add_v_kon (var q: sp); {процедура добавления в конец списка} Var x: sp; Begin New (x); {выделяем память под новый элемент} Readln (x^.i); {считываем значение для него} q^.next:= x; {настраиваем ссылку текущего элемента (он должен быть последним) на новый элемент} x^.next:= nil; {новый элемент - последний: он ещё ни на что не указывает} End; Procedure Del_to (var first: sp; k: integer); {процедура удаления элемента списка со значением k} Var p, q: sp; h: integer; Begin If k<>first^.i then {если удаляемый элемент не первый} Begin q:= first^.next; {начинаем со второго (предполагается, что удаляемый элемент в списке есть)} while q^.next^.i<>k do q:= q^.next; {пока не дойжём до элемента, предшествующего нужному} p:= q^.next; {сохраняем ссылку на удаляемый элемент} q^.next:= p^.next; {перенастраиваем ссылку предыдущего на следующий за удаляемым} Dispose (p); {освобождаем память} End else Begin {если же удаляемый - первый} p:= first; {сохраняем старую ссылку на первый} first:= first^.next; {переопределяем первый вторым} Dispose (p); {освобождаем первый} End; End; Procedure Vivod (first: sp); {вывод на экран} Var q: sp; Begin Writeln; q:= first; {начинаем с первого} While q<>nil do {пока не наткнёмся на пустую ссылку (конец списка)} Begin Writeln (q^.i); {выводим элемент на экран} q:= q^.next; {переходим к следующему элементу} End; Readkey; {ждём нажатия клавиши} End; Begin ClrScr; readln (n); {считываем количество элементов} New (q); {выделим память под первый} Readln (q^.i); {запишем в него значение} q^.next:= nil; {второго пока нет} first:= q; {сохраняем ссылку на первый} for i:=1 to n-1 do {вводим осталтьные элементы через процедуру} begin Add_v_kon (q); q:= q^.next; end; q:= first; {встаём на первый} min:= q^.i; {принимаем первый за минимальный} for i:=1 to n-1 do begin q:= q^.next; if q^.i<min then min:= q^.i; {если встречаем меньший - переопределяем} end; Del_to (first, min); {удаляем элемент с минимальным значением} writeln ('Resultat: '); {выводим результат} Vivod (first); end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 22.11.2007, 19:22

Вопрос № 110.463

Здравствуйте уважаемые эксперты! Помогите плз решить задачу: Пусть даны координаты трех точек на плоскости. Если они мо- гут быть вершинами прямоугольного треугольника, вычислите его площадь. Заранее всем спасибо!!!

Отправлен: 21.11.2007, 23:40 Вопрос задал: Игнатов Андрей Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Игнатов Андрей Сергеевич! Достаточно найти длины соответствующих отрезков (для нашего случая лучше находить квадраты длин), а затем проверить их потеореме Пифагора, если теорема выполняется, значит находим площадь. Код: var x1,y1,x2,y2,x3,y3,d1,d2,d3,s:real; begin   write('x1=');read(x1);write('y1=');read(y1); {ввод данных}   write('x2=');read(x2);write('y2=');read(y2);   write('x3=');read(x3);write('y3=');read(y3);   d1:=sqr(x1-x2)+sqr(y1-y2); {вычисляем квадраты длин соответствующих отрезков}   d2:=sqr(x1-x3)+sqr(y1-y3);   d3:=sqr(x2-x3)+sqr(y2-y3);   if (d1+d2=d3) or (d2+d3=d1) or (d1+d3=d2) < font color=green>{непосредственно делаем проверку по Т. Пифагора, a2+b2=c2}      then writeln('S=',(ord(d1+d2=d3)*d1*d2+ord(d2+d3=d1)*d2*d3+ord(d1+d3=d2)*d1*d3)/2:4:3); {выводим значение площади} end. Oстановимся подробнее на строке (я думаю, что она Вас повергла в шок :))): (ord(d1+d2=d3)*d1*d2+ord(d2+d3=d1)*d2*d3+ord(d1+d3=d2)*d1*d3)/2 ord(d1+d2=d3) - эта запись возвращает значени 1, если d1+d2=d3 и 0 в противном случае. соответственно при рассмотрении выражение ближе, видим что если выполняется хотябы одно условие - все остальные не выполняются. Для случая когда d1+d2=d3, получаем такую запись: (1*d1*d2+0*d2*d3+0*d1*d3)/2 = d1*d2/2 (искомая площадь), аналогично и для других случаев. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 22.11.2007, 00:37 Оценка за ответ: 5 Комментарий оценки: Огромнейшее спасибо!!!!!

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Игнатов Андрей Сергеевич! предположим, что вы храните координаты в переменных ax, ay, bx, by, cx, xy, если в массиве, думаю без проблем переделаете самостоятельно. Все переменные имеют тип real; //Находим длины сторон a = sqrt(sqr(bx - cx) + sqr(by - cy)); b = sqrt(sqr(ax - cx) + sqr(ay - cy)); c = sqrt(sqr(bx - ax) + sqr(by - ay)); //Проверяем, существует ли треугольник // и если да, то находим площадь if (a+b > c) AND (a+c > b) and (b+c > a) then begin p := (a + b + c) / 2; S := sqrt(p * (p - a) * (p - b) * (p - c)); WriteLn('Площадь треугольника = ', S); end else WriteLn('Треугольника не существует');

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 8-ой класс) Ответ отправлен: 22.11.2007, 09:25

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.64 от 24.11.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru