Файл F

[n1ce > Kuzia]

Заполнить файл F целыми числами полученными с помощью генератора случайных чисел . Из файла F получить файл G исключив повторные вхождения чисел . Порядок следования чисел сократить.
plz ПОМОГИТЕ с Задачей (завтра сдача)

[Sazary]

Вот вам алгоритм

открываем файл F на запись
цикл по i от 1 до N   // где N - нужное количество чисел
 начало
 число = случайное_число
 пишем_в_файл(F, число)
 конец
закрываем файл F

открываем файл F на чтение
открываем файл G на запись
множество = пустое множество

цикл пока не конец файла F
 начало
 читаем_из_файла(F, число)
 если F не принадлежит множеству множество, то
   начало
   добавляем число в множество
   пишем_в_файл(G, число)
   конец 
 конец

закрываем файл (F)
закрываем файл (G)

[yakimchukav]

Ввести три числа – номера месяцев. Вывести количество дней в каждом месяце. Использовать свою процедуру замены номера месяца на количество дней в нём

[Sazary]

yakimchukav, не пишите в чужих темах.
Также одна задача - одна тема.

Функцию сделайте через обычный case.

function fun(k : integer) : integer;
begin
case k of
 1 : fun := 31;
 2 : fun := 28;
 3 : fun := 31;
 // также с остальными месяцами
 end;
end;

[yakimchukav]

Спасибо! Теперь буду знать!

[aud]

удалено*****