[PASCAL] записи с вариантами + процедуры

[die_hard]

Всем добрый вечер! Подскажите пожалуйста, как решить следующие две задачи. Вообщем оцените:
1. В молочный магазин привезли сметану:
- развесную с указанием общего веса и цены за 1 кг;
- в упаковке по 250 и 500 г с указанием стоимости упаковки.
Определить:
- общий вес партии товара;
- количество упаковок по 500 г;
- стоимость всех упаковок по 250 г. - задача на записи с вариантами.
2. Разработать функцию, которая отсекает из данного числа с заданным количеством символов N (N высчитывает функция сама) заданное количество цифр (например 3). Причём принимает в качестве параметра опцию, отсекать младшие или старшие разряды. Разработать функцию/процедуру, которая складывает сумму двух трёхзначных чисел. Используя данные функции/процедуры, написать программу, которая складывает числа, у которых количество символов >= 6. - задача на процедуры/функции.
Один авторитетный источник утверждает, что их невозможно решить, другой, что всё прекрасно решается... А вы что скажете?!

[Sazary]

Все прекрасно решается.

Ну, первая - это математика.
По второй:

N высчитывает функция сама

N := 0;
while number >0 do
 begin
 number := number / 10;
 inc(N);
 end;

которая отсекает из данного числа с заданным количеством символов N заданное количество цифр (например 3).

Не сложно. Когда нужно отсекать справа, то просто делите на 10 в степени k (где K - количество отсекаемых цифр). При отсечении слева, нужно взять остаток от деления на 10 ^ (N-k).

[die_hard]

Благодарствую вам, Sazary!
но не могли бы вы дать более конкретные комментарии по поводу первой задачи?

[Sazary]

но не могли бы вы дать более конкретные комментарии по поводу первой задачи?

Ну это зависит от того, как будет выглядеть запись.

Вообще, глядя на то, что нужно определить, складывается ощущение, что берется только второе условие:

- в упаковке по 250 и 500 г с указанием стоимости упаковки.

Т.к. везде идет речь об упаковках.
Согласитесь, что если брать первое условие:

- развесную с указанием общего веса и цены за 1 кг;

то общий вес (который нужно определить) дан изначально.
А на два остальных вопроса:

- количество упаковок по 500 г;
- стоимость всех упаковок по 250 г.

вообще нельзя ответить.
----------------------
Запись может выглядеть как-то так:

upak = record
ves : real; { вес в граммах }
cena : real; { цена за упаковку }
end;

Соответственно, будет массив упаковок.
Чтобы найти общий вес, нужно пройтись по массиву и сложить все поля ves.
Количество упаковок по 500 г - также циклом, увеличивая счетчик, если поле ves = 500.
Ну и со стоимостью всех по 250 тоже проблем нет.

[die_hard]

Спасибо, Sazary!