Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на работу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
szuser
Помогите, надо срочно решить

Составить программу, реализующую конкретную схему действий.
В содержимое программы должна входить продцедура формирования исходного фаила нужного числа, вывод на экран элементов фаилов F1 и F2.
Дан фаил целых чисел F1. Получить фаил F2. Найти среднее арифметическое компонентов фаила F1.
В фаил F2 поместить все компоненты большие среднего арифметического.
virt
var sr : longint;
i,k : longint;

begin
read(n);
sr := 0;
for i := 1 to n do
begin
read(F1,k);
sr := sr + k;
end;
sr := sr div n;
for i := 1 to n do
begin
read(F1,k);
if k > sr then write(F2,k,' ');
end;
end.
szuser

var sr : longint;
i,k : longint;

begin
read(n);
sr := 0;
for i := 1 to n do
begin
read(F1,k);
sr := sr + k;
end;
sr := sr div n;
for i := 1 to n do
begin
read(F1,k);
if k > sr then write(F2,k,' ');
end;
end.


Спасибо
Вот только я непонял что такое n?

Как я понял это основная часть кода.
Я покажусь наглым, но нельзя ли всю программу сразу?
klem4
Virt забыл описать ее просто ... добавь в раздел var n : integer; ну а само n - колво чисел видимо ...
szuser
Цитата
Virt забыл описать ее просто ... добавь в раздел var n : integer; ну а само n - колво чисел видимо ...


Я так и сделал, но в программе нету работы с фаилами, а это основное что вызывает у меня трудности (лекции еще небыло)
volvo
Цитата
в программе нету работы с фаилами
blink.gif
А это что?
Цитата
read(F1,k);
Ты как описал эту переменную? Должно быть
Var f1: file of integer;
szuser
Цитата
А это что?

Открытие F1, создание F2 и их закритие
volvo
szuser, ну, открой F1, создай F2 и закрой оба...
Assign(f1, 'in.dat'); Reset(f1);
Assign(f2, 'out.dat'); Rewrite(f2);
...
Close(f1); Close(f2);


а в следуюший раз, если у тебя проблема именно с файлами, то не переписывай полностью задание, а спроси, как открыть/закрыть файл. Ты написал задание, тебе дали АЛГОРИТМ его решения. Задач "под ключ" здесь не решают...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.