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

Выпуск № 506
от 03.12.2007, 14:35

Вопрос № 111.216

Помогите, пожалуйста, решить задачи на Паскале с помощью цикла: 1) Около стены наклонно стоит палка длинной x метров. Один ее конец находится на растоянии y метров от стены. Определить значения угла между палкой и полом для значений y, изменяющегося от 2 до 3 метров с шагом h. 2) Даны действительное число x. Вычислить: ((x-1)(x-3)(x-5)...((x-63)) / ((x-2)(x-4)(x-6)...((x-64)) примного благодарна!!!!!!

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Element8! Смотрите приложение. Программа последовательно решает обе задачи. ps:вопросы по программе задавайте в мини-форум. Удачи! Приложение: program q111216; var x,y,h:real; begin {первая задача} write('task one:'); write('X:=');readln(x);{вводим данные} write('H:=');readln(h); y:=2.0; if abs(x)>3 then while y<(3+h) do begin {выводим У, высоту стенки и угол} writeln(y:4:1,sqrt(x*x-y*y):4:1,(arctan(sqrt(x*x-y*y)/y)*180/pi):5:0); y:=y+h;{следующий шаг} end else writeln('Zero');{палка может не достать до стенки} {вторая задача} writeln('task two:'); write('X:=');readln(x);{вводим данные} y:=1; h:=2; {исключаем случаи деления на 0} if((2*int(x/2))<>x)or(x<2.0)or(x>64.0)then begin while h<65 do begin {считаем и числитель и знаменатель} y:=y*(x-h-1)/(x-h); h:=h+2.0; end; writeln('P:=',y);{выводим результат} end else write('infinite value');{деление на ноль - бесконечность} end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Отвечает: Артём1983 Здравствуйте, Element8! Первую задачу я решил используя цикл с предусловием. Для того чтобы получить значение в градусах, полученое от работы функции arctan() надо умножить на 180/pi. Вторую задачу решил используя цикл for ... do ... Коды программ смотрите в приложении. Приложение: {111216_1} uses crt; var x,y,h:real; begin clrscr; y:=2; write('введите длину палки (в метрах >=3) х='); readln(x); write('введите шаг h (в метрах) ='); readln(h); while y<=3do begin writeln('если у=',y:3:2,' угол = ',(180/pi)*arctan( sqrt( ( sqr(x)-sqr(y) ) )):3:2); y:=y+h; end; readln; end. {111216_2} uses crt; var S,x:real; i:integer; begin clrscr; S:=1; write('введите действительное число х = '); readln(x); for i:=1to 32do begin S:=S*((x-(2*i-1))/(x-2*i)); end; writeln('S = ',S:3:2); readln; end. --------- Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 6-ой класс) Ответ отправлен: 28.11.2007, 18:11

Вопрос № 111.236

Здравствуйте уважаемые эксперты! Не могу разобраться в Borland Pascal 7.0 при переходе на русский шрифт, нажатием "Shift - Ctrl" появляются различные символы. Как правильно настроить раскладку клавиатуры. ОС WinXP Home Спасибо.

Отправлен: 27.11.2007, 16:11 Вопрос задал: Kharitonov Sergei (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Kharitonov Sergei! Borland Pascal Вы себе поставили совершенно зря. На 2000ХР он самым диким образом тормозит и даже не всегда запускается. Лучше скачайте и поставьте себе FreePascal (www.freepascal.org). По поводу русского языка. Это тема заезжена и замусолена в инете до полного безобразия и к Паскалю никакого отношения не имеет. Вот рецепт: "1. В реестре, по адресу "HKEY_LOCAL_MACHINE -> SYSTEM -> CurrentControlSet->Control -> KeyboardLayout -> DosKeybCodes" изменить значение ключа 00000409 с "us" на "ru". 2. Кроме этого, в файле "autoexec.nt", расположенном в "Windowssystem32" надо добавить строку "lh %SystemRoot%system32kb16.com ru". После перезагрузки переключение раскладки клавиатуры в DOS-приложениях будет производиться комбинациями Ctrl+Left Shift (английская) и Ctrl+Right Shift (русская)."

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 27.11.2007, 18:05 Оценка за ответ: 5

Вопрос № 111.256

Доброе время суток! Уважаемы эксперты, помогите решить задачу: Дан массив, надо найти длину самой длинной возрастающей подпоследовательности (for ex. дан массив 1,2,3, 21, 8, 5, 6, 7, 9, 3, 5, 1 - тогда самая длинная возрастающая подпоследовательность 1,2,3,5, 6, 7, 9. Её длина равна 7 {т.е. подпоследовательсность - числа, идущие не только подряд, но порядок в котором они были введены сохраняется!}) В приложении функция, которую я написал – она не работает. Очень прошу, помогите. Приложение: function l( a,c: array_N): integer; var i, j: integer; begin for i:= 1 to N do begin c[i]:= 1; end; for i:= 1 to N-1 do begin for j:= i+1 to N do begin if(a[j] > a[j-1]) then begin c[i]:= c[i] + 1; end; end; end; i:=1; for j:= 1 to N do begin if c[j] > c[i] then begin i:=j; end; end; l:= c[i]; end;

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

Отвечает: Boriss Здравствуйте, Peeny! А зачем так сложно писать? Ведь нет никакой необходимости хранить длину меньшей подпоследовательности Это ведь простейшая олимпиадная подзадача. В прикрепленном файле вариант решения: Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW: Программирование на Паскале ---- Ответ отправлен: 28.11.2007, 10:23 Оценка за ответ: 5 Комментарий оценки: Большое Вам спасибо!

Вопрос № 111.267

Уважаемые эксперты! Помогите, пожалуйста, решить 2 задачи: 1. Вводится последовательность чисел, признак окончания ввода - простое число. Подсчитать количество чисел, начинающихся с тройки, найти число, имеющее максимальное количество делителей, сложить попарно взаимно простые числа, идущие друг за другом и вывести их суммы. (Используя процедуры и функции). 2. Треугольник вводится координатами своих вершин. Определить его площадь. Заранее огромное спасибо! Swallow.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! Смотрите приложение обе задачи! Удачи! Приложение: program q111267a; var a,n,m:integer; {считаем максимальные делители} function MaxDiv(z:integer):integer; var x,y:integer; begin x:=z-1;{само на себя делить не будем} y:=1;{но учитываем это} while x>0 do begin if(z mod x)=0 then inc(y); dec(x); end; MaxDiv:=y; end; procedure CheckDiv; var x,y,z:integer; begin x:=m; y:=n; {опрелеляем наименьшее} if x>y then begin x:=n; y:=m; end; {ищем его делители} z:=x; while z>1 do begin if(x mod z)=0 then{если нашли делитель X} if(y mod z)=0 then z:=1;{и он есть делтелем Y то на выходе из цикла Z будет 0} dec(z); end; {для взаимно простых общий делитель равен 1} if z=1 then writeln((n+m),'=',n,'+',m); end; begin m:=0; a:=1; repeat write('Enter number:');readln(n); n:=abs(n); {ищем общие делители} CheckDiv; {проверяем на максимальное число делителей смежных чисел} if MaxDiv(n)>MaxDiv(a) then a:=n; {запоминаем новое число} m:=n; until MaxDiv(n)=2;{свойство простых чисел только 2 делителя} writeln('maximum div:=',a); end. program q111267b; var a,b,c,p,s:real; x1,x2,x3,y1,y2,y3:integer; function L(a,b,c,d:integer):real; begin L:=sqrt(abs(a-b)*abs(a-b)+abs(c-d)*abs(c-d)); end; begin {вводим координаты точек} write('x1:');readln(x1); write('y1:');readln(y1); write('x2:');readln(x2); write('y2:');readln(y2); write('x3:');readln(x3); write('y3:');readln(y3); {считаем длины всех отрезков} a:=L(x1,x2,y1,y2); b:=L(x2,x3,y2,y3); c:=L(x1,x3,y1,y3); {считаем площадь образованного треугольника и его высоту} p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('S:=',s); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 27.11.2007, 21:41 Оценка за ответ: 5 Комментарий оценки: Большое спасибо вам за решения!

Вопрос № 111.361

помогите решить задачу: Для нумерации страниц книги понадобилось K цифр. Определить количество страниц книги.

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

Отвечает: Denisss Здравствуйте, irishka! Приблизительное решение находится в приложении. Принцип: 1. Считается, что страницы нумеруются с первой. Если страницы нумеруются со второй, то можно после получения значения К от пользователя, увеличивать его на 1. 2. Арифметика достаточно простая: i - количество цифр в искомом числе страниц. m = 9 x 10i - 1 - количество чисел в диапазоне 10i - 2..(10i - 1 - 1); c = (10i - 1); - количество чисел в диапазоне 1..(10i - 1 - 1) n = 9 + 180 + ... + i x 9 x 10i - 1 - количество цифр в диапазоне 1..(10i - 1 - 1); Определив эти значения, получаем формулу: m:= c + ((K - n) / i); Разность (K - n) представляет собой количество цифр из диапазона 10i - 1..m (m теперь искомое число). Поскольку известно, что в этом диапазоне i цифр в каждом числе, то чтобы определить количество чисел, нужно разделить количество цифр на i. При правильном подсчете К (числа, которое вводит пользователь), разность (K - n) должна получиться кратной i (т.е. деление будет производиться без остатка). Теперь только остается добавить количество чисел PS Если я где-то ошибся в описании, то извините - запутался с этими i, (i - 1) и (i - 2). Пример вроде как рабочий, на всякий случай, проверенный "топорным" методом (т.е. вычислялось К перебором всех чисел от 1 до m и подсчетом количества цифр). Удачи! Приложение: program Q111361; uses Crt; var K, m, n, c: LongInt; i, j: Integer; begin {Очистка экрана} ClrScr; {Ввод данных} Write('K = '); ReadLn(K); {Инициализация} m:= 9; i:= 1; n:= m; c:= m; {Подсчет} while (K > n) do begin {Kоличество цифр в искомом числе} Inc(i); {Kоличество цифр для диапазона i-значных чисел} m:= m * 10; {Последнее число из диапазона (i - 1)-значных чисел} c:= c + m; {Количество цифр в диапазоне от 1 до c} n:= n + (m * i); end; {Определив количество цифр в искомом числе, определяем крайние значения для (i - 1)-значных чисел} n:= n - (m * i); c:= c - m; m:= c + ((K - n) div i); {Вывод результата} WriteLn; WriteLn('Kol-vo stranic: ', m); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn('Press any key...'); ReadLn; end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 28.11.2007, 23:43

Отвечает: Gh0stik Здравствуйте, irishka! Поскольку прозвучал ответ от эксперта Denisss, то решил и я на Ваш суд выставить такой алгоритм: var kc,c,v,st:integer; begin    readln(kc); {вводим количество цифр}    v:=9; c:=1; st:=0;    while kc-v*c > 0 do    begin      kc:=kc-v*c; st:=st+v;      v:=v*10; inc(c);    end;    writeln('книга состоит из ',st + kc div c,' страниц');    readln; end. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, irishka! Ну и я добавлю своё мнение, без циклов. При количестве цифр 5, число страниц = 99999=100000-1=105-1 ps:ещё можно в цикле вывести "9" нужное количество раз. Удачи! Приложение: program q111361; var j:integer; begin {вводим кол-во} write('K:'); readln(j); {считаем и выводим} writeln((exp(ln(10)*j)-1):10:0); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 29.11.2007, 17: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