Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Folayt
1 / 2 / 7
Регистрация: 25.10.2012
Сообщений: 112
1

Подсчёт произведения и количества элементов линейной таблицы

18.12.2012, 21:53. Просмотров 284. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program chislo;
var
b:array [1..18] of real;
j,k : integer;
p:real;
begin
for j:=1 to 18 do begin
writeln ('b[j]');
readln (b[j]);
end;
p:=1; k:=0;
for j:=1 to 18 do begin
if (-2<=b[j]) and (b[j]<2) then begin
p:=p*b[j];
k:=k+1;
end;
writeln ('proizvedenie=',p:2:2,' ','kolichesyvo=',k);
end;
end.
Ребята помогите срочно , не могу найти ошибку почему не считает количество и произведение???

Добавлено через 3 минуты
Составить программу для подсчёта произведения и количества элементов линейной таблицы В, состоящей из 18 вещественных чисел, удовлетворяющих условию .
ВОТ САМА ЗАДАЧА

Добавлено через 5 минут
Ребята ну очень срочно нужно!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2012, 21:53
Ответы с готовыми решениями:

Подсчёт количества положительных элементов квадратной таблицы
Составить программу для подсчёта количества положительных элементов квадратной...

Подсчёт количества нечетных элементов, расположенных выше побочной диагонали
Задание: Дана целая матрица (N,N). Составить программу подсчёта количества...

Подсчёт количества строк в текстовом файле
Создать текстовый файл с произвольным текстом и через меню предусмотреть...

Подсчёт количества введенной буквы в каждом слове
дан одномерный массив, состоящий из слов. Подсчитать сколько раз в каждом слове...

Рекурсивная функция: подсчёт количества цифр в строке
помогите описать рекурсивную функцию подсчёта количества цифр в строке

1
Alkatrazz
48 / 48 / 49
Регистрация: 13.10.2011
Сообщений: 159
18.12.2012, 22:09 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var
b:array [1..18] of real;
j,k:integer;
p:real;
begin
for j:=1 to 18 do begin
write ('b[',j,']= ');read(b[j])
end;
p:=1;k:=0;
for j:=1 to 18 do begin
if (b[j]<2) and (b[j]>-2) then begin p:=p*b[j];k:=k+1;end;
end;
writeln ('p=',p:2:3);
writeln ('k=',k);
readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 22:09

Подсчёт количества пробелов и замена буквы на запятую
Дан текст состоящий из слов разделённый пробелами. Подсчитать количество...

Числа Фибоначчи: подсчёт количества n-значных чисел
Всем привет!!! Плиз помогите с прогой разобраться... Задание: Подсчитать...

Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих элементов таблицы
1. Дан одномерный массив. Составьте программу подсчета количества таких i, что...


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

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

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