Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Полтев Станислав Михайлович Статус: Практикант Рейтинг: 276 ∙ повысить рейтинг >>

Шичко Игорь Статус: Студент Рейтинг: 255 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 206 ∙ повысить рейтинг >>

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

Выпуск № 727
от 15.11.2008, 07:35

Вопрос № 149968: Здравствуйте, Уважаемые Эксперты! Пожалуйста, помогите!!!! Допустим, дана матрица: 1 4 6 7 8 2 4 1 9 её нужно преобразовать (используя метод Гаусса как в математике,т.е. вычитание из ...

Вопрос № 149.968

Здравствуйте, Уважаемые Эксперты! Пожалуйста, помогите!!!! Допустим, дана матрица: 1 4 6 7 8 2 4 1 9 её нужно преобразовать (используя метод Гаусса как в математике,т.е. вычитание из одного столбца другой(предварительно если нужно умножить на число),чтобы после вычитания получился 0 вместо какого-нибудь элемента). на этом примере результат может выглядеть так : а11 0 0 а21 а22 а23 а31 а32 а33 Заранее спасибо.

Отправлен: 09.11.2008, 08:33 Вопрос задала: Olimpia (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Olimpia! Программа в приложении. Реализован Метод Гауса - прямой ход. Проверял по этой матрице. Удачи! Приложение: var a:array[1..3,1..3]of real; c,d:real; x,y,z:integer; begin {ввод матрицы} for x:=1 to 3 do for y:=1 to 3 do begin write('a[',x,',',y,']:='); readln(a[x,y]); end; {метод Гаусса прямой ход} for x:=1 to 2 do begin c:=a[x,x];{диагональнй элемент} for y:=x+1 to 3 do begin d:=a[y,x];{линейный элемент} for z:=1 to 3 do {считаем значение} a[y,z]:=a[y,z]-a[x,z]*d/c; end; end; {выводим результат} for x:=1 to 3 do begin for y:=1 to 3 do write(a[x,y]:10:3); writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 12.11.2008, 18:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235289 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо!

Вопрос № 149.982

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций с квадратными матрицами: 1)сложение двух матриц; 2)умножение одной матрицы на другую; 3)нахождение транспонированной матрицы; 4)вычисление определителя матрицы; Матрицу описать следующим образом : Const NMAX=10; Type matrica=array [1..NMAX,1..Nmax] of real; Используя этот модуль решить следующую задачу: задан массив величин типа Matrica. отсортировать массив в порядке возрастания значений определителей матриц.

