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

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

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

Botsman Статус: Студент Рейтинг: 142 ∙ повысить рейтинг >>

Micren Статус: Практикант Рейтинг: 89 ∙ повысить рейтинг >>

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 45 ∙ повысить рейтинг >>

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

Выпуск № 837
от 28.03.2009, 00:05

Вопрос № 162906: Здравсвуйте уважаемые эксперты! Помогите написать программу и блок-схему для решения примера методом простой итерации. Уравнение см. в приложении( (x) в 1/2, и в 1/3 это короче корни от х, ну сами понимаете). Вот что я накарябал)))): program p...

Вопрос № 162.906

Здравсвуйте уважаемые эксперты! Помогите написать программу и блок-схему для решения примера методом простой итерации. Уравнение см. в приложении( (x) в 1/2, и в 1/3 это короче корни от х, ну сами понимаете). Вот что я накарябал)))): program prostayait; var x,x0,xk,i,y,y1,y12,L,U:real; begin x:=0.4; repeat x0:=0.4; xk:=1; y:=x+sqrt(x)+exp(1/3*ln(x))-2.5; y1:=1+1/2*exp((-1/2)*Ln(x0))+1/3*exp((-2/3)*Ln(x0)); y12:=1+1/2*exp((-1/2)*Ln(xk))+1/3*exp((-2/3)*Ln(xk)); writeln('y1=',y1:6:2,' y12=',y12:6:2); if y1>y12 then U:=y1 else U:=y12; L:=1/U; writeln('L=',L:6:2); i:=1; x(i+1):=x(i)-L*y; writeln('ЇаЁ x=',x:6:2,' y=',y:6:2); x:=x+0.1; until x>1; readln; End. Заранее благодарен. Приложение: X+(X)1/2+(X)1/3-2,5=0 на отрезке [0,4;1]

Отправлен: 22.03.2009, 09:44 Вопрос задал: Мединский Е. В. (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Motoden Здравствуйте, Мединский Е. В.! Итак, метод простой итерации заключается в том, что вы в качестве следующего приближения используете значение получившееся в результате подстановки в вашу функцию прошлого приближения. И как у всех численных методов у этого метода имеется своя область сходимости. К примеру, если в программу, написанную мной подставить в качестве начального приближения значение икса, равное 0.4, то метод не сойдется к решению. А при начальном приближении 0.6 - сойдется. Посему надо использовать его.)) Далее. Уравнение у вас нелинейное вида f(x)=0. Чтобы воспользоваться методом простой итерации вам необходимо это уравнение свести к эквивалентному виду x=y(x), что я и сделал в функции, написанной мной в программе. Далее, применяем метод простой итерации до тех пор пока разница между вашим старым приближением x и значением функции y(x), (где x-старое приближение) не станет меньше eps(точность). Вроде всё. Об оценке сходимости метода простой итерации читайт е в литературе. Если возникнут вопросы, пишите личное сообщение. Приложение: program PROSTATIT;{:)} var i:integer; x_old:real; eps:real; function y(x:real):real; begin y:=-exp((1/2)*ln(x))-exp((1/3)*ln(x))+2.5; end; begin writeln('Najmite lubuyu klavichu'); readln; x_old:=0.6; eps:=1e-5; while abs(x_old-y(x_old))>eps do begin x_old:=y(x_old); writeln(x_old); end; write('rezultat=',x_old:3:3); readln; end. --------- "это невозможно" - сказала причина, "это болезненно" - сказала гордость, "это безрассудно" - сказал опыт. "Попробуй!" - сказала мечта

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

Вопрос № 162.917

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

