Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Помогите пожалуйста с програмкой по теми работа с файлами!
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

ndruhazp



Новичок

Все работает, но нужно чтобы выдавался автоматически на екране после компиляции файл для ввода данных, а так у меня изначально данные сами вводяться!

uses crt;
const N = 20;{кол-во цифр}
var{пусть будут глобальные..}
   F:file of integer;
   i:byte;
   arr:array[1..N] of integer;{массив для наглядности, в него считываем из файла}
   
procedure FileWrite(filename:string);
begin
   assign(f,filename);
   rewrite(f);
   randomize;
   for i:= 1 to N do
       write(f,random(100));
   close(f);
end;

procedure FileRead(filename:string);
begin
   assign(f,filename);
   reset(f);
   writeln(filename,' source:');
   for i:= 1 to N do
   begin
       read(f,arr);
       writeln('arr[',i,'] = ',arr,'; ');
   end;
   close(f);
end;

begin
   clrscr;
   FileWrite('file.txt');{заранее создай этот файл сам}
   FileRead('file.txt');
   
   writeln('Четные:');
   for i:= 1 to N do
       if arr mod 2 = 0 then
           writeln(arr);

   writeln('div 3, not div 7:');
   for i:= 1 to N do
       if (arr mod 3 = 0) and (arr mod 7 <> 0) then
           writeln(arr);
   readkey;
end.



(Сообщение отредактировал ndruhazp 18 апр. 2012 23:14)

Всего сообщений: 6 | Присоединился: апрель 2012 | Отправлено: 18 апр. 2012 23:10 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com