Отправлен: 09.11.2008, 13:23 Вопрос задала: Коваленко Сабина (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Коваленко Сабина! В модуле кроме указанных подпрограмм есть еще 2, без которых будет неправильно работать функция расчета определителя. При расчете определителя есть действие деления на главный элемент, который может быть равен нулю. В этих случаях нужно менять местами строки, для чего предусмотрена процедура перестановки. При перестановке строк изменяется знак определителя. Чтобы это учесть, создана функция смены знака. В самой программе еще есть 2 процедуры, их можно тоже убрать в модуль, но поскольку в задании этого нет, я не убрал. Это легко поправить. Программа длинная и если комментировать каждую строку, рука отнимется. Поэтому поясняю отдельные моменты, что непонято с математической стороны – в учебник по целочисленным методам. Если будут вопросы по тексту программы, пишите, поясню. Почитайте про модули в учебнике, чтобы легко разбираться. Название типа я заменил, более принято начинать их с буквы Т, а матрицу писать как matrix. Создание модуля. Когда наберете текст модуля (буквально как написано), сохраните его под тем же именем, что и название модуля. Нажмете Ctrl+F9, выйдет окно с сообщением «Cannot run a unit». Нажмете OK и у вас автоматически создастся файл с таким же именем, но с расширением *.TPU. Это и будет модуль. Затем набираете в новом окне текст программы, подключаете модуль, как Crt Graph Dos, и работаете. Модуль и программу я тестировал, все работает. Приложение: Модуль. unit Matrica; interface {раздел объявления констант, типов, процедур и функций} const NMAX=10; type Tmatrix=array[1..NMAX,1..NMAX] of real; procedure Summ(n:integer;p,q:Tmatrix;var t:Tmatrix); {сложение} procedure Umn(n:integer;p,q:Tmatrix;var t:Tmatrix); {умножение} procedure Trans(n:integer;p:Tmatrix;var t:Tmatrix); {транспонирование} procedure Per(k,n:integer;var q:Tmatrix; var kp:integer); {перестановка строк} function znak(kp:integer):integer; {смена знака} function Opr(n:integer;p:Tmatrix):real; {вычисление определителя} implementation {раздел описания процедур и функций} procedure Summ(n:integer;p,q:Tmatrix;var t:Tmatrix); var i,j:integer; begin for i:=1 to n do for j:=1 to n do t[i,j]:=p[i,j]+q[i,j]; {надеюсь все ясно} end; procedure Umn(n:integer;p,q:Tmatrix;var t:Tmatrix); var i,j,k:integer; begin for k:=1 to n do for j:=1 to n do begin t[k,j]:=0; for i:=1 to n do begin t[k,j]:=t[k,j]+p[k,i]*q[i,j];{стандартный алгоритм из учебника} end; end; end; procedure Trans(n:integer;p:Tmatrix;var t:Tmatrix); var i,j,k:integer; begin for i:=1 to n do for j:=1 to n do t[i,j]:=p[j,i]; {в новую матрицу переписывае симметрично главной диагонали, можно и не создавать новую матрицу, но иногда в расчетах нужна и та и другая, поэтому лучше сделать новую} end; procedure Per(k,n:integer;var q:Tmatrix; var kp:integer);{перестановка} var i,j:integer; z:real; begin z:=abs(q[k,k]);i:=k;kp:=0; {начальные значения главного элемента, строки и счетчика перестановок} for j:=k+1 to n do {ищем больший по модулю элемент} begin if abs(q[j,k])>z then {если находим} begin z:=abs(q[j,k]); {запоминаем его} i:=j; {запоминаем номер строки} kp:=kp+1; {считаем перестановку} end; end; if i>k then {если строка ниже исходной} for j:=k to n do {то делаем обмен элементов строк} begin z:=q[i,j];q[i,j]:=q[k,j];q[k,j]:=z; end; end; function znak(kp:integer):integer; begin if kp mod 2=0 then znak:=1 else znak:=-1; {если количество перестановок четное, знак не меняем, иначе меняем} end; function Opr(n:integer;p:Tmatrix):real; {собственно вычисление определителя} var k,i,j,kp:integer; r,det:real; begin det:=1; for k:=1 to n do begin if p[k,k]=0 then per(k,n,p,k); {если главный элемент=0, то перестановка} det:=znak(kp)*det*p[k,k]; {следим за знаком определителя и считаем его} for j:=k+1 to n do begin r:=p[j,k]/p[k,k]; {делим соответствующие элементы строки на главный элемент} for i:=k to n do begin p[j,i]:=p[j,i]-r*p[k,i];{пересчитываем нижележащие строки} end; end; end; Opr:=det;{значение определителя} end; end. Программа. uses crt,Matrica; {подключаем наш модуль} var m:array[1..10]of Tmatrix; {массив матриц} bf:Tmatrix; {буфер при сортировке матриц обменом} n,k,i,j:integer; {размер массива, размер матриц, счетчики} procedure Create(n:integer;var a:Tmatrix);{создание матриц, входной параметр-размер, выходной-сама матрица} var i,j:integer; begin for i:=1 to n do for j:=1 to n do a[i,j]:=random(10)+random-3;{заполняем матрицы случайными вещественными числами} end; procedure Vyvod(n:integer;var a:Tmatrix);{вывод матриц на экран} var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5:2); writeln; end; end; begin {начало основной программы} clrscr; randomize; write(Количество матриц:'); readln(n); write('Размерность матриц:'); readln(k); for i:=1 to n do begin Create(k,m[i]); {создаем n матриц} writeln('Матрица ',i); Vyvod(k,m[i]); {вывод матриц} writeln; end; readln; writeln('Определители матриц:'); for i:=1 to n do write('Матрица ',i,'=',Opr(k,m[i]):0:0,' '); writeln; readln; for i:=1 to n-1 do {сортировка массива матриц по возрастанию пузырьком} for j:=i+1 to n do if Opr(k,m[i])>Opr(k,m[j]) then {если определитель больше} begin bf:=m[i]; {меняем матрицы местами} m[i]:=m[j]; m[j]:=bf; end; writeln('Матрицы в порядке возрастания определителей:'); for i:=1 to n do begin Vyvod(k,m[i]); writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 09.11.2008, 16:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234876 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.990

Здраствуйте, помогите пожалуйста с задачами . 1. Задача на строки (одну сам решил а эту немогу). Ввести текст типа string. Определить среднюю длину слова каждого предложения.. 2. Одномерные массивы. В массиве z[1..24] определить сумму чисел от последнего нулевого значения до z[24] 3. Двумерные массивы. В матрице А[1..6, 1..6] поменять местами строки (первую с последней, вторую с предпоследней и т.д.). Элементы, лежащие на главной диагонали, не трогать. Заранее спасибо , потому что этот сайт лучший обучающий портал! . Приложение: Вот насчет 1 задачи-там средняя длина мне это кажется как среднее арифметическое примерно находится (a+b)/2, однако я незнаю как посчитать это, потому что там не относительно строки а предложения[*74*]

Отправлен: 09.11.2008, 14:02 Вопрос задал: Сараев Лаврентий Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 19)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Сараев Лаврентий Александрович! Решение задач в приложении. По первой задаче половину программы занимает форматирование текста для удобной работы с ним. Последовательность действий прокомментирована в коде программы. Приложение: 1. Задача на строки (одну сам решил а эту немогу). Ввести текст типа string. Определить среднюю длину слова каждого предложения.. uses crt; const rz=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'ё','0'..'9',' ','.']; var s:string; i,len,k:integer; begin clrscr; writeln('Vvedite text iz neskolkih predlozenij:'); readln(s); if s[Length(s)]<>'.'then s:=s+'.';{если нет точки в конце, добавим} for i:=1 to length(s)do if (s[i]='?')or (s[i]='!') then s[i]:='.';{заменим на точки другие окончания предложений} for i:=length(s) downto 1 do begin if not(s[i] in rz) then s[i]:=' ';{заменим всякий мусор на пробелы} if s[i]='.'then begin insert(' ',s,i);{вставим пробелы перед точками} insert(' ',s,i+1);{вставим пробелы после точек} end; end; while pos(' ',s)>0 do delete(s,pos(' ',s),1);{удалим лишние пробелы} while pos('.',s)>0 do {пока не последняя точка} begin len:=0;k:=0; {начальное значение длины слова и количества слов} while (pos(' ',s)>0)and(s[i]<>'.') do {пока в предложении есть пробелы и не точка} begin len:=len+pos(' ',s)-1; {считаем общую длину слов} k:=k+1; {считаем их количество} delete(s,1,pos(' ',s)); {удаляем просмотренное слово с пробелом} end; writeln('Sr. dl. slova=',round(len/k)); {считаем среднее и выводим} delete(s,1,pos('.',s)+1); {удаляем точку и пробел за ней} end; readln end. 2. Одномерные массивы. В массиве z[1..24] определить сумму чисел от последнего нулевого значения до z[24] uses crt; const n=24; var z:array[1..n]of integer; i,j,s,k:integer; begin clrscr; randomize; writeln('Massiv:'); for i:=1 to n do begin z[i]:=random(10)-1;{ноли в массиве почти гарантированы} write(z[i],' '); end; writeln; k:=0; for i:=n downto 1 do {идем с конца массива} if z[i]=0 then {если находим ноль} begin j:=i; {запоминаем номер этого элемента} k:=1; {изменяем значение флага} break; {выходим из цикла} end; if k=0 then {если все таки ноль не попался} begin write('V massive net nulej, summa=0'); readln; halt; {выхлдим из программы} end; s:=0; for i:=j to n do {считаем сумму от найденного номера до конца} s:=s+z[i]; write('Summa=',s); readln end. 3. Двумерные массивы. В матрице А[1..6, 1..6] поменять местами строки (первую с последней, вторую с предпоследней и т.д.). Элементы, лежащие на главной диагонали, не трогать. Заранее спасибо , потому что этот сайт лучший обучающий портал! . uses crt; const n=6; var a:array[1..n,1..n]of integer; i,j,s,k:integer; begin clrscr; writeln('Massiv B:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10*i+j; {это для наглядности, можно заполнить по другому} write(a[i,j]:3); end; writeln; end; for i:=1 to n div 2 do {смотрим строки от 1 до середины} for j:=1 to n do {по строке от 1 до конца} if (i<>j)and(j<>n-i+1) then {если элемент не на главной и не побочной диагоналях} begin s:=a[i,j]; {запоминаем его} a[i,j]:=a[n-i+1,j]; {присваиваем ему значение симметричного элемента в столбце} a[n-i+1,j]:=s; {на место последнего ставим из памяти} end; Writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 10.11.2008, 10:51 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234977 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Я вечером проверю, но вам ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО! Вы не решили пока строки но заслужили оценку 5+. Если у вас будет время то пожалуйста помогите. Еще раз спасибо!

Вопрос № 150.047

здравствуйте.. нужен очень простой код.. Создать массив, содержащий слова с одинаковыми первой и последней буквами, но ничем не разделённые. Сформировать новый массив, в котором эти слова были бы разделены пробелами.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Anriver! Программа в приложении. Нужную строку вводите сами, программа её обработает и выведет результат. Удачи! Приложение: var a,b:string; c:char; begin {вводим строку слов} write('Enter string:'); readln(a); {сбрасываем результат} b:=''; {в цикле формируем новую строку} while length(a)>0 do begin {первая буква слова} c:=a[1]; {удаляем её для функции pos} delete(a,1,1); {формируем новое слово в новой строке} b:= b + c + copy(a,1,pos(c,a)) + ' '; {удаляем уже обработаное слово} delete(a,1,pos(c,a)); end; {выводим результат} writeln('Result:',b); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 14.11.2008, 12:25 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235482 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 150.060

Помогите плизз, небольшую программку написать Дано 50 вещественных чисел. Найти величину наибольшего из них. с помощью оператора IF

Отправлен: 09.11.2008, 23:03 Вопрос задал: Strike5555 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: eXperience Здравствуйте, Strike5555! Для решения этой задачи, я использовал массив вещественных чисел. Код в приложении. I wish you successes! Массив в приведенной программе заполняется целыми числами, т.к. функкция random возвращает значение типа word. Для генерации вещественных чисел необходимо вызывать random без параметром - в этом случае будет возвращено вещественное число в диапазоне от 0 до 1. -------- ∙ Отредактировал: Николай Владимирович / Н.В., Академик ∙ Дата редактирования: 11.11.2008, 08:17 (время московское) Приложение: program Strike; uses crt; const size = 50; var mas : array[1 .. size] of real; i,d : integer; max : single; Begin clrscr; randomize; write(' Введите значение диапазона­: '); readln(d); for i := 1 to size do begin mas[i] := random(d); end; writeln; write (' Массив вещественных чисел: '); writeln; writeln; max := mas[1]; for i := 1 to size do begin write (' ',mas[i]:3:1); if max < mas[i] then max := mas[i]; end; writeln; writeln; write(' Максимальный элемент: ',max:3:1); writeln; readkey; End.

Ответ отправил: eXperience (статус: Заблокирован) Ответ отправлен: 09.11.2008, 23:46 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234940 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Verena Здравствуйте, Strike5555! Как Вы хотели, вариант без использования массива: числа вообще хранить не будем и используем всего две переменные: для текущего числа и для максимального из предыдущих. В данном случае это решение будет более оптимально, поскольку числа нам в будущем не понадобятся. Код: Const n = 50; {Число итераций} Var a, max: real; {Переменные} i: integer; Begin readln (max); {Принимаем первое введённое число за максимальное} for i:=1 to n-1 do {Цикл на 49 итераций} begin readln (a); {Ввод очередного числа} if a>max then max:= a; {Если текущее число больше запомненного ранее - перезаписываем} end; writeln ('Maksimum: ', max:3:5); {Вывод результата (действительное число в формати рованном виде)} end. Удачи! --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 11.11.2008, 00:53 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235061 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 150.061

Помогите.... Объем V - цилиндрической подковы вычисляется по формуле h u V= ------ [a*(3*r^2 - a^2) + 3*r^2*(b-r)* ----- ]. 3*b 180 Составить алгоритм для построения графика зависимости V от угла u , если a,b и r известны, а u изменяется в ди- апазоне от u(1) до u(2) с шагом u. с помощью оператора FOR

Отправлен: 09.11.2008, 23:06 Вопрос задал: Strike5555 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Strike5555! Формулу Вашей задачи взял из Лабораторного практикума, стр.49. Известные величины задаются как константы. Программа вводит только значения начального, конечного углов, а также шаг итераций. И у Вас в формуле и в найденой мною есть переменная h(n). Что она представляет собой я не знаю, но навсякий случай ввел её как известную величину. Вопросы и уточнения задавайте в минифорум. Удачи! Приложение: const {известные параметры} a=2; b=3; h=4; r=5; var u,u1,u2,i,n:integer; a0:real; begin {вводим начальный угол} write('Enter U1:'); readln(u1); {вводим конечный угол} write('Enter U2:'); readln(u2); {вводим шаг} repeat write('Enter u:'); readln(u); until u<>0; {считаем количество итераций} n:=abs(u1-u2) div abs(u); {меняем знак шага на противоположный если начальный угол больше конечного} if u1 > u2 then u:=-u; {считаем всё что не изменяется за пределами цикла} a0:=h*(a*(3*sqr(r)-sqr(a))+3*sqr(r)*(b-r))*pi/(180*3*b); {в цикле считаем каждую итерацию и выводим её} for i:=0 to n do writeln('u:=',(u1+i*u):5,'V:=':6,a0*(u1+i*u):20:10); {всё} readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 11.11.2008, 16:14 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235129 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

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