Подсчитать количество выполнений каждого шага алгоритма

Sandra 2000 · 14.09.2013, 20:32

Дано условие: Подсчитать количество положительных компонентов последовательности хi.
Помогите, пожалуйста, составить правильный или хотя-бы какой-нибудь приблизительный словестно-формульный алгоритм для данного условия, так как сама я не сильна в алгоритмах. И подсчитать количество выполнений каждого шага алгоритма, определить сложность. Буду признательна любой помощи.

Программа есть.

Код:

var x:real;
    n,i,k:integer;
begin
write('Размер последовательности n=');
readln(n);
writeln('Введите ',n,' чисел');
k:=0;
for i:=1 to n do
 begin
  readln(x);
  if x>0 then k:=k+1
 end;
write('Количество положительных=',k);
readln
end.

Николай_С · 14.09.2013, 21:19

А языками владеете?

В первых трех строках вводятся исходные данные - размер и содержание одномерного массива.
В четвертой - обнуляем счетчик К.
Далее идет цикл, в котором перебираем все значения массива и как только срабатывает условие (оператор IF), увеличиваем счетчик на единицу.
Предпоследней строчкой выводим результат.
Последней - ждем пока препод на него налюбуется.
Как-то так...

Vladimir_S · 14.09.2013, 21:39

Цитата:

Сообщение от Николай_С

А языками владеете?

Вообще-то Sandra 2000 - прекрасный программист, и сейчас, по-моему, просто придуривает малость.

Николай_С · 14.09.2013, 22:55

Значит, Sandra 2000 просто любит "прикидываться ветошью".

14.09.2013, 20:32	#1 (permalink)
Sandra 2000 Member Регистрация: 04.10.2012 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Подсчитать количество выполнений каждого шага алгоритма Дано условие: Подсчитать количество положительных компонентов последовательности хi. Помогите, пожалуйста, составить правильный или хотя-бы какой-нибудь приблизительный словестно-формульный алгоритм для данного условия, так как сама я не сильна в алгоритмах. И подсчитать количество выполнений каждого шага алгоритма, определить сложность. Буду признательна любой помощи. Программа есть. Код: var x:real; n,i,k:integer; begin write('Размер последовательности n='); readln(n); writeln('Введите ',n,' чисел'); k:=0; for i:=1 to n do begin readln(x); if x>0 then k:=k+1 end; write('Количество положительных=',k); readln end.

14.09.2013, 21:19	#2 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,301 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	А языками владеете? В первых трех строках вводятся исходные данные - размер и содержание одномерного массива. В четвертой - обнуляем счетчик К. Далее идет цикл, в котором перебираем все значения массива и как только срабатывает условие (оператор IF), увеличиваем счетчик на единицу. Предпоследней строчкой выводим результат. Последней - ждем пока препод на него налюбуется. Как-то так... Последний раз редактировалось Николай_С; 14.09.2013 в 21:25

14.09.2013, 22:55	#4 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,301 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	Значит, Sandra 2000 просто любит "прикидываться ветошью".

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070