Лазарус - Помощь студентам

SnS · 22.01.2014, 23:08

здравствуйте, ув. программисты, подскажите пожалуйста с задачей:Дана последовательность из 50 вещественных чисел. Определить , со скольких положительных чисел она начинается.

type_Oleg · 22.01.2014, 23:12

То есть, если последовательность: 5, 3.14, 0.01, -5, 0, 5, -1 .... , то ответ 3 ?
Подсказываю: используйте while или repeat

SnS · 22.01.2014, 23:17

да именно так))) а можете подсказать как с while записать???

Serge_Bliznykov · 23.01.2014, 00:12

так подойдёт?

Код:

i:=1;
while (i<=50) and (a[i]>0) do Inc(i);
dec(i);
WriteLn(' pozitive numbers at begin = ',i);

SnS · 23.01.2014, 00:15

спасибо, поняла)

22.01.2014, 23:08	#1
SnS Пользователь Регистрация: 09.12.2012 Сообщений: 37	Лазарус здравствуйте, ув. программисты, подскажите пожалуйста с задачей:Дана последовательность из 50 вещественных чисел. Определить , со скольких положительных чисел она начинается.

23.01.2014, 00:12	#4
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	так подойдёт? Код: `i:=1; while (i<=50) and (a[i]>0) do Inc(i); dec(i); WriteLn(' pozitive numbers at begin = ',i);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Лазарус	будущийпрограммист	Помощь студентам	6	10.01.2014 23:11
Лазарус	Ирина Андреевна Пс	Помощь студентам	3	24.08.2013 11:24
Лазарус задачи	Галинка92	Помощь студентам	0	22.01.2013 16:20
Задачи в лазарус 1й курс	sudzumiya	Помощь студентам	18	19.10.2011 18:24
Лазарус	Simply-Art	Qt и кроссплатформенное программирование С/С++	15	03.04.2009 08:23

22.01.2014, 23:12	#2
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	То есть, если последовательность: 5, 3.14, 0.01, -5, 0, 5, -1 .... , то ответ 3 ? Подсказываю: используйте while или repeat

22.01.2014, 23:17	#3
SnS Пользователь Регистрация: 09.12.2012 Сообщений: 37	да именно так))) а можете подсказать как с while записать???

23.01.2014, 00:15	#5
SnS Пользователь Регистрация: 09.12.2012 Сообщений: 37	спасибо, поняла)