В файл g поместить произведение компонентов файла f и вывести на экран

@nANUK fURTADO · Регистрация: 26.12.2013

Товарищи Программисты, прошу вашей помощи.

Записать в файл последовательного доступа N действительных чисел. В файл g поместить произведение компонентов файла f и вывести на экран.

Заранее огромное спасибо!

@CodeR · 03.06.2014, 08:55

Pascal

Var f,g:text;
    i,n:byte;
    m,pr:real;
    ch:char;
Begin
    write('N: ');readln(n);
    Assign(f,'in.txt');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=random*10-5;
      write(f,m,' ');
      write(m:6:2);
    End;
    writeln;
    Close(f);Reset(f);
    pr:=1;
    While not Eof(f) do
    Begin
      read(f,m);
      read(f,ch);
      pr:=pr*m;
    End;
    Assign(g,'out.txt');Rewrite(g);
    write(g,pr);
    Close(g);Reset(g);
    read(g,m);
    writeln('Произведение = ',m:0:2);
    Close(f);Close(g);
    readln;
End.

@nANUK fURTADO 0 / 0 / 0 Регистрация: 26.12.2013 Сообщений: 7
		1
	В файл g поместить произведение компонентов файла f и вывести на экран 03.06.2014, 08:26. Показов 1156. Ответов 1 Метки нет (Все метки) Товарищи Программисты, прошу вашей помощи. Записать в файл последовательного доступа N действительных чисел. В файл g поместить произведение компонентов файла f и вывести на экран. Заранее огромное спасибо! 0

Опции темы

В файл g поместить произведение компонентов файла f и вывести на экран

Решение