Вопрос по информатике:
Даны целые числа t1,...,ti,...,tn . Имеются ли в последовательности: два идущих подряд нулевых члена; три идущих подряд отрицательных члена?
Привести алгоритм в виде блок-схемы и на алгоритмическом языке
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.05.2015 06:31
- Информатика
- remove_red_eye 10646
- thumb_up 49
Ответы и объяснения 1
В отличии от блок-схемы, в программе использовано формирование членов последовательности посредством генератора случайных чисел.
Если нужен ввод с клавиатуры, достаточно удалить randomize и заменить
строку t:=Random(19)-9; { случайное значение на [-9;9] } на Read(t);
var
i,n,t,c0,cn:integer;
NoEnd:boolean;
begin
Randomize;
Write('Предельное количество членов последовательности: ');
Read(n);
c0:=0; cn:=0;
i:=1; NoEnd:=True;
Writeln('Члены последовательности');
while (i<=n) and NoEnd do begin
t:=Random(19)-9; { случайное значение на [-9;9] }
Write(t:3);
if t=0 then begin if c0<2 then Inc(c0) end
else begin
if c02 then c0:=0;
if t<0 then begin if cn<3 then Inc(cn) end
else if cn3 then cn:=0
end;
NoEnd:=(c02) or (cn3);
Inc(i)
end;
Writeln;
if c0>=2 then Writeln('В последовательности есть два нулевых члена подряд');
if cn>=3 then Writeln('В последовательности есть три отрицательных члена подряд')
end.
Тестовое решение:
Предельное количество членов последовательности: 200
Члены последовательности
3 -9 9 9 0 3 -4 -9 3 -3 8 -1 5 1 -6 -9 5 9 -1 5 -6 -2 -4 -5 -1 -8 7 1 1 -6 -3 2 -8 8 8 3 -2 -4 0 8 5 -1 6 -6 -2 5 4 6 9 3 9 -3 -7 -8 4 -5 5 5 1 -1 5 5 -1 -1 -9 -4 -3 7 2 0 3 0 0
В последовательности есть два нулевых члена подряд
В последовательности есть три отрицательных члена подряд
Блок-схема находится во вложении.
- 18.05.2015 19:15
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.