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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Август 2008   →
 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.943 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

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

Выпуск № 659
от 04.08.2008, 16:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 236, Экспертов: 34
В номере:Вопросов: 1, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 141072: Большая просьба помочь в решении задач:1.составить программу для вычисления: у=а+в-с2 при в>о а-в-√c при в≤0 2.Составить программу для вычисления суммы кубов чисел от 10 до 100. 3. Если длина строки нечетное число,то у...

Вопрос № 141.072
Большая просьба помочь в решении задач:1.составить программу для вычисления:
у=а+в-с2 при в>о
а-в-√c при в≤0
2.Составить программу для вычисления суммы кубов чисел от 10 до 100.
3. Если длина строки нечетное число,то удалить среднюю букву.
4. Найти сумму нечетных делителей натурального числа.
Отправлен: 30.07.2008, 16:06
Вопрос задал: Панин Андрей Владимирович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 7)
Отвечает: SHERRY
Здравствуйте, Панин Андрей Владимирович!
Код:

var
  ch, sum, i: integer;
  {ch - число; sum - сумма делителей; i - переменная-счётчик}
begin
  readln(ch);
  {считываем число с клавиатуры}
  sum:= 0;
  {изначально сумма делителей равна нулю}
  for i:= 
 2   1 to   (   ch     div 2)    do
  {задаём цикл, в котором будем проматривать все числа от 2 до ch/2}
    if (ch mod i = 0) and not Odd(i)
    {если мы встречаем число, удовлетворяющее условию задачи (оно является делителем ch, а также оно чётно)}
     then sum:= sum + i;
    {то к значению переменной sum прибавляем значение переменной i, ибо она будет являться нечётным
  делителем для ch}
  write(sum);
  {выводим результат на экран}
  readln;
end.


О функциях:
1) div - целочисленное деление (остаток опускается);
2) mod - деление чисел, когда опускается целая часть числа (например 5 mod 4 = 25 1 );
3) Odd(x) - функция возвращает TRUE, если число х нечётное, и FALSE в обратном случае (х - целое);
4) not - отрицание.

Best regard's!

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

---------
Самурай без меча подобен самураю с мечом, только без меча..
Ответ отправил: SHERRY (статус: Студент)
Ответ отправлен: 30.07.2008, 19:48
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Панин Андрей Владимирович!

В приложении решение задач 1,2,4.
В задачах использовано свойство логического типа как перечисляемого, т.е. False=0 True=1.
1)строка:
a+abs(b) в условии задачи стоит знак минус для отрицательных чисел, что в итоге даёт плюс
-round(exp(ln(c)*(1+ord(b>0))/(1+ord(b<=0)))) формула возведения числа в любую степень, корень это степень равная 1/2
2)round(exp(ln(a)*3)) возведение числа в куб
4)строка:
оrd((a mod b)=0) если А делится нацело, то будет 1, иначе 0
*(b mod 2) если число нечетное будет 1, иначе 0
*b само число

вопросы задавайте в мини-форум.
Удачи!

Приложение:

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

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор)
Украина, Киев
Тел.: +380979536619
Адрес: Украина г.Киев
----
Ответ отправлен: 31.07.2008, 11:49

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

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

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

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

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


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

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.0 alpha от 21.07.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное