Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Trump12
0 / 0 / 0
Регистрация: 24.05.2019
Сообщений: 11
1

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

24.05.2019, 14:20. Просмотров 316. Ответов 11

Составьте программу, которая определяет кол-во отрицательных, кол-во положительных и кол-во нулей среди введенных чисел. Количество случайных чисел вводится с клавиатуры из диапазона [-100,100]. Delphi 7.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2019, 14:20
Ответы с готовыми решениями:

Запрос к БД Acces для расчета кол-ва лет и кол-ва дней до ДР
Добрый день! Очень нужна помощь! Есть БД в Access: простенькая табличка: ФИО, День рождения В...

Как вычислить кол-во положительных,отрицательных и равных 0 чисел
Попалась такая задачка: С клавиатуры вводится натуральное число N,а затем последоваетльно N...

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

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

Посчитать кол-во отрицательных и кол-во положительных элементов массива. Вывести массив на экран
Дан массив 5x5, заполнен случайными числами от -10 до 10. Посчитать кол-во отрицательных и кол-во...

11
qwertehok
2757 / 2435 / 645
Регистрация: 29.08.2013
Сообщений: 16,486
24.05.2019, 14:44 2
Цитата Сообщение от Trump12 Посмотреть сообщение
Количество случайных чисел вводится с клавиатуры
вводится куда?
какой разделитель между ними?
0
Puporev
Модератор
57276 / 43706 / 30196
Регистрация: 18.05.2008
Сообщений: 104,216
24.05.2019, 14:52 3
Цитата Сообщение от Trump12 Посмотреть сообщение
Количество случайных чисел вводится с клавиатуры из диапазона [-100,100].
Это как? Можно ввести -100 чисел?
0
Trump12
0 / 0 / 0
Регистрация: 24.05.2019
Сообщений: 11
24.05.2019, 14:56  [ТС] 4
Либо в edit через пробел, либо в memo

Добавлено через 39 секунд
диапазон, -100 -99 -98 ... 98 99 100
0
24.05.2019, 14:56
Puporev
Модератор
57276 / 43706 / 30196
Регистрация: 18.05.2008
Сообщений: 104,216
24.05.2019, 15:02 5
Ну и почему Вы сами это не можете сделать? Лень обуяла, халяву нужно?
0
Trump12
0 / 0 / 0
Регистрация: 24.05.2019
Сообщений: 11
24.05.2019, 15:14  [ТС] 6
А как сделать так чтобы каждое число бралось с edit по отдельности
0
Puporev
Модератор
57276 / 43706 / 30196
Регистрация: 18.05.2008
Сообщений: 104,216
24.05.2019, 15:24 7
Не нужно брать с Edit.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
введите n-количество чисел
randomize;
kp:=0;
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  a:=-100+random(201);
  Memo1.Lines.Add(intostr(a));
  if a>0 then inc(kp)
  else if a<0 then inc(ko)
  else inc(kn);
 end;
Выведите kp,ko,kn.
0
Trump12
0 / 0 / 0
Регистрация: 24.05.2019
Сообщений: 11
24.05.2019, 15:35  [ТС] 8
в условиях указано то что надо с клавиатуры вручную писать числа
0
Puporev
Модератор
57276 / 43706 / 30196
Регистрация: 18.05.2008
Сообщений: 104,216
24.05.2019, 15:38 9
С клавиатуры вводится только количество чисел (N), про сами числа ничего не написано.
0
AzAtom
269 / 190 / 74
Регистрация: 15.11.2015
Сообщений: 827
24.05.2019, 16:12 10
Trump12, а что делать, если введённое число выходит за границы -100 .. 100?

Добавлено через 8 минут
Как вариант:

Delphi
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
26
27
28
29
    np, nz, nn: integer; // глобальные переменные
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  np := 0;
  nz := 0;
  nn := 0;
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i: integer;
begin
  if Key = VK_RETURN then begin
    try
      i := StrToInt(Edit1.Text);
      if i > 0 then np := np + 1;
      if i = 0 then nz := nz + 1;
      if i < 0 then nn := nn + 1;
      Label1.Caption := 'Количество положительных чисел: ' + IntToStr(np);
      Label2.Caption := 'Количество нулей: ' + IntToStr(nz);
      Label3.Caption := 'Количество отрицательных чисел: ' + IntToStr(nn);
    except
    end;
    Edit1.Text := '';
  end;
end;
Добавлено через 1 минуту
Вводить по одному числу. После ввода числа нажать Enter.
0
qwertehok
2757 / 2435 / 645
Регистрация: 29.08.2013
Сообщений: 16,486
24.05.2019, 16:18 11
Цитата Сообщение от AzAtom Посмотреть сообщение
Вводить по одному числу
в задании же
Цитата Сообщение от Trump12 Посмотреть сообщение
которая определяет ... среди введенных чисел
0
AzAtom
269 / 190 / 74
Регистрация: 15.11.2015
Сообщений: 827
24.05.2019, 20:20 12
qwertehok, не сказано, что они должны вводиться одной строкой за один раз.

Добавлено через 5 минут
Trump12, в каком виде нужно? Числа вводятся одной строкой через пробел или можно по одному числу за раз?
0
24.05.2019, 20:20
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2019, 20:20

Процедуры и функции: Оформить процедурой вычисление кол-ва отрицательных и кол-ва положительных элементов каждой матрицы
Нужно формить процедурой вычисление кол-ва отрицательных и кол-ва положительных элементов каждой...

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

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


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

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

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