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

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

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

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

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

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

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

Выпуск № 714
от 01.11.2008, 02:05

Новая тема от портала RusFAQ.ru: Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров >> * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

Вопрос № 148480: Здраствуйте,помогите пожалуйста с двумя задачами: 1.Найти минимальный и максимальный элементы в матрице,их номера. 2.Вывести на экран строку,сумма элементов которой в матрице максимальна. Формат вывода - строка 2: 3 5 8 9 8 Заранее благод...

Вопрос № 148.480

Здраствуйте,помогите пожалуйста с двумя задачами: 1.Найти минимальный и максимальный элементы в матрице,их номера. 2.Вывести на экран строку,сумма элементов которой в матрице максимальна. Формат вывода - строка 2: 3 5 8 9 8 Заранее благодарна!

Отправлен: 26.10.2008, 08:55 Вопрос задала: Evela (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: SHERRY Здравствуйте, Evela! Для удобства работы я взял квадратную матрицу. Матрица заполняется случайными значениями. Если нужно будет заполнить матрицу вручную - отпишитесь в мини-форум или ЛС. Код: const n = 5; {размерность матрицы} var ms: array [1..n, 1..n] of integer; {собственно сама матрица} i,j,s,s1,min: integer; {вспомогательные переменые} begin randomize; {инициализируем генератор случайных чисел} s1:=0; {обнулим переменную, отвечающую за сумму рядка матрицы} min := 1; {допустим, что максимальный ряд - первый} s := -999999999; {допустим, что сумма максимального ряда равна -999999999} {запускаем цикл и в нём проделываем следующие действия: } for i:=1 to n do {пробегаем по всем строкам матрицы, в каждой из которых } begin s1:=0; {обнуляем сумму рядка} for j:=1 to n do {проходим по номерам столбцов матрицы} begin ms[i, j] := random(10); {задаём элементу матрицы случайное значение из промежутка [0, 10)} s1 := s1 + ms[i, j]; {суммируем элементы рядка} write(ms[i,j]:4); {выводим текущий элемент матрицы на экран} end; {после того, как один ряд пройден проверяем} if s1 > s then {если сумма рядка больше, чем предполагаемая максимальная, то} begin min := i; {запомним номер этого рядка} s := s1; {запомним значение максимальной суммы} end; writeln; {переход на следующую строку на экране} end; {конец цикла} writeln; write(min, ':'); {вывод результата на экран} for j:=1 to n do write(ms[min, j]:3); readln; end. Best regard's! Отредактировано по просьбе автора ответа -------- ∙ Отредактировал: Denisss, Профессор ∙ Дата редактирования: 26.10.2008, 10:09 (время московское) --------- Самурай без меча подобен самураю с мечом, только без меча..

Ответ отправил: SHERRY (статус: Студент) Ответ отправлен: 26.10.2008, 09:43 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148480 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!

Отвечает: Шичко Игорь Здравствуйте, Evela! Предлагаю следующий вариант решения. Код в приложении. Приложение: var massiv: array [1..100, 1..100] of integer; i, j, min, max, n, nom_max_1, nom_max_2, nom_min_1, nom_min_2, nom_stroki, max_str, summ_str: integer; begin for i:= 1 to 100 do for j:= 1 to 100 do massiv[i, j]:= 0; {обнуление массива} readln(n); {ввод размерности от 1 до 100} for i:=1 to n do for j:= 1 to n do begin if j mod 2 = 0 then massiv[i, j]:= Round(Random(100)) else massiv[i, j]:= Round(Random(100))* (-1); {заполняем случайным образом} end; min:= massiv[1,1]; max:= massiv[1,1]; nom_max_1:= 1; nom_max_2:= 1; nom_min_1:= 1; nom_min_2:= 1; max_str:= (-99) * n; for i:= 1 to n do begin summ_str:= 0; for j:= 1 to n do begin summ_str:= summ_str + massiv[i,j]; {подсчет суммы строки} if massiv[i, j] > max then begin max:= massiv[i, j]; {вычисление максимального элемента} nom_max_1:= i; nom_max_2:= j; end; if massiv[i, j] < min then begin min:= massiv[i, j]; {вычисление минимального элемента} nom_min_1:= i; nom_min_2:= j; end; end; if summ_str > max_str then begin max_str:= summ_str; nom_stroki:= i; end; end; for i:=1 to n do {вывод исходного массива} begin for j:= 1 to n do write(massiv[i,j]:10); writeln; end; {вывод результатов} write('Max = ', 'massiv[', nom_max_1, ',', nom_max_2, '] = ', max); writeln; write('Min = ', 'massiv[', nom_min_1, ',', nom_min_2, '] = ', min); writeln; write('Max stroka: ' , nom_stroki, ':'); writeln; for j:= 1 to n do write(massiv[nom_stroki, j]:10); readln; end;

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 26.10.2008, 15:35 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148480 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо,вы еще не знаете,как меня выручили!Спасибо!

Отвечает: Тепляков Константин Владимирович Здравствуйте, Evela! Насколько я понял речь идет о двумерной матрице. Я попытаюсь написать программу (в блокноте), но проверить ее, на данный момент, не могу по причине отсутствия компиллятора. В решении я создаю квадратную матрицу, заполнение произвольное положительными значениями. При реализации решения я исходил из предположения: возможны повторные значения и надо вывести их все. PS. Возможны и другие алгоритмы (более быстрые), но я решил пойти по принципу надежности и меньшего используемого объема памяти, но за большее время. PSS. Поскольку про диапазон значений ни чего не сказано, я решил использовать тип Integer, хотя для данного примера лучше было использовать тип shortint. Приложение: Uses crt; const n=20; var mas:array[1..n,1..n]of integer; max1,min1,max2,sum,i,j:integer; begin {main program} clrscr; randomize; for i:=1 to n do for j:=1 to n do mas[i,j]:=random(100); {Заполнение} {Определение величин по заданию} max1:=0; min1:=100; max2:=0; for i:=1 to n do begin for j:=1 to n do begin if mas[i,j]>max1 then max1:=mas[i,j]; {Значение максимального элемента} if mas[i,j]<min1 then min1:=mas[i,j]; {Значение минимального элемента} end; sum:=0; for j:=1 to n do inc(sum,mas[i,j]); if sum>max2 then max2:=sum; {Значение максимальной строки} end; {Вывод на экран массива} for i:=1 to n do begin for j:=1 to n do write(mas[i,j]:3); writeln; end; writeln; writeln('Максимальный элемент: ', max1); write('Позиции: '); for i:=1 to n do for j:=1 to n do if mas[i,j]=max1 then write(i:2,'-',j:2,' '); writeln('Минимальный элемент: ', min1); write('Позиции: '); for i:=1 to n do for j:=1 to n do if mas[i,j]=min1 then write(i:2,'-',j:2,' '); writeln('Максимальная строка: ', max2); write('Позиции: '); for i:=1 to n do begin sum:=0; for j:=1 to n do inc(sum,mas[i,j]); if sum=max2 then write(i:2,' '); end; writeln('Нажмите любую кнопку'); readkey; end. {/main program} --------- Человек - это существо, которое постоянно придумывает себе трудности [переработка доклада Ортега-и-Гассет "О технике"]

Ответ отправил: Тепляков Константин Владимирович (статус: 1-ый класс) Ответ отправлен: 30.10.2008, 06:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148480 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.499

Помогите решить пожалуста Создать программу используя собственный модуль. 1)Ввести произвольную последовательность символов, предшествующих точке и выяснить, есть ли среди них буквы, входящие в слово ЭВМ и сколько раз они встречались. 2)Определить что, все цифры данного четырехугольника числа N различны. 3)Дан массив натуральных чисел А(10). Найти сумму элементов, кратных данному К

