Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
kolya9
0 / 0 / 0
Регистрация: 07.04.2010
Сообщений: 22
#1

Вычислить произведение отрицательных чисел - Turbo Pascal

18.05.2010, 00:18. Просмотров 397. Ответов 1
Метки нет (Все метки)

Пускай на диске есть файл 'zadanie1.pas', состоящий из 10 целых чисел (записать через пробел). Вычислить произведение отрицательных чисел
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2010, 00:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить произведение отрицательных чисел (Turbo Pascal):

Вычислить произведение отрицательных чисел в последовательности. - Turbo Pascal
Дана последовательность из n целых чисел.вычислить произведение отрицательных чисел в последовательности.

Вычислить сумму модулей отрицательных чисел и произведение положительных элементов матрицы, а также количество нулей. - Turbo Pascal
Дана матрица PS(3*5), содержащая положительные, отрицательные числа и нули. Вычислить сумму модулей отрицательных чисел и произведение...

Вычислить произведение отрицательных элементов и произведение положительных, и сравнить их - Turbo Pascal
Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. В...

Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. - Turbo Pascal
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из произведение не превысит N - Turbo Pascal
Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из произвеение не премысит некоторого числа N, где N -...

Вычислить произведение отрицательных элементов массива - Turbo Pascal
В одномерном массиве Z , состоящий из N целых элементов , вычислить : a ) произведение отрицательных элементов ; b ) количество...

1
Mиxaил
533 / 438 / 37
Регистрация: 10.12.2009
Сообщений: 1,857
18.05.2010, 00:54 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  mult, a: integer;
 
begin
  assign(input, 'zadanie1.txt');   {с этого файла ('zadanie1.pas') ты не сможешь прочитать}
  reset(input);
  mult := 1;
  while not eof(input) do
  begin
    read(a);
    if a < 0 then mult := mult * a;
  end;
  close(input);
  writeln('произведение отрицательных чисел файла: ', mult);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2010, 00:54
Привет! Вот еще темы с ответами:

Вычислить произведение отрицательных элементов массива - Turbo Pascal
Задача №1 В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов массива; 2)...

Найти произведение отрицательных чисел - Turbo Pascal
Дана последовательность из N целых чисел. Числа вводятся с помощью генератора случайных чисел в диапазоне от -5 до 10. Найти произведение...

Вычислить произведение и количество отрицательных элементов массивов - Turbo Pascal
Вычислить произведение и количество отрицательных элементов массивов А(N),B(M),C(K) С помощью подпрограмм

Вычислить произведение сумм отрицательных элементов массивов - Turbo Pascal
задано массив x,y,z: x=(0.2,-7,5.2,165,-430,0,195,63.7,634,0.02); y=(-1.1,222,43.5,-44,0.53,555,-3.3,0,0.025,10,0,-5); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru