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

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


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

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

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

Выпуск № 507
от 04.12.2007, 15:05

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


Вопрос № 111378: Помогите, пожалуйста, написать код на Pascal, используя цикл: 1) Числа Фибоначчи определяются формулами f0=f1=1, fn=fn-1+ fn-2. Вычислить сумму чисел Фибоначчи для заданного N. 2)Найти на отрезке [n;m] нанатуральное число, имеющее н...
Вопрос № 111451: Помогите пожалуйста решить задачки по Pascal. Операторами if, then, else. 1. Составить программу, учёта выхода на пенсию в зависимости от профессии и возраста. 2. Даны два катета прямоугольного треугольника. Остальные элементы треугольника пр...
Вопрос № 111544: Помогите, пожалуйста, составить программу 1) вычисления значений функций F(x) на отрезке х [a;b] с шагом h. Результат представить в виде таблицы, первый столбец которой - значения аргумента, второй - соответствующее значения функции. F(x) = 2 co...

Вопрос № 111.378
Помогите, пожалуйста, написать код на Pascal, используя цикл:

1) Числа Фибоначчи определяются формулами f0=f1=1, fn=fn-1+ fn-2. Вычислить сумму чисел Фибоначчи для заданного N.

2)Найти на отрезке [n;m] нанатуральное число, имеющее наибольшее количество делителей.

3)Счастливым называетеся такой автобусный билет, сумма первых и последних трех цифр равна тринадцати. Подсчитать количество счастливых билетов.

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

Отвечает: Delph
Здравствуйте, Element8!

Представляю Вам программу по расчёту ряда из первых N чисел Фибоначчи и суммы этих чисел. Если что-то непонятно, пишите в минифорум.

Приложение:

---------
Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 28.11.2007, 15:41
Оценка за ответ: 5

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

Смотрите приложение.
Вначале 3-я задача, за ней 2-я.
Удачи!

Приложение:

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

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


Вопрос № 111.451
Помогите пожалуйста решить задачки по Pascal. Операторами if, then, else.
1. Составить программу, учёта выхода на пенсию в зависимости от профессии и возраста.
2. Даны два катета прямоугольного треугольника. Остальные элементы треугольника пронумерованы следующим образом: 1-гипотенуза, 2-площадь, 3-радиус описанной окружности, 4-радиус вписанной окружности. В зависимости от введённого числа выдать результат вычисления.
Отправлен: 28.11.2007, 22:16
Вопрос задал: Макаров Юрий Вадимович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Delph
Здравствуйте, Макаров Юрий Вадимович!

В приложении решение второй Вашей задачи. Формулы для решения я нашёл на сайте:

http://geometr.info/geometriia/treug/prtr.html

Приложение:

---------
Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 29.11.2007, 08:45
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо!!! Если можно решите еще первую задачу пожалуиста?


Вопрос № 111.544
Помогите, пожалуйста, составить программу
1) вычисления значений функций F(x) на отрезке х [a;b] с шагом h. Результат представить в виде таблицы, первый столбец которой - значения аргумента, второй - соответствующее значения функции. F(x) = 2 cos (1/x) + 0,5 (в приложение программа,она не правильно выводит значения и как вывести таблицу,чтобы не смещалась).

2) Найти наименьший номер элемента последовательности, для которого выполняется условие | an - an-1 | < e Вывести на экран этот номер, если е=0.001 an=1/2n2 (n-индексы).

3)Дан числовой ряд и малая величина е=0.001 С точностью е найти сумму ряда, общий член которого задан формулой: an=1/2n +1/3n

4)Составьте программу, которая запрашивает пароль, (например четырехзначное число) до тех пор, пока он не будет правильно введен. ( по идее пока введенный пароль не будет равен заданному делать read и write, но у меня программа при любых введенных цифрах пишет, что пароль правильно введен)

Приложение:

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

Отвечает: sergesus
Здравствуйте, Element8!
Вот ответ на четвертый вопрос
const
key=1234; {Наш задуманный пароль}

var
newkey: double;
begin
repeat
writeln('Vvedite parol');
repeat
readln(newkey);
if newkey<>key then writeln('parol ne vern', ' vedite esho raz') {проверка пароля}

until newkey=key; {если пароль верен, идем дальше и выводим комментарий}
writeln('parol veren', 'pres ENTER'); {вывод комента}
readln;
until newkey=key ;

end.

Приложение:

Ответ отправил: sergesus (статус: 2-ой класс)
Ответ отправлен: 29.11.2007, 17:46
Оценка за ответ: 5

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

Смотрите приложение- все задачи выполняются последовательно.
ps:вопросы по задачам задавайте в этот мини-форум.
Удачи!

Приложение:

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

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


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

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

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

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

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


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


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

В избранное