Отправлен: 26.10.2008, 15:03 Вопрос задал: Ace Stanislav (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Ace Stanislav! Создание модуля в двух словах. Открываете новое окно, пишите Unit (имя модуля, оно же имя файла *pas) Interface Здесь описываете константы, типы, и пишете заголовки функций и процедур. Implemetation Здесь подробно описываете функции и процедуры. End. С модулеи все. Сейчас этот файл нужно обычным способом сохранить под тем же именем, что и имя Юнита. Затем нажать Ctrl+F9, выйдет окно с предложением. Выбрать OK. Ваш файл сохранится еще раз, но уже с расширением *tpu. Это и будет модуль. Сейчас поместив его в одну папку с программами, которые его будут использовать, можете с ним работать, для чего в начале каждой программы в разделе Uses нужно указать его имя, также как CRT,GRAPH и др. Текст модуля и программ в приложении. Приведены необходимые комментарии. Приложение: Модуль unit My_Modul; interface const r=10; {константа для 3-й задачи} type Tmas=array[1..r] of word; {тип массива для функции} procedure EVM(str:string;sim:char; var kol:byte);{поиск букв} function RazCif(x:word):boolean; {разные ли цифры} function Summ_El(mass:Tmas;del:word):word; {сумма в массиве} implementation procedure EVM(str:string;sim:char; var kol:byte); var i:byte; begin kol:=0; for i:=1 to pos('.',str)do {смотрим строку от начала до точки, если после точки еще есть символы, они нас не интересуют} if str[i]=sim then kol:=kol+1; {если нужный символ нашли, считаем} if kol=0 then writeln('Буквы ',sim,' в строке нет!') else writeln('Буква ',sim,' встречается ',kol,' раз'); end; function RazCif(x:word):boolean; var ct,cs,cd,ce:byte; begin ce:=x mod 10; {цифра единиц} cd:=x mod 100 div 10; {цифра десятков} cs:=x mod 1000 div 100; {цифра сотен} ct:=x div 1000; {цифра тысяч} if (ce<>cd)and(ce<>cs)and(ce<>ct)and(cd<>cs)and(cd<>ct)and(cs<>ct) then RazCif:=true else RazCif:=false; {если разные, да, если неи - нет} end; function Summ_El(mass:Tmas;del:word):word; var j,sum:word; begin sum:=0; for j:=1 to r do if mass[j] mod del=0 then sum:=sum+mass[j];[если делится на данное число, прибавляем} Summ_El:=sum; end; end. Задача 1. uses crt,My_Modul; const s1:string='ЭВМ'; var s:string; j,n,k:byte; begin clrscr; repeat {в цикле проверяем правильность ввода} writeln('Введите последовательность, в конце точка:'); readln(s); if pos('.',s)=0 then writeln('В строке нет точки, повторите ввод!'); until pos('.',s)>0; {если точку нашли, заканчиваем проверку} for n:=1 to length(s1) do EVM(s,s1[n],k); {вызываем процедуру поиска и подсчета нужных символов} readln end. Задача 2. uses crt,My_Modul; var N:Longint; begin clrscr; repeat write('N=');readln(N); until (N div 1000>=1)and(N div 1000<=9); {проверяем, что число 4-х значное} if RazCif(N) then write('Все цифры разные!'){вызываем функцию проверки} else write('Не все цифры разные!'); readln end. Задача 3. uses crt,My_Modul; var a:Tmas; i,K:word; begin clrscr; randomize; for i:=1 to r do begin a[i]:=random(50)+1;{наполняем массив случайными натуральными числами от 1 до 50 и выводим его на экран} write(a[i],' '); end; writeln; write('K=');readln(K); {вводим делитель} write ('Сумма чисел, кратных ',K,'=',Summ_El(a,k));{вызываем функцию} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 27.10.2008, 09:04 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148499 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное Спасибо Пупореву Юрию Борисовичу

Вопрос № 148.556

Уважаемые эксперты! Требуется ваша помощь. Правильны ли мои рассуждения? Есть задача: (Примерная есть у вас на форуме но...) Для аргумента Х, изменяющегося от -0.6 с шагом 0.05, вычислить 20 значений функции: f1(x) = ... ниже код функции f2(x) =sum, от к=0 до бесконечности ((x^(3*k+3))/((k+1)*(3k+1))) функцию вычислить для ряда точностей e=10^-2, e=10^-3,e=10^-4. Для указанных точностей определить количество N элементов ряда, суммируемых для достижения заданной точности. P.S. Обе функции выражают одну и ту же зависимость Х от У. Функция с бесконечностью – это итерационный цикл с заданной точностью. Значения, вычисленные по каждой из функций, должны полностью совпадать. Вот первая функция: см. приложение. Зделал несколько вариантов и все "выпадают" в бесконечный цикл, и слаживается такое впечатление, что значение f2 никогда не достигнет f1. Заранее благодарен!!! Приложение: Program Lab1_1_modul1; uses wincrt; const n = 20; type arr20 = array[1..n] of real; var x:real; arrF1: arr20; i:byte; Function funcF1(_x:Real):Real; var a,a1,a2,a3,b,b1,c,c1:real; begin a1:=sqrt(3)*((_x*_x)*(0.5)); a2:=(_x*sqrt(3))/(_x+2); a3:=arctan(a2); a:=a1*a3; b1:=ln(1-(_x * _x * _x)); b:=((((_x*_x)+2))* b1)/4; c1:=ln(1-_x); c:=((3*(_x*_x))* c1)/4; funcF1:= a + b - c; end; begin x:=(-0.6);{присваиваем начальное значение} for i:=1 to n do begin arrF1[i]:=funcF1(x); writeln(x:2:2,' ',arrF1[i]:2:5); x:= x + (0.05); end; readln; end. Далее, если рассмотреть f2(x) - то при к=0 x получается в степени 3 к=1 x^6 k=2 x^9 и тд. Из этого следует, что в начале степени присвоим 3 и с каждым шагом будем делать inc(степень,3) И получается Код: program Cycle; uses wincrt; var x,znam,f1,eps,f2,rez:Real; k,stepen:longint; Function fPower(A,B:Real):Real;{ Функция возведения в степень (A^B) } Var T:Real; Begin T := Abs(A); If A < 0 Then fPower := (-1)*Exp(B*Ln(T)) Else fPower := Exp(B*Ln(T)); End; Procedure func2( _x:real; _k, _stepen:longint); var _znam:real; begin _znam:=((_k+1)*(3*_k+1)); rez:= (fPower(_x, _stepen)) / (_znam); end; begin f1:=(-0.21060);{берем 1-е значение из f1, просто для проверки} eps:=0.01; x:=(-0.6); k:=0; stepen:=3; func2(x,k,stepen); f2:=rez; while (abs(f2-f1) > eps) and do begin writeln(k,' ',f2:3:8); inc(k); inc(stepen,3); func2(x,k,stepen); f2 := f2 + rez; end; readln; end.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Simuk! В приложении программа вычисляющая значения (эталонной и с заданной точностью) функции для 20-ти значений Х. Ваша ошибка "бесконечного цикла" заключается в том, что Вы неправильно считаете значения отрицательного чисела в четной степени. Удачи! Приложение: program Cycle; const n=0.0001; var x,eps,myF:Real; k,i:integer; {функция возведения в любую степень} Function f0( A:real; B:integer):Real;{ Функция возведения в степень (A^B) } Begin if odd(B) then f0:=A*exp((B-1)*ln(abs(a))) else f0:=exp(B*ln(abs(A))); End; {эталонная функция} Function f1(_x:Real):Real; var a,a1,a2,a3,b,b1,c,c1:real; begin a1:=sqrt(3)*((_x*_x)*(0.5)); a2:=(_x*sqrt(3))/(_x+2); a3:=arctan(a2); a:=a1*a3; b1:=ln(1-(_x * _x * _x)); b:=((((_x*_x)+2))* b1)/4; c1:=ln(1-_x); c:=((3*(_x*_x))* c1)/4; f1:= a + b - c; end; {функция считающая очередной элемент ряда} Function f2( _x:real; _k:integer):real; begin f2:= f0(_x,3*(_k+1)) / ((_k+1)*(3*_k+1)); end; begin {начальное значение Х} x:=-0.6; {в цикле вычисляем значения функций} for i:=1 to 20 do begin {начальная точность} eps:=0.01; repeat {индекс суммируемого ряда} k:=0; {начальное значение ряда} myF:=0; {в цикле с предусловием вычисляем ряд, пока очередной элементбольше заданной точности} while abs(f2(x,k)) > eps do begin myF:=myF+f2(x,k); inc(k); end; {выводим результат вычислений: значение Х, эталонное значение функции, значение вычисленного ряда, индекс ряда и текущая точность} writeln('x:=',x:6:3,'Etalon:=':10,f1(x):10:7,'Result:=':10,myF:10:7,'k:=':5,k:3,'eps:=':6,eps:8:6); {следующее значение точности} eps:=eps/10; until eps<n; {следующее значение Х} x:=x+0.05; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 29.10.2008, 12:56 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148556 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

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