Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
AlexVA
3 / 3 / 6
Регистрация: 12.10.2012
Сообщений: 12
1

Составить функцию с возвращающим значением типа boolean, которая определит является ли массив знакочередующимся

02.12.2012, 09:50. Просмотров 394. Ответов 1
Метки нет (Все метки)

Задан одномерный целочисленный массив A(n), составить функцию с возвращающим значением типа boolean, которая определит является ли массив знакочередующимся.

Поправьте пожалуйста.
Заранее спасибо)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
.......
Const emin = 1; emax = 100
 
Function z5(a:array [emin..emax] of integer; n:byte):boolean;
var i:byte; b:boolean;
begin
    
    b:=true;
    i:=2;
    while (a[i] > 0) and (a[i+1] < 0) and (a[i-1] < 0) (i <= n-1) do
        i:=i+1;
    if (a[i] < 0) and (a[i+1] > 0) then
        b:=false;
    if not b then begin
        i:=2;
        while (a[i] < 0) and (a[i+1] > 0) (a[i-1] > 0) and (i <= n-1) do
            i:=i+1;
        if (a[i] < 0) and (a[i+1] > 0)  and (a[i-1] > 0) then
            b:=true
        else
            b:=false;
    end;
    z5:=b;
end;
.......
Добавлено через 2 часа 55 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function z5(a: mas; n: byte): boolean;
var
    i: byte; b: boolean;
begin
    
    b := true;
    for i := emin + 1 to n - 1 do 
    begin
        if (a[i] < 0) and (a[i - 1] > 0) and (a[i + 1] > 0) then
            continue
        else
        if (a[i] > 0) and (a[i - 1] < 0) and (a[i + 1] < 0) then
            continue
        else begin
            b := false;
            break;
        end;
    end;
    z5 := b;
end;
Проблема решена!
Тему можно закрывать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 09:50
Ответы с готовыми решениями:

Составить программу, которая определит коды первых букв вашего имени и фамилии
составить программу, которая определит коды первых букв вашего имени и фамилии

Дан массив B, состоящий из 10 элементов типа Boolean. Вывести на экран индексы элементов, типа False.
Дан массив B, состоящий из 10 элементов типа Boolean. Вывести на экран индексы...

Создать и вывести массив типа boolean
Создать и вывести одномерный массив из 10 элементов типа boolean

Нужно составить программу которая определит, имеется ли в слове буква "Е"
Нужно составить программу которая определит, имеется ли в слове буква &quot;Е&quot;, то...

Напишите рекурсивную функцию, которая определит, является ли заданное натуральное число первичным.
С++. Напишите рекурсивную функцию, которая определит, является ли заданное...

1
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
02.12.2012, 09:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
Const emin = 1; emax = 100;
type 
  massiv = array [emin..emax] of integer;
 
Function z5(var a:massiv; n:byte):boolean;
var i:byte;
begin
    z5:=true;
    for i:=2 to n do if a[i-1]*a[i]>0 then z5:=false;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 09:54

Нужно написать рекурсивную функцию, которая определит - является ли симметричной часть строки от n, до z
Нужно написать рекурсивную функцию, которая определит - является ли...

Составить программу, которая определит, является треугольник равносторонним, равнобедренным или разносторонним
треугольник задан координатами своих вершин на плоскости. Составить программу,...

Описать, логическую функцию Is_letter(c), которая определит , является ли некий произвольный символ с одной из
Описать, логическую функцию Is_letter(c), которая определит , является ли некий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru