Вопрос № 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) заранее спасибо! Владимир
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Дебелов Владимир Валентинович!
В приложении код по 2-ум задачам.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 20.02.2008, 15:44 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное а то я с первой сам не справился совсем, просто не мог представить как можно сжимать текст который мы вводим с клавиатуры, думаю теперь я понял =)
Вопрос № 123.502
Здравствуйте подскажите пожалуйста как решить эту задачку по паскалю :
Для произвольного числа Х определить, содержит ли оно цифру 1. Если да, заменить каждую из них цифрой 2, полученное число уменьшить на 10. Вывести Х, полученное число и разность
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Дебелов Владимир Валентинович!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва 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! Алгоритм решения такой: --Ищем длину между двумя соседними окружностями --Сравниваем эту длину и сумму радиусов этих окружнистей --Я использовал записи. Первые три поля координаты окружности и её радиус четвёртое поле это флаг на то пересечена окружность другой или нет. Смотрите код программы в приложении.
Приложение:
--------- Программирование - дело Путное!
Ответ отправил: Артём1983 (статус: 9-ый класс)
Ответ отправлен: 18.02.2008, 00:11 Оценка за ответ: 5 Комментарий оценки: БОЛЬШОЕ СПАСИБО!!!
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, AlexJan87!
В приложении мой вариант решения.
Считываются координаты и радиус для каждой окружности и заносятся в массив. Для каждой из окружностей в массиве проверяется расстояние от ее центра до центра всех остальных: если расстояние между центрами больше суммы радиусов, значит данные окружности не имеют общих точек.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 21.02.2008, 19:17