Найти произведение отрицательных элементов файла f

@sani9989 · Регистрация: 01.01.2013

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

помогите пожалуйста решить задачи в делфи очень надо
2.Дан файл f, компоненты которого являются действительными числами. Найти произведение отрицательных элементов файла f.

Одиночка · 01.01.2013, 18:31

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
  f : File Of Extended;
  Mul,x : Extended;
begin
  AssignFile(f,'RealFile.dat');
  Reset(f); //Открываем файл
  Mul:=1;
  While Not(Eof) Do //Пока не конец файла
  Begin
    Read(f,x);
    If x<0 Then Mul:=Mul*x;
  End;
  CloseFile(f); //Закрыли файл
  WriteLn(Mul); //Выдали результат на экран
  ReadLn; //Ожидаем нажатия клавиши пользователем
end.

@Николайчик · 28.12.2014, 23:37

А можно с формой, если не тяжело!!! Буду очень благодарен

Одиночка · 28.12.2014, 23:39

Не по теме:

А завтра устроит? А то уже спать собрался.

@Николайчик · 28.12.2014, 23:52

Сообщение от Одиночка

Не по теме:

А завтра устроит? А то уже спать собрался.

Пожалуйста мне очень надо сегодня.

Одиночка · 29.12.2014, 00:26

Ладно. Вот:
Если чего будет непонятно - набери в Гугле и прочитай.

@Николайчик · 29.12.2014, 01:26

Сообщение от Одиночка

Ладно. Вот:
Если чего будет непонятно - набери в Гугле и прочитай.

Большое вам спасибо!!

@sani9989 0 / 0 / 0 Регистрация: 01.01.2013 Сообщений: 23
		1
	Найти произведение отрицательных элементов файла f 01.01.2013, 14:10. Показов 1268. Ответов 6 Метки нет (Все метки) помогите пожалуйста решить задачи в делфи очень надо 2.Дан файл f, компоненты которого являются действительными числами. Найти произведение отрицательных элементов файла f. 0

@Николайчик 0 / 0 / 1 Регистрация: 23.11.2014 Сообщений: 136
	28.12.2014, 23:37	3
	А можно с формой, если не тяжело!!! Буду очень благодарен 0

Одиночка
	28.12.2014, 23:39 #4
	Не по теме: А завтра устроит? А то уже спать собрался. 0

@Николайчик 0 / 0 / 1 Регистрация: 23.11.2014 Сообщений: 136
	28.12.2014, 23:52	5
	Сообщение от Одиночка Не по теме: А завтра устроит? А то уже спать собрался. Пожалуйста мне очень надо сегодня. 0

@Николайчик 0 / 0 / 1 Регистрация: 23.11.2014 Сообщений: 136
	29.12.2014, 01:26	7
	Сообщение от Одиночка Ладно. Вот: Если чего будет непонятно - набери в Гугле и прочитай. Большое вам спасибо!! 0

Найти произведение отрицательных элементов файла f

Решение