| ← Май 2012 → | ||||||
|
1
|
2
|
3
|
6
|
|||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 185942: Здравствуйте уважаемые эксперты! Помогите мне написать программу на языке Pascal в среде turbo, которая: написать программу генерации m-последовательностей 0 и 1, удовлетворяющих обоим требованиям: 1)число 1 должно быть не меньше m/2-2; 2)хотя бы две единицы шли подряд. Я не знаю в какую рассылку отправить, ведь эта задача по ди... Здравствуйте уважаемые эксперты! Помогите мне написать программу на языке Pascal в среде turbo, которая:
Дата отправки: 02.05.2012, 01:19 Консультирует Александр Чекменёв {vanger} (Профессор): Здравствуйте, Пополитов Роман Станиславович! Код :
{ Объявляем тип "указатель на слово" }
type pword = ^word;
{ Проверка на первый критерий }
function seqOK1(seq: pword; m: word): boolean;
var
i, sum: word;
begin
sum := 0;
for i := 1 to m do
begin
sum := sum + seq[i];
end;
seqOK1 := sum >= m/2-2;
end;
{ на второй }
function seqOK2(seq: pword; m: word): boolean;
var i: integer;
begin
{ пропускаем слишком короткие последовательности }
if (m < 2) then
begin
seqOK2 := true;
exit;
end;
for i := 1 to m-1 do
begin
if (seq[i] = seq[i+1]) and (seq[i] = 1) then
begin
seqOK2 := true;
exit;
end;
end;
seqOK2 := false;
end;
{ на оба }
function seqOK(seq: pword; m: word): boolean;
begin
seqOK := seqOK1(seq,m) and seqOK2(seq,m);
end;
{ генерируем случайную последовательность }
procedure makeSeq( seq:pword; m: word );
var i: word;
begin
for i := 1 to m do
begin
seq[i] := random(2);
end;
end;
var i: word;
var m: word;
var seq :^ word;
begin
{ инициализируем генератор случайных чисей }
randomize();
write( 'Введите m: ' );
readln( m );
{ выделяем мапять на массив }
GetMem( seq, m * sizeof(word) );
{ теперь seq указывает на начало области памяти, хранящей массив }
repeat
makeSeq( seq, m ); // генерируем последовательность
until seqOK(seq, m); // пока она не станет достаточно хороша
{ Вывод последовательности }
for i := 1 to m do
begin
write( seq[i] );
end;
readln;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