Отправлен: 22.03.2009, 11:45 Вопрос задала: Юлия-Sonne (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Motoden Здравствуйте, Yuliya-bakumovva! Постарался написать комментарии. Приложение: program m; Uses CRT; var i:integer; summa_kvadratov:real; x:char; a:array[1..10] of integer;{массив в котором хранятся все 10 значений} begin repeat{цикл, который позволяет вернуться на начало программы, если вы хотите запустить её ещё раз. В конце программы вас спрашивают хотите ли вы это сделать} clrscr;{очищаем экран} writeln('Vvedite 10 cifr:'); summa_kvadratov:=0;{переменная в которой будет хранится нужное вам значение} for i:=1 to 10 do{цикл в котором вы задаёте 10 значений} begin write('a[',i,']='); readln(a[i]); summa_kvadratov:=summa_kvadratov+sqr(a[i]); end; writeln('rezultat=',summa_kvadratov:3:3); writeln('prodoljit?(y/n)'); writeln; x:=readkey; until ord(x)=ord('n');{программа не выходит из цикла пока вы не нажмёте после запроса клавишу 'n'} end. --------- "это невозможно" - сказала причина, "это болезненно" - сказала гордость, "это безрассудно" - сказал опыт. "Попробуй!" - сказала мечта

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

Вопрос № 162.937

Уважаемые эксперты, помогите, пожалуйста, с задачей: Создать файл целых чисел. Определить суммы между локальными минимумами, записав их в новый файл.

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

Отвечает: Шевченко Дмитрий Здравствуйте, Maybeme! Один из вариантов решения Вашей задачи в приложении. Программа запоминает, было ли предыдущее число меньше, чем стоящее перед ним, т.е. может ли быть предыдущее число локальным минимумом. И тогда если оно может быть локальным минимумом и текущее число больше него, то оно - минимум и сумма чисел между этим и предыдущим минимумом пишется в файл. При этом сами числа - минимумы ни к одной из сумм не относятся. Успехов! С уважением, Дмитрий. Приложение: program z162937; uses CRT; {$I-} {процедура обработки ошибок, которые могут возникнуть при работе с файлами} procedure Error(msg:String); begin WriteLn(msg); ReadLn; Halt(0); end; type MyFile = File of Integer; var sFileName:String; fIn,fOut:MyFile; {Если файл с ответом - текстовый, то fOut:Text;} IsMin:boolean; i,x,pred,sum:Integer; begin ClrScr; Randomize; Write('Введите имя исходного файла: '); ReadLn(sFileName); Assign(fIn,sFileName); Rewrite(fIn); IF IOResult <> 0 then Error('Невозможно создать файл: '+sFileName); WriteLn('Исходный файл: '); For i:= 1 to 30 do{заполняем исходный файл случайными числами} begin x:= Random(101)-50; Write(x,' ');{и попутно выводим их на экран} IF (i mod 15) = 0 then{чтоб они были не все в одну строчку на экране} WriteLn; Write(fIn,x); IF IOResult <> 0 then Error('Ошибка записи в файл'); end; WriteLn; Close(fIn); Reset(fIn); IF IOResult <> 0 then Error('Невозможно открыть файл: '+sFileName); Write('Введите имя файла для ответа: '); ReadLn(sFileName); Assign(fOut,sFileName); Rewrite(fOut); IF IOResult <> 0 then Error('Невозможно создать файл: '+sFileName); sum:= 0; IsMin:= false; Read(fIn,pred); IF IOResult <> 0 then Error('Ошибка чтения из файла'); WriteLn('--- Суммы ---'); While not EOF(fIn) do{перебираем файл с числами} begin Read(fIn,x); IF IOResult <> 0 then Error('Ошибка чтения из файла'); IF (x > pred) then{Если текущее больше предыдущего} IF IsMin then{Если предыдущее было меньше того, которое стоит до него} begin Write(fOut,sum);{то пишем в ответ сумму} {Если текстовый: WriteLn(fOut,sum);} IF IOResult <> 0 then Error('Ошибка записи в файл'); WriteLn(sum);{выводим сумму на экран} sum:= 0; IsMin:= false; end Else sum:= sum + pred{Если не нашли минимум - добавляем предудыщее число к сумме} Else begin{Если текущее меньше предыдущего} IsMin:= true;{запоминаем что оно меньше} sum:= sum + pred;{добавляем предыдущее число к сумме} end; pred:=x; end; Close(fIn); Close(FOut); ReadLn; end.

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

Вопрос № 162.949

Здравствуйте. Мне нужно решить 4 задачи. Первую я знаю как решить, а вот 2 и 3 я не вкурсе где в массиве есть четверти. в 4й задаче мне не понятно "обратных значений". Помогите решить Задача 1.Получение элементов массива Вычислить значения 38 элементов одномерного целочисленного массива F в интервале от (-8;8) с использованием генератора случайных чисел. Задача2.Вычисление параметра массива Вычислить среднегармоническое значение положительных элементов последней трети. Задача3. Определение параметра массива. Определить наибольший по абсолютной величине среди нечетных по номеру элементов первой четверти Задача 4. Упорядочение элементов массива Упорядочить ненулевые элементы последней четверти массива по возрастанию модулей обратных значений.

Отправлен: 22.03.2009, 16:24 Вопрос задал: DaImeR (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: Boriss Здравствуйте, DaImeR! Вот мое решение второй задачи. Пояснения в файле Приложение: {Задача2.Вычисление параметра массива Вычислить среднегармоническое значение положительных элементов последней трети.} {http://student.km.ru/ref_show_frame.asp?id=CD563A7EC46447979EE1F32ED95E418E здесь взял описание среднегармонического} uses CRT; CONST N = 38; VAR ar: Array[1..N] of Integer; count: Integer; {Число положительных} sum : Real; {произведение положительных} i : Integer; BEGIN ClrScr; randomize; for i:=1 to N do ar[i] := Random(17)-8; {17 - Иначе +8 даже теоретически никогда не получим} for i:=1 to N do begin if i = round(N*2/3) then TextColor(11); Write(ar[i]:8); end; TextColor(7); WriteLn(' '); sum := 0; count:= 0; for i:=round(N*2/3) to N do if ar[i] > 0 then begin sum := sum + 1/ar[i]; inc(count); end; if count = 0 then WriteLn('Нет положительных') else WriteLn('Среднегармоническое = ', count / sum:10:6); END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 23.03.2009, 11:51 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245854 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Оч хороший человек:)

Вопрос № 162.963

Помогите решить задачу, please!!! Дана матрица из N строк и M столбцов. Определить и вывести на экран номера столбцов, сумма в которых меньше заданного числа, а также количество этих столбцов

Отправлен: 22.03.2009, 18:32 Вопрос задала: Семашкина Надежда Сергеевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Boriss Здравствуйте, Семашкина Надежда Сергеевна! Посмотрите, такое решение Вам понятно? Приложение: CONST N = 10; M = 18; maxElement = 100; {Макисмальный элемент в массиве} VAR matr: Array[1..N, 1..M] of Integer; K : Integer; i, j, count_of_cln: Integer; sum: LongInt; BEGIN WriteLn; {Заполняем случайными числами и показываем} for i:=1 to N do begin for j:=1 to M do begin matr[i,j]:= Random(maxElement+1); {Генерируется число от 0 ДО (не включая) параметра функции} Write(matr[i,j]:4) end; WriteLn end; Write('Введите целое число: '); ReadLn(K); count_of_cln:=0; for i:=1 to M do begin sum := 0; for j := 1 to N do sum:= sum + matr[j,i]; if sum < K then begin Write(i:4); inc(count_of_cln); end end; WriteLn; if count_of_cln = 0 then WriteLn('В матрице нет столбцов, сумма элементов', ' которых превоходила бы ',K) else WriteLn('Число столбцов, сумма элементов которых ', 'превоходила бы ',K,' равно ',count_of_cln) END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 22.03.2009, 19:54 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245805 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 4 Комментарий оценки: Программа при любых значениях К выдает:"В матрице нет столбцов, сумма элементов', ' которых превоходила бы"((((

Отвечает: Micren Здравствуйте, Семашкина Надежда Сергеевна! Программа: Код: program Pascal_162963; { Размерности матрицы } const N=6; M=5; type TMatrix=array[1..N,1..M]of Integer; { Подсчитывает сумму элементов в столбце } function SumCol(matrix:TMatrix;col:Integer):LongInt; var sum:LongInt; i:Integer; begin sum:=0; for i := 1 to N do sum:=sum+matrix[i,col]; SumCol:=sum; end; var i,j,num,count:Integer; matrix:TMatrix; begin { Заполним матрицу случайными значениями } Randomize; WriteLn('Matrix:'); for i := 1 to N do begin for j := 1 to M do begin matrix[i,j]:=Random(51)-25; Write(matrix[i,j]:7,' '); end; WriteLn; en d; { Вводим число } Write('Enter num='); ReadLn(num); { Собственно решение задачи } count:=0; Write('Cols No:'); { Перебираем столбцы } for j := 1 to M do { Если сумма меньше числа } if SumCol(matrix,j)<num then begin Write(j,' '); { Выводим номер столбца } Inc(count); { Увеличим счетчик } end; WriteLn; WriteLn('Count=',count); ReadLn; end. Результат работы: Код: Matrix: 9 7 -12 -12 -20 4 -1 11 -15 17 -25 6 -18 11 22 23 -18 15 -17 -1 14 4 -21 -13 7 -24 23 -19 4 11 E nter num=5 Cols No:1 3 4 Count=3

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

Вопрос № 162.971

Здравствуйте, уважаемые эксперты! Возникла такая проблема: нужно работать с SVGA-графикой в защищенном режиме (protected mode) Borland Pascal 7.0. Однако, доступ к функциям VESA осуществляется через прерывание BIOS int 10h. Естественно, что прямое обращение к прерыванию BIOS из защищенного режима недопустимо и бессмысленно - компьютер просто виснет. Работа с видеопамятью через LBF также проблематична - Borland Pascal поддерживает лишь 16-разрядный защищенный режим (i286), а LBF работает в плоском 32-разрядном режиме (i386). Пробовал использовать Free Pascal, но у него обнаружились свои неустранимые глюки и причуды. Подскажите, есть ли какой-нибудь способ использовать SVGA-графику в защищенном режиме Borland Pascal?

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

Отвечает: Алтунин Василий Владимирович Здравствуйте, Mkostik! Вот нашел ряд исходников программ, есть работающие в SVGA режиме http://sources.ru/pascal/games/index2.htm Думаю вы найдете в одном из них пример работы с SVGA --------- ... Дорогу осилит Идущий ...

Ответ отправил: Алтунин Василий Владимирович (статус: 7-й класс) Ответ отправлен: 23.03.2009, 04:09 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245826 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 4 Комментарий оценки: Спасибо за участие! Хотя результат отрицательный. В указанном месте откопал 3 программы, заявленные как использующие режимы VESA в защищенном режиме: - rally - 5 модулей, общий р-р 1946 строк, компилируется, не работат (при запуске выдает сообщение Fatal Error #2 и завершается); - wb - 10 модуле, общий р-р 7241 строка, скопилировать не удается (не находит некую переменную ShowSpr); - stair - 4 модуля, общий р-р 1180 строк, компилируется, не работает (при запуске происходит Runtime error 200 at 0001:2401 - деление на нуль). Причем некоторые модули содержат только заголовки функций, а их реализация упрятана в obj-файлы. Добавим сюда скудость коментариев. В общем программы выложены по принципу "На тебе, Боже, что мне не гоже". В свете сказанного выше я счел дальнейшие попытки разобраться в этих программах пустой тратой времени - не факт что о ни вообще когда-то работали и использовали режимы VESA.

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