Проверка массивов на упорядоченность.

@HalSaw · Регистрация: 18.12.2009

Студворк — интернет-сервис помощи студентам

1)Const n=20;
Type vector= array[1..n] of integer;
Вычислить для вектора x:
true, если элементы массива x упорядочены строго по возрастанию, false в противном случае
for i:=1 to n do
if (x[i]>x[i+1]) then t:=false else t:=true; Незнаю в чем ошибка...
2)Текст задан последовательностью литер, за которыми идет '.' .
Написать программу, которая определяет выполнено ли следующее условие:
1-В тексте больше строчных английских букв, чем прописных английских букв.
2-Все английские буквы, входящие в текст, упорядочены по возрастанию.

Помогите пожалуйста

@Gorev · 18.12.2009, 14:37

у тебя t когого типа, если не boolean, то неправильно

@HalSaw · 18.12.2009, 14:51 **[ТС]**

Сообщение от Gorev

у тебя t когого типа, если не boolean, то неправильно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const n=5;
type vector=array[1..n] of integer;
var i:integer;
x:vector;
t:boolean;
begin
for i:= 1 to n do readln (x[i]);
for i:=1 to n do writeln(x[i]:3);
i:=1;
for i:=1 to n do
if (x[i]>x[i+1]) then t:=false else t:=true;
writeln(t);
readln
end.

@Gorev · 18.12.2009, 14:59

вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const n=5;
type vector=array[1..n] of integer;
var i:integer;
x:vector;
t:boolean;
begin
for i:= 1 to n do readln (x[i]);
for i:=1 to n do writeln(x[i]:3);
i:=1;
for i:=1 to n do
if (x[i]>x[i+1]) then writeln('false') else writeln('true');
writeln(t);
readln
end.

@HalSaw · 18.12.2009, 15:19 **[ТС]**

Тогда какой смысл от булиана?
Проблема вот в чем... я и раньше пробывал проверять так, но вот с твоими тру и фолсами,к примеру...
Вводим массив 12345
Он проверяет и выдает- ttttf из-за последнего f все косячится. Я так понимаю, сбой из-за того, что к индексу конечного элемента нельзя прибавить 1?

Добавлено через 14 минут
i:=5;
for i:=1 to n do
if (x[i]>x[i-1]) then t:=true else t:=false;
Догадался)
Если можно, помогите еще со вторым пунктом моего первого сообщения... с символьными массивами беда )

@Puporev · 18.12.2009, 15:20

Pascal
1
2
for i:=1 to n-1 do
if (x[i]>x[i+1]) then writeln('false') else writeln('true');

или

Pascal
1
2
for i:=2 to n do
if (x[i]<x[-+1]) then writeln('false') else writeln('true');

@HalSaw · 18.12.2009, 15:29 **[ТС]**

Это я решил, но все равно спасибо! )
Осталось это:
2)Текст задан последовательностью литер, за которыми идет '.' .
Написать программу, которая определяет выполнено ли следующее условие:
1-В тексте больше строчных английских букв, чем прописных английских букв.
2-Все английские буквы, входящие в текст, упорядочены по возрастанию.
З.Ы. 1,2- это разные программы

@unick12345 · 18.12.2009, 15:44

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program test;
var s:string;i,b,m:integer;
begin
readln(s);
m:=0; b:=0;
for i:=1 to length(s) do
if upcase(s[i])=s[i] then inc(b) else inc(m);
if m>b then writeln('malenikih') else
if m=b then writeln('ravno') else
writeln('bolishih');
readln;
end.

2.

Pascal
1
2
3
4
5
6
7
8
9
10
program test;
var s:string; i:integer;
begin
readln(s);
for i:=2 to length(s) do
if s[i]<s[i-1] then break;
if i=length(s) then writeln('pravilino')
else writeln('nepravilino');
readln;
end.

15.11.2010, 17:48

Не могу написать следующую программу, кто знает как помогите.....
Текст задан последовательностью литер, за которыми идет '.' .
Написать программу, которая определяет выполнено ли следующее условие:Текст содержит только одну английскую букву, причем она последняя.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117

	Проверка массивов на упорядоченность. 18.12.2009, 14:31. Показов 4683. Ответов 8 Метки нет (Все метки) 1)Const n=20; Type vector= array[1..n] of integer; Вычислить для вектора x: true, если элементы массива x упорядочены строго по возрастанию, false в противном случае for i:=1 to n do if (x[i]>x[i+1]) then t:=false else t:=true; Незнаю в чем ошибка... 2)Текст задан последовательностью литер, за которыми идет '.' . Написать программу, которая определяет выполнено ли следующее условие: 1-В тексте больше строчных английских букв, чем прописных английских букв. 2-Все английские буквы, входящие в текст, упорядочены по возрастанию. Помогите пожалуйста 0

@Gorev 135 / 132 / 30 Регистрация: 08.12.2009 Сообщений: 565 Записей в блоге: 3
	18.12.2009, 14:37
	у тебя t когого типа, если не boolean, то неправильно 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	18.12.2009, 15:19 [ТС]
	Тогда какой смысл от булиана? Проблема вот в чем... я и раньше пробывал проверять так, но вот с твоими тру и фолсами,к примеру... Вводим массив 12345 Он проверяет и выдает- ttttf из-за последнего f все косячится. Я так понимаю, сбой из-за того, что к индексу конечного элемента нельзя прибавить 1? Добавлено через 14 минут i:=5; for i:=1 to n do if (x[i]>x[i-1]) then t:=true else t:=false; Догадался) Если можно, помогите еще со вторым пунктом моего первого сообщения... с символьными массивами беда ) 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	18.12.2009, 15:29 [ТС]
	Это я решил, но все равно спасибо! ) Осталось это: 2)Текст задан последовательностью литер, за которыми идет '.' . Написать программу, которая определяет выполнено ли следующее условие: 1-В тексте больше строчных английских букв, чем прописных английских букв. 2-Все английские буквы, входящие в текст, упорядочены по возрастанию. З.Ы. 1,2- это разные программы 0

CyberDevil
	15.11.2010, 17:48
	Не могу написать следующую программу, кто знает как помогите..... Текст задан последовательностью литер, за которыми идет '.' . Написать программу, которая определяет выполнено ли следующее условие:Текст содержит только одну английскую букву, причем она последняя.