Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Seifer
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 5
#1

Определить количество - Turbo Pascal

18.04.2011, 21:09. Просмотров 344. Ответов 1
Метки нет (Все метки)

Помогите мне решить задачу.
Найти количество положительных и отрицательных элементов в массиве Х. Элементы массива вычисляются по формуле Xi = ((-1)^i )*(i^2 – 5*I +6), где i = 1,2,…,10.
Заранее спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2011, 21:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество (Turbo Pascal):

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
С клавиатуры вводятся N чисел. Составьте программу, которая определяет...

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
1) С клавиатуры вводятся N чисел. Составьте программу, которая определяет...

Определить количество выигрышей, количество проигрышей, количество ничьих
В массиве записаны результаты 20 игр футбольной команды (если игра закончилась...

В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась...

Определить неуспевающих студентов и их количество, отличников и их количество, и средний бал группы
Даны итоги успеваемости по предмету "информатика".Определить неуспевающих...

Множества. Определить количество слов, записанных на латинском языке и количество цифр
Заданный текст, содержащий слова латинским алфавитом и набором цифр. Определить...

1
Qwark
21 / 21 / 21
Регистрация: 28.01.2011
Сообщений: 72
18.04.2011, 23:45 #2
Лучший ответ Сообщение было отмечено Seifer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
x:array[1..100] of integer;
i,k1,k2:integer;
begin
clrscr;
for i:=1 to 10 do
begin
x[i]:=exp(i*ln(-1))*(exp(2*ln(i))-5*i+6);
write(x[i],' ');
end;
writeln;
k1:=0;
k2:=0;
for i:=1 to 10 do
begin
if x[i]>0 then
k1:=k1+1;
if x[i]<0 then
k2:=k2+1;
end;
writeln('Количество положительных чисел: ',k1);
writeln('Количество отрицательных чисел: ',k2);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2011, 23:45
Привет! Вот еще темы с решениями:

Определить количество вопросительных предложений и количество слов в первом предложении.
Создать текстовый файл. Определить количество вопросительных предложений и...

Определить количество амеб через заданное количество часов
Одноклеточная амеба каждые 3 часа делиться на 2 клетки. Определить , сколько...

Определить количество положительных и количество отрицательных элементов последовательности
Задание: Составить программу используя оператор цикла с параметром. Задача:...

Определить количество положительных и количество отрицательных элементов массива
Определить количество положительных и количество отрицательных элементов массива


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

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

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