MUruZ MU Online Forum - Помогите Форумчани)

MUruZ MU Online Forum (http://muruz.ru/forum/index.php)

- Общий (http://muruz.ru/forum/forumdisplay.php?f=13)

- - Помогите Форумчани) (http://muruz.ru/forum/showthread.php?t=18769)

Rigard

11.03.2010 15:12

Ну вообшем кто шарить в паскале помогите плз написать прогу) я в паскале дуб по алгоритму)

Построение задачи:
Вводится последовательность из N чисел. Определить, является ли последовательность знакопеременной

Через цикл While

Marlboro

12.03.2010 13:43

Код:

 ****

var

m: array [0..N - 1] of integer;

i: integer;

Is: boolean;

begin

i := 0;

Is := true;

while (i <= N - 2) do

begin

if (m[i] * m[i + 1] >= 0) then

begin

Is := false;

break;

end;

end;

if Is then

writeln('Является')

else

writeln('Не является');

end.

Вроде так)

MUTABOR

12.03.2010 13:45

Цитата:

Ох уж это программирование :-D

Я давал $ чтобы мне все решали

Rigard

12.03.2010 14:44

надо через while зделать ( без использывания массивов) вот я понять немогу как делать)) через массив уже пытался здать)) но всеравно спс за помощь!

Virgil

12.03.2010 22:05

только если натурой отдашь - напишу 8-)

-=GrandSoulMasteR=-

19.03.2010 07:02

Вот непойму только одного. Он мне пишет N Неизвестный индификатор (в АБС паскале)

Текущее время: 05:58. Часовой пояс GMT +3.