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

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

02.12.2012, 09:50. Просмотров 384. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить функцию с возвращающим значением типа boolean, которая определит является ли массив знакочередующимся (Turbo Pascal):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Проверить является ли массив знакочередующимся
Дан массив X(N). Проверить, является ли он знакочередующимся. Если нет, то...

Проверить является ли массив знакочередующимся
Добрый день! у меня возникает серия вопросов,по условию данной задачи...


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

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

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