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

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

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

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

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

Николай // Programmator Статус: 10-й класс Рейтинг: 121 ∙ повысить рейтинг >>

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

Выпуск № 783
от 13.01.2009, 20:05

Вопрос № 156924: Здраствуйте уважаемые эксперты помогите мне решить задачи:1)Вычислить выражение t=max (Ai) /max (Вi), где А и В массивы, состоящие из n элементов. Определение максимальных элементов массивов осуществить с помощью подпрограмм. 2)10) Дано натурально...

Вопрос № 156.924

Здраствуйте уважаемые эксперты помогите мне решить задачи:1)Вычислить выражение t=max (Ai) /max (Вi), где А и В массивы, состоящие из n элементов. Определение максимальных элементов массивов осуществить с помощью подпрограмм. 2)10) Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица I,j=1,…,n, если аy=(i2+n)

Отправлен: 07.01.2009, 20:04 Вопрос задал: Совинов Иван Петрович Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Micren Здравствуйте, Совинов Иван Петрович! Программа для 1го задания. Что касается 2го, то из условия не ясно причем тут ay. Возможно текст условия не полный. Приложение: program Pascal_156924; const N=10; type TArr=array[1..N]of Double; function Max(arr:TArr):Double; var I:Integer; res:Double; begin res:=arr[1]; for I := 2 to N do if res<arr[I] then res:=arr[I]; Max:=res; end; var A,B:TArr; I:Integer; begin WriteLn('Enter A:'); for I := 1 to N do begin Write('A[',I,']='); ReadLn(A[I]); end; WriteLn('Enter B:'); for I := 1 to N do begin Write('B[',I,']='); ReadLn(B[I]); end; WriteLn('max(A)/max(B)=',Max(A)/Max(B):0:5); ReadLn; end.

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

Вопрос № 156.926

Здравствуйте. Помогите пожалуйста. Нужно написать программу с использованием циклов. заранее благодарю

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Supersized! Все таки нашел я ошибку в Вашей формуле, ибо в том виде как она написана при положительных Х выдает неверный результат, а при отрицательных вообще не сходится. Нужно заменить x/yi^3 на x/yi^2 и все заработает. Программа-то примитивная, но из-за неправильного условия крови Вы у меня попили. Код в приложении. Приложение: uses crt; function Step(a,b:real):real;{функция для вычисления кубического корня из х для проверки} var t:real; begin t:=abs(a); if a=0 then Step:=0 else if a<0 then Step:=(-1)*exp(b*ln(t)) else Step:=exp(b*ln(t)); end; var x,y,yi:double; i:integer; begin clrscr; write('x=');readln(x); yi:=1; repeat y:=yi+(x/(yi*yi)-yi)/3;{поочередно считаем очередные приближения корня} yi:=y+(x/(y*y)-y)/3; until abs(y-yi)/abs(y)<=exp(-ln(2)*30);{заканчиваем по достижении условия} writeln('y=',y:0:10); writeln('Yk=',Step(x,1/3):0:10);{проверяем по формуле} readln end.

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

Вопрос № 156.984

здравствуйте)) буду очень рада и блогодарна, если поможете решить задачу на вычитание двух любых чисел и Фибоначчиеой системе счисления (например, 100101 и 010101). Если можете, объясните хотя бы общий смысл, как и что делается, ну а если и программа будет, то просто замечательно) заранее спасибо)

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

