Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G

@adlet · Регистрация: 25.05.2014

Студворк — интернет-сервис помощи студентам

создать файл F,компонентами которого являются элементы массива M,переписать в файл G все компоненты которые меньше 5,прочитать файл G

@JokeR.BY · 26.05.2014, 00:06

Pascal

const
  n = 50;
 
var
  m : array[0..n-1] of ShortInt;
  f, g : Text;
  temp : ShortInt;
  i : Byte;
 
begin
  Assign(f, 'f'); ReWrite(f); //открываем f на перезапись
  Randomize;
  for i := 0 to n-1 do
  begin
    m[i] := Random(199) - 99;
    WriteLn(f, m[i]:3); //пишем в f
  end;
  Close(f); Reset(f); //переоткрываем f
  Assign(g, 'g'); ReWrite(g); //открываем g на перезапись
  while not Eof(f) do //до конца файла (пока не конец файла)
  begin
    ReadLn(f, temp); //читаем строку в f
    if (temp < 5) then
      WriteLn(g, temp:3); //записываем в g, если подходит
  end;
  Close(f); Close(g); Reset(g); //закрываем f, переоткрываем g
  while not Eof(g) do
    ReadLn(g, temp); //читаем g построчно
  Close(g);
end.

@adlet 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 30
		1
	Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G 25.05.2014, 23:06. Показов 2498. Ответов 1 Метки нет (Все метки) создать файл F,компонентами которого являются элементы массива M,переписать в файл G все компоненты которые меньше 5,прочитать файл G 0

Опции темы

Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G

Решение