помогите , плиз, срочно создать выборку из отрезка ... Опции

[atella]

есть две задачи, к понедельнику срочно нужно ребенку решение, если невозможно быстро написать программу, то хотя бы алгоритм подскажите :


2. Заполнить файл действительными числами из отрезка [-100;100]. Переписать в другой файл те числа, целая часть которых является четным числом.
Определить число элементов первого и второго файлов. Вывести на печать все элементы исходного файла; отрицательные элементы исходного файла; все элементы
второго файла.




Сообщение отредактировано: atella - 24.11.2007 14:28

[volvo]

Заполнить файл действительными числами из отрезка [-100;100]

- поскольку Random без параметров генерирует случайное число на интервале 0 .. 1, то (2*Random - 1) сгенерирует его уже в интервале -1 .. 1, ну а чтобы сделать то, что требовалось - надо просто умножить все это на 100...

X := 100*(2*Random - 1);

вот это число и будет записываться в файл...

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

Теперь переоткрываем файл на чтение, пробегаем по нему, пока not EOF(f) и если целая часть - четная, т.е.,

Read(f, X);
if not odd(Trunc(X)) then ... { <--- тогда записываем X во второй файл... }