| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Страницы: « 1 2 ... 5 6 7 8 9 ... 123 124 »Показано 91-105 из 1848 сообщений
1758.
Rasskazow
(10.05.2009 15:54)
0  
Ребят мне грозит отчисление помогите по паскалю
В одномерном массиве, состоящем из n целых элементов, вычислить:
1. количество положительных элементов массива
2. сумму элементов массива, расположенных после последнего элемента, равного нулю.
3. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16)
Ответ: http://borlpasc.narod.ru/Boris/RASS.PAS
или вот
CONST
N = 100;
max_el = 40;
max_el2 = max_el div 2;
VAR
i, last_zerou, buf : Integer;
ar: array[1..N] of integer;
count: Integer;
summ_after: Integer;
BEGIN
for i:=1 to N do begin
ar[i] := Random(max_el) - max_el2;
Write(ar[i]:5);
end;
WriteLn;
count := 0;
for i:=1 to N do
if ar[i] > 0 then inc(count);
WriteLn(''Число положительных элементов = '', count);
last_zerou := 0; {номер последнего нуля. Полагаем = 0 - такого быть не может}
for i:= 1 to N do
if ar[i] = 0 then last_zerou := i;
if last_zerou = 0 then WriteLn(''В массиве нет нулевых элементов'')
else
begin
summ_after:=0;
for i:= last_zerou + 1 to N do
summ_after := summ_after + ar[i];
WriteLn(''Сумма элементов после '',last_zerou,'' = '', summ_after);
end;
Write(''Индексы равны степеням 1: '');
{на самом деле только 1 равна 1 в некоторой степени}
writeLn(ar[1]:5);
Write(''Индексы равны степеням 2: '');
i:=2;
repeat
Write(ar[i]:5);
i := i * 2;
until i > N;
WriteLn;
Write(''Индексы равны степеням 4: '');
i:=4;
repeat
Write(ar[i]:5);
i := i * 4;
until i > N;
WriteLn;
Write(''Индексы равны степеням 8: '');
i:=8;
repeat
Write(ar[i]:5);
i := i * 8;
until i > N;
WriteLn;
Write(''Индексы равны степеням 16: '');
i:=16;
repeat
Write(ar[i]:5);
i := i * 16;
until i > N;
WriteLn;
WriteLn;
END.
|
1757.
Влад
(08.05.2009 22:30)
0
Люди, помогите пожалуйста с программой!! Курсач на носу, а проги нет, да и я такие сложные никогда не писал((
Задание: написать программу перевода двух чисел из 16ой СИ в двоичную, выполнение действий сложения и вычитания(в 2ой СИ), и вывод результатов снова в 16ой СИ.
Прим: вещественные числа с фиксированной точкой без знака
исходные данные, результат - шестнадцатеричная СИ;
выполнение действий - двоичный прямой код
|
1756.
Вадим
(05.05.2009 15:25)
0
Ребята помогите пожайлуста написать програму в Паскале
Знаходження правильних послідовностей
Будемо розглядати послідовності круглих, квадратних і фігурних дужок. Серед усіх таких послідовностей виділимо правильні — ті, котрі можуть бути отримані за такими правилами:
1) порожня послідовність правильна;
2) якщо А и В правильні, то й АВ правильна;
3) якщо А правильна, то {А}, [А] і (А) правильні.
Приклад. Послідовності (), [[]], {}, [({})[]()][] - правильні, а послідовності ], )(, (], (}[){] — не є правильними.
Розробити алгоритм і написати програму перевірки за час, що не перевершує константи, помноженої на її довжину, того, що введена з клавіатури послідовность буде правільною.
Заранее спасибо!
|
1755.
Евгений
(04.05.2009 15:05)
0
Добрый Вам день.
Понимаю, что вопрос немного не по теме, но тем не менее...
Не подскажете ли адрес аналогичного ресурса
по BorlandC++.
|
1754.
ivan
(02.05.2009 19:35)
0
ПКЛ - это Правый-Корень-Левый
ЛПК - это Левый-Правый-Корень
Т.е. для дерева а
/
b c
/ /
d e f g
файл ПКЛ выглядит следующим образом: g c f a e b d
А файл ЛПК так: d e b f g c a
|
1753.
ivan
(29.04.2009 22:28)
0
Здравствуйте, помогите пожалуйста написать программу:
"Восстановить бинарное дерево по обходам ПКЛ и ЛПК. Каждый обход задается последовательностью символов, вводимой из текстового файла. Последовательность состоит из ключей вершин, разделенных одним или несколькими пробелами. Ключ вершины – последовательность алфавитно-цифровых символов"
Ответ: Не считаю себя профи в этом вопросе (всех возможных вариантов не знаю), поэтому уточните, что такое "ПКЛ" и "ЛПК".
И еще приведите пример файла, и не пугайте терминами "последовательность алфавитно-цифровых символов"
|
1752.
Катерина
(29.04.2009 21:35)
0
нужно просто написать программу, а как должно выглядеть окно не уточняется, да наверно и не важно как
|
1751.
Крим
(28.04.2009 14:36)
0
Огромное спасибо автору совета "про натуральное число"!!!!
|
1750.
Крим
(28.04.2009 09:42)
0
Здравствуйте, помогите пожалуйста, "Дано натуральное число n (n<=99) Выяснить верно ли, что n равно кубу суммы цифр числа n.
Ответ: Решение с защитой от неправильного ввода и комментариями можно взять здесь:
http://borlpasc.narod.ru/Boris/KRIM.PAS
|
1749.
Nameless
(27.04.2009 14:28)
0
<<Приглашаем Вас пообщаться на различные темы. Программирование, Образование, Любовь и секс>>
нелогично. а висит на главной. ай-яй-яй))
Ответ: Кому как, а сайт ориентирован на студентов
|
1748.
Богдан
(27.04.2009 11:50)
0
Я с телефона в интернете. Это на вашем сайте в разделе Паскаль вроде. Еще вопрос- есть компилятор Паскаль на телефон?
Ответ: Не слышал, но пока не буду утверждать, что нет такого
|
1747.
Катерина
(25.04.2009 22:35)
0
Здравствуйте! Помогите пожалуйста с задачкой:
Нужно составить программу по принципу входа пользователя компьютера в свою учетную запись, производится проверка пароля: если пользователь 1, то пароль "536", если пользователь 2, то пароль "738", вводить пароль до тех пор, пока не будет введён верный или "0", при входе пользователя выводится приветствие.
Заранее Спасибо!
Ответ: Основу написал. Но опишите, как должно ВЫГЛЯДЕТЬ окно?
|
1746.
Богдан
(24.04.2009 18:46)
0
Меня интересуют:
файл turbo.tpl (более совершенный)
Файл graph3
Сборник chr шрифтов и bgi драйверов
Модули для написания игрушек - работа с клавиатурой, палитрой...
Ладно бы исходники Pas или Txt были - а так ничего не прочитаешь... Посмотрите что можно сделать
Ответ: 1) turbo.tpl - это "набор" стандартных модулей, уже откомпилированных. Насчет "усовершенствования" ... - дайте адрес. Я такой не клал. Посмотрю, что так такого
2) набор шрифтов и драйверов. Опять же напишите адрес, некоторые и я выкладывал как приложение к программам
3) graph3 - это очень древний "драйвер" (в старом понимании это слова). На самом деле это набор подпрограмм для работы с такими мониторами, которые ещё включали процессор. Нет никакой необходимости им пользоваться.
4) Модули - тоже напишите, какие интересуют.
|
1745.
Богдан
(24.04.2009 09:49)
0
Клевый сайт! Но где взять инструкции к модулям? Где узнать их функции и процедуры?
Ответ: Не я писал ВСЕ программы и модули. Напишите, что Вас интересует, подскажу
|
1744.
Богдан
(23.04.2009 13:32)
0
Клевый сайт! Ног где инструкции к модулям - какие там процедуры и функции? Разместите пожалуйста
|
|
|
|
