Просмотр полной версии : Помогите Форумчани)
Ну вообшем кто шарить в паскале помогите плз написать прогу) я в паскале дуб по алгоритму)
Построение задачи:
Вводится последовательность из 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.
Вроде так)
Ну вообшем кто шарить в паскале помогите плз написать прогу) я в паскале дуб по алгоритму)
Построение задачи:
Вводится последовательность из N чисел. Определить, является ли последовательность знакопеременной
Через цикл While
[/b]
Ох уж это программирование :-D
Я давал $ чтобы мне все решали
надо через while зделать ( без использывания массивов) вот я понять немогу как делать)) через массив уже пытался здать)) но всеравно спс за помощь!
только если натурой отдашь - напишу 8-)
-=GrandSoulMasteR=-
19.03.2010, 07:02
Вот непойму только одного. Он мне пишет N Неизвестный индификатор (в АБС паскале)