Переписать в файл F все компоненты массива D, которые больше 0,5

@ANЁKA=) · Регистрация: 30.11.2010

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

Создать файл G,компонентами которого являются элементы массива D.Переписать в файл F все компоненты массива D, которые больше 0,5.Прочитать файл F.
D=(0.1;0.2;6.7;0.6;0.3;2.8;0.4).

@Puporev · 30.11.2010, 13:39

Pascal

uses crt;
const d:array[1..7] of real=(0.1, 0.2, 6.7, 0.6, 0.3, 2.8, 0.4);
var f,g:file of real;
    a:real;
    i:byte;
begin
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Массив D:');
for i:=1 to 7 do
 begin
  write(d[i]:4:1);
  write(g,d[i]);
 end;
close(g);
writeln;
writeln;
reset(g);
while not eof(g) do
 begin
  read(g,a);
  if a>0.5 then write(f,a);
 end;
close(f);
close(g);
writeln('Содержание файла F:');
reset(f);
if filesize(f)=0 then write('Файл пустой')
else
 while not eof(f) do
  begin
   read(f,a);
   write(a:4:1);
  end;
close(f);
end.

@ANЁKA=) 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 3
		1
	Переписать в файл F все компоненты массива D, которые больше 0,5 30.11.2010, 13:11. Показов 2164. Ответов 1 Метки нет (Все метки) Создать файл G,компонентами которого являются элементы массива D.Переписать в файл F все компоненты массива D, которые больше 0,5.Прочитать файл F. D=(0.1;0.2;6.7;0.6;0.3;2.8;0.4). 0

	30.11.2010, 13:39

Опции темы

Переписать в файл F все компоненты массива D, которые больше 0,5

Решение