Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Помогите решить задачки

Автор: All 27.12.2007 23:57

Помогите решить задачки,готовлюсь к экзамену и понимаю то,что ничего не понимаю)
Буду очень благодарен,если уж не за решение,так хоть на ссылку на хороший ресурс...но лучше уж за решение)

1) Структура проекта.
Найти среднее арифметическое значение чётных чисел в промежутке от M до N. Ввод чисел M и N. Вывести M,N и среднее арифметическое число.

2) Элементы программ.
Составить программу для вычисления n! . Ввод n с клавиатуры.

3) Целые типы данных.
Составить программу для подсчёта количества чисел из последовательности 0,3,6,9,12....,чтобы сумма их была >500. Вывести сумму,колличество и последнее число.

4) Тип дата-время.
Составить программу для вычисления суммы,разности,произведения и частного двух чисел. Ввод двух чисел в объект Edit, одновременный вывод суммы,разности,произведения и частного в объект Memo.

5) Простые порядковые типы.
Ввод произвольных символов в строку,организовать вывод в другой объект только те символы,номер которых чётное число.

Автор: Better Kind 28.12.2007 22:59

1. число проверяется на нечетность функцией ODD : boolean;

2 .факториал:

Код
  f:=1;
    for i:=1 to 5 do
    f:=f*i;


3. Каким образом последовательность задана? Если массив, тогда:
Код
While Sum<500 do
sum:=sum+a[i];
inc(i);


4. Уточняй задачу? Толи время, толи числа?

5. Считываем в массив, и аналогично п.1. проверяем четность.