Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл

@HDinar · Регистрация: 08.11.2012

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

Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл.

@pryda · 09.11.2012, 00:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n,p:real;
    f1,f2:text;
begin
assign(f1,'data.txt');
assign(f2,'result.txt');
reset(f1);
rewrite(f2);
p:=1;
while not eof(f1) do
begin
  read(f1,n);
  if n<0 then 
  begin
    p:=p*n;
    writeln(f2,n);
  end;
end;
writeln('Произведение эл-тов <0:',p:4:2);
close(f1);
close(f2);
end.

@HDinar · 09.11.2012, 09:56 **[ТС]**

Ошибка, не открывает

@HDinar · 06.12.2012, 20:06 **[ТС]**

помогите ребята!!

Новые блоги и статьи Все статьи Все блоги /
Хак домофона или как открыть дверь по номеру yariko 25.06.2025 Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .	Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .
WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .	Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .	Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .

@HDinar 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 12

	Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл 08.11.2012, 19:34. Показов 1518. Ответов 3 Метки pascal произведение компонент файла, pascal произведение отрицательных компонент файла, pascal файл вещественных чисел, произведение компонент файла, произведение отрицательных компонент файла, файл вещественных чисел (Все метки) Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл. 0

@HDinar 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 12
	09.11.2012, 09:56 [ТС]
	Ошибка, не открывает 0

@HDinar 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 12
	06.12.2012, 20:06 [ТС]
	помогите ребята!! 0

Опции темы