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

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

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

Выпуск № 582
от 23.02.2008, 07:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 251, Экспертов: 41
В номере:Вопросов: 3, Ответов: 5

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


Вопрос № 123501: здравствуйте уважаемые эксперты, помогите пожалуйста решить данные задачки 1) Составить программу, позволяющую печатать самое короткое слово из произвольного текста, введенного с клавиатуры. 2) Вычислить значение функции, исходные да...
Вопрос № 123502: Здравствуйте подскажите пожалуйста как решить эту задачку по паскалю : Для произвольного числа Х определить, содержит ли оно цифру 1. Если да, заменить каждую из них цифрой 2, полученное число уменьшить на 10. Вывести Х, полученное число и разнос...
Вопрос № 123560: Уважаемые эксперты помогите пожалуйста написать программу на паскале.Окружность на плоскости задается координатами х,у ее центра и радиусом r.Пусть заданы соответствующие характеристики пяти окружностей: (x1,y1,r1),(x2,y2,r2),...,(x5,y5,r5)....

Вопрос № 123.501
здравствуйте уважаемые эксперты, помогите пожалуйста решить данные задачки
1)
Составить программу, позволяющую печатать самое короткое слово из произвольного текста, введенного с клавиатуры.
2)
Вычислить значение функции, исходные данные ввести с клавиатуры. Написать программу, в которой задача вычисления функции оформлена через: а) FUNCTION ; б)PROCEDURE ; Q= (экспонента^x * модуль(c-d)) / ln(b) заранее спасибо! Владимир

Удалена часть вопроса, являющаяся самостоятельным вопросом 123693
-----
∙ Отредактировал: Shapoklak (Академик)
∙ Дата редактирования: 18.02.2008, 17:36
Отправлен: 17.02.2008, 13:07
Вопрос задал: Дебелов Владимир Валентинович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич
Здравствуйте, Дебелов Владимир Валентинович!

В приложении код по 2-ум задачам.
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 20.02.2008, 15:44
Оценка за ответ: 5
Комментарий оценки:
Спасибо огромное а то я с первой сам не справился совсем, просто не мог представить как можно сжимать текст который мы вводим с клавиатуры, думаю теперь я понял =)


Вопрос № 123.502
Здравствуйте подскажите пожалуйста как решить эту задачку по паскалю :
Для произвольного числа Х определить, содержит ли оно цифру 1. Если да, заменить каждую из них цифрой 2, полученное число уменьшить на 10. Вывести Х, полученное число и разность
Отправлен: 17.02.2008, 13:10
Вопрос задал: Дебелов Владимир Валентинович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Дебелов Владимир Валентинович!
Программа в приложении.

Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 17.02.2008, 20:19
Оценка за ответ: 5
Комментарий оценки:
спасибо =)

Отвечает: Шемет Станіслав Васильович
Здравствуйте, Дебелов Владимир Валентинович!
Var
s:string;
I,J,X:integer;
begin
Readln(x);
Str(s,x);
for i:=1 to length(s) do
If s[i]='1' then
S[i]:='2';
Val(s,j,i);
J:=j-10;
Writeln('x= ',x);
Writeln('Новое число ',j);
Writeln('Pазность ',x-j);
Readln
end
---------
Любовь может все.
Ответ отправил: Шемет Станіслав Васильович (статус: 4-ый класс)
Ответ отправлен: 17.02.2008, 22:17
Оценка за ответ: 5
Комментарий оценки:
спасибо большое данная программа мне кажется более простой вы мне очень помогли своим ответом.


Вопрос № 123.560
Уважаемые эксперты помогите пожалуйста написать программу на паскале.Окружность на плоскости задается координатами х,у ее центра и радиусом r.Пусть заданы соответствующие характеристики пяти окружностей: (x1,y1,r1),(x2,y2,r2),...,(x5,y5,r5).

Приложение:

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

Отвечает: Артём1983
!!!
Здравствуйте, AlexJan87!
Алгоритм решения такой:
--Ищем длину между двумя соседними окружностями
--Сравниваем эту длину и сумму радиусов этих окружнистей
--Я использовал записи. Первые три поля координаты окружности и её радиус четвёртое поле это флаг на то пересечена окружность другой или нет.
Смотрите код программы в приложении.

Для экзаменаторов: программа не выводит ответ - проблематично проверить правильность ее выполнения...
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал)
∙ Дата редактирования: 21.02.2008, 20:41

Приложение:

---------
Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 9-ый класс)
Ответ отправлен: 18.02.2008, 00:11
Оценка за ответ: 5
Комментарий оценки:
БОЛЬШОЕ СПАСИБО!!!

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, AlexJan87!
В приложении мой вариант решения.
Считываются координаты и радиус для каждой окружности и заносятся в массив. Для каждой из окружностей в массиве проверяется расстояние от ее центра до центра всех остальных: если расстояние между центрами больше суммы радиусов, значит данные окружности не имеют общих точек.

Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 21.02.2008, 19:17


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

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

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


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

В избранное