Вопрос № 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-радиус вписанной окружности. В зависимости от введённого числа выдать результат вычисления.
Отвечает: 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