Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
AlexVA
3 / 3 / 1
Регистрация: 12.10.2012
Сообщений: 12
#1

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

02.12.2012, 09:50. Просмотров 363. Ответов 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):

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

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

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

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

Нужно написать рекурсивную функцию, которая определит - является ли симметричной часть строки от n, до z - C++
Нужно написать рекурсивную функцию, которая определит - является ли симметричной часть строки от n, до z. Выдает ошибку: #include...

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

1
Zhexon
312 / 271 / 89
Регистрация: 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), которая определит , является ли некий произвольный символ с одной из - Free Pascal
Описать, логическую функцию Is_letter(c), которая определит , является ли некий произвольный символ с одной из строчных букв русского...

Проверить является ли массив знакочередующимся - C++
Добрый день! у меня возникает серия вопросов,по условию данной задачи &quot;Проверить,состоит ли массив из знаков чередующихся элементов(к...

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

Определить, является ли заданный массив знакочередующимся - Free Pascal
Написать программу, определяющую является ли заданный массив знакочередующимся. pascal Добавлено через 5 минут Помогите пожалуйста,...


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

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

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