RFpro.ru: Программирование на языке Pascal (comp.soft.prog.pasplus) : Рассылка : Subscribe.Ru

Отправляет email-рассылки с помощью сервиса Sendsay

Доставка подписки заблокирована с 2024-08-16 из-за ошибок доставки.
Для возобновления доставки подписки, нажмите сюда.

Компьютеры и интернет

Обучение

RusFAQ.ru

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 RSS

← Январь 2010 →
	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

2.942 подписчиков
0 за неделю

← Все выпуски →

RFpro.ru: Программирование на языке Pascal

Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

Boriss
Статус: Академик
Рейтинг: 1710
∙ повысить рейтинг »

_Ayl_
Статус: Студент
Рейтинг: 1544
∙ повысить рейтинг »

Micren
Статус: Профессионал
Рейтинг: 1486
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль)

Номер выпуска:	1021
Дата выхода:	31.01.2010, 20:00
Администратор рассылки:	Калашников О.А., Руководитель
Подписчиков / экспертов:	363 / 201
Вопросов / ответов:	1 / 2

Вопрос № 176300: С помощью рекурси,запрограммируйте 1.У=(х^n)-10. 2.Дан квадрат который задан координат своих вершин. Составить программу вычисления периметра...

Вопрос № 176300:

С помощью рекурси,запрограммируйте
1.У=(х^n)-10.

2.Дан квадрат который задан координат своих вершин. Составить программу вычисления периметра

Отправлен: 26.01.2010, 00:31
Вопрос задал: pascalnew, Посетитель
Всего ответов: 2
Страница вопроса »

Отвечает lamed, Практикант :
Здравствуйте, pascalnew. Ответ на Ваш первый вопрос. Используются 2 функции.
1. Рекурсивная MyPow(x,n)
2. y(x,n)=MyPow(x,n)-10.
x^n не определено, если x=0 и n<=0. Сравнение с нулем заменено сравнением модуля с очень маленьким положительным числом
Текст в приложении. Turbo Pascal 7

Исправлено по просьбе автора ответа.
-----
∙ Отредактировал: Зенченко Константин Николаевич, Модератор
∙ Дата редактирования: 26.01.2010, 15:56 (время московское)

Приложение:
program p176300; { У=(х^n)-10. } var x: real; epsilon: real; n: integer; function MyPow(x: real; n: integer): real; begin if n=0 then MyPow := 1 else if n>0 then MyPow := x*MyPow(x,n-1) else MyPow := MyPow(x,n+1)/x; end; { MyPow } function y(x: real; n: integer): real; begin y:= MyPow(x,n)-10; end; { y } begin epsilon := 0.0001; write(\'x=\'); readln(x); write(\'n=\'); readln(n); write(\'Результаты расчета\'); if (abs(x)<epsilon) and (n<=0) then writeln(\'ошибка, результат неопределен\') else writeln(\'y=\', y(x,n):0:4); readln; end.

Ответ отправил: lamed, Практикант
Ответ отправлен: 26.01.2010, 14:38
Номер ответа: 258966

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258966 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Отвечает amnick, 8-й класс :
Здравствуйте, pascalnew.

В Вашем вопросе две существенно разных задачи. В приложении приведено решение второй — вычисление периметра. Программа вычисляет периметр четырехугольника, координаты вершин которого вводятся с клавиатуры (направление обхода вершин безразлично). Для квадрата достаточно было бы вычислить длину одной стороны и умножить на 4. Но надо было бы добавить проверку, что введенный четырехугольник — действительно квадрат. Такие тонкости в условии не оговариваются, поэтому я ограничился вычислением периметра четырехугольника.

Программа проверена в Borland Pascal 7.0.
При наличии вопросов или необходимости уточнений, обращайтесь в мини-форум.

Успехов!

Приложение:
{ вычисление периметра четырехугольника } program _176300; type t_point = record x, y: real; end; t_quadangle = array [1..4] of t_point; function perimeter( var q: t_quadangle ) : real; var i, j : integer; dx, dy, p : real; begin p := 0; for i := 1 to 4 do begin if i = 4 then j := 1 else j := i+1; dx := q[j].x - q[i].x; dy := q[j].y - q[i].y; p := p + sqrt( dx*dx + dy*dy ); end; perimeter := p; end; var q : t_quadangle; i : integer; begin writeln( \'Введите пары координат (x,y) для каждой вершины через пробел:\' ); for i := 1 to 4 do begin write( \'Вершина[\', i, \'] = \' ); with q[i] do readln( x, y ); end; writeln( \'Периметр = \', perimeter( q )); end.

Ответ отправил: amnick, 8-й класс
Ответ отправлен: 26.01.2010, 15:52
Номер ответа: 258971

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258971 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »

Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.

Полный список номеров »

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

© 2001-2010, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2010.6.14 от 23.01.2010

В избранное