Отвечает: Ltiomap Здравствуйте, Margusha! хотелось бы узнать что такое Фибоначчиевая система счисления если это двоичная система счисления то будет проще перевести эти два числа в десятичную систему счисления , а потом вычесть и результат перевести обратно в двоичную систему Фибоначчиева система счисления - учитесь пользоватся поиском. -------- ∙ Отредактировал: Зенченко Константин Николаевич, Профессор ∙ Дата редактирования: 12.01.2009, 13:25 (время московское) --------- never and nobody

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Margusha! Программа в приложении. Для Вашего примера вычитания это будет так: 100101 =17 010101 =12 --------- 100000 010000 --------- 011000 010000 --------- 001000 = 5 Для примеров сложения, существует ещё и правило разложения двоек 0100 = 3 0100 = 3 ++++ 0200 ==== 1001 = 6 Т.е. двойка "разворочивается" как влево так и вправо. Удачи! Приложение: uses crt; var a,b:string; c,d:integer; {функция ввода числа в фибоначчиевой системе} function inputFibo:string; var y:char; z:string; begin z:='0'; repeat y:=ReadKey; if ((y='1')and(z[1]<>'1'))or(y='0')then begin {число вводится в обратном порядке, младшие разряды в начале строки и имеют одинаковые порядковые адреса} z:= y + z; write(y); end; until ord(y)=13; inputFibo:=z; writeln; end; {вывод числа в правильном порядке} procedure outputFibo(x:string); begin if length(x)>0 then begin{выводим строку в обратном порядке} outputFibo(copy(x,2,length(x)-1)); write(x[1]); end; end; {функция подсчета числа фибоначчи} function Fibo(t,u,v:integer):integer; begin if v>0{проверяем условие рекурсии} then Fibo:=Fibo(t+u,t,v-1) else Fibo:=t; end; {функция перевода в десятичную систему, для контроля} function controlFibo(w:string):integer; begin if length(w)>0{проверяем условие рекурси} then controlFibo:=controlFibo(copy(w,1,length(w)-1))+ord(w[length(w)]='1')*Fibo(1,0,length(w)) else controlFibo:=0; end; begin {вводим первое число} write('Enter A:'); a:=inputFibo; {вводим второе число} write('Enter B:'); b:=inputFibo; {выравниваем длину строк} if length(a)>=length(b)then begin{} while length(a)>length(b)do b:=b+'0'; {контрольный вывод} outputFibo(a);writeln(' = ',controlFibo(a)); outputFibo(b);writeln(' = ',controlFibo(b)); {все делаем в цикле} repeat {суммируем по принципу 1-1=0 } d:=1; while d<=length(a) do begin if a[d]=b[d]then begin{} a[d]:='0'; b[d]:='0'; end; inc(d); end; {выводим промежуточные результаты} outputFibo(a); writeln(' A0:'); outputFibo(b); writeln(' B0:'); {возвращаем цвет в норму} TextColor(7); {пока есть "1" в числе В, начинаем суммирование 2=1+1} c:=pos('1',b); if ((b[c]='1')and(c>0)) then begin{поиск старшего} d:=c; while(a[d]<>'1')and(d<length(a))do inc(d); {разкладываем на прарные единицы} if (a[d]='1')and(d<=length(a))then begin if d>2 then begin{100=011} a[d]:='0'; a[d-1]:='1'; a[d-2]:='1'; end else begin{10=1+1} a[d]:='0'; a[d-1]:='1'; b[c]:='0'; end; TextColor(15);{было изменение в строке} end; end; {котрольный вывод текущих значений} outputFibo(a); writeln(' A1:'); outputFibo(b); writeln(' B1:'); {возвращаем цвет в норму} TextColor(7); until pos('1',b)=0{c>length(b)}; end else write('Wrong ');{сообщение об шоибке} write('Result:'); outputFibo(a); write(' = ',controlFibo(a)); ReadKey;; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 157.002

Здравствуйте уважаемые эксперты вот задачи помогите пжалуста : 1.Все элементы с наибольшими значениями в данной целочисленной квадратной матрице порядка 10 заменить нулями. 2.Вычислить Z=(x+y)/(kn), где х и k сумма и количество положительных элементов массива А(40); у и n - сумма и количество отрицательных элементов массива В(60). Для вычисления суммы и количества положительных и отрицательных элементов массива использовать одну и ту же процедуру.

Отправлен: 08.01.2009, 17:43 Вопрос задал: Евсеев Андрей Максимович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Евсеев Андрей Максимович! Программа второй задачи в приложении. Вопросы задавайте в минифорум. Удачи! Приложение: var a:array[1..40]of integer; b:array[1..60]of integer; i,x,y,k,n:integer; procedure Calc(z:pointer;var c,d:integer;e,f:integer); var g:integer; h:^integer; begin c:=0; d:=0; for g:=0 to e-1 do begin h:=z;{счиатаем адресс элемента массива} inc(h,g); {в цикле проверяем условие для всего массива} if (h^*f)>0 then begin{контрольный вывод, суммирование и подсчет} write(h^:5); c:=c + h^; inc(d); end; end; writeln(';');{окончание работы функции} end; begin {создаем массив и выводим его} randomize; for i:=1 to 40 do begin a[i]:=random(100)-50; write(a[i]:8); end; {создаем массив и выводим его} writeln; for i:=1 to 60 do begin b[i]:=random(100)-50; write(b[i]:8); end; {считаем и выводим результат} calc(@a,x,k,40, 1); calc(@b,y,n,60,-1); writeln(x:5,k:5,y:5,n:5);{вывод полученных значений и результата} if (k*n)>0 then Write('Result:=',(x+y)/(k*n)); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Отвечает: Micren Здравствуйте, Евсеев Андрей Максимович! Вот ответ на на 1е задание Приложение: { 1я программа } program Pascal_157002_1; const Dimension=10; type TMatrix=array[1..Dimension,1..Dimension]of Integer; var Matrix:TMatrix; I,J,Max:Integer; begin Randomize; WriteLn('Matrix:'); { Создаем матрицу и сразу печатаем ее } for I := 1 to Dimension do begin for J := 1 to Dimension do begin Matrix[I,J]:=Random(31)-15; Write(Matrix[I,J]:6,' '); end; WriteLn; end; { Находим максимальный элемент } Max:=Matrix[1,1]; for I := 1 to Dimension do for J := 1 to Dimension do if Max<Matrix[I,J] then Max:=Matrix[I,J]; WriteLn('Max=',Max); { Заменяем элементы с максимальным значением и печатаем } WriteLn('Matrix:'); for I := 1 to Dimension do begin for J := 1 to Dimension do begin if Max=Matrix[I,J] then Matrix[I,J]:=0; Write(Matrix[I,J]:6,' '); end; WriteLn; end; ReadLn; end.

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

© 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