| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1683.
Дима
(01.12.2008 16:50)
0  
Помогите плз составить программу на TP: Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные числа.
Ответ: Я разместил программу в разделе "Средние программы"
http://borlpasc.narod.ru/progprost.htm
под номером 70
|
1682.
Дмитрий
(28.11.2008 20:40)
0
Очень хотелось бы мониторинг скачиваний... Заходить сюда, смотреть какие-нибудь новости... А затем глянуть на мониторинг и погордиться чуть-чуть: "Во как мою программу скачивают!"
P.S. Немногие сайты удостаиваются чести попасть в список моих закладок, а этот сайт там уже давно.
Ответ: Это потребует переделок, да и на Народе могут возникнуть проблемы ....
Изучить вопрос надо
|
1681.
Константин
(28.11.2008 01:58)
0
Ещё раз, огромное спасибо!!! Разобрался, подогнал под своё задание. Всё работает!
|
1680.
Константин
(28.11.2008 00:05)
0
Большое, человеческое спасибо! Буду разбираться.
Удачи.
|
1679.
Константин
(27.11.2008 17:40)
0
Здравствуйте. Помогите, если не трудно, с заданием: "Составить программу на Turbo Pascal для сортировки записей типизированного файла".
Заранее, спасибо!
Ответ: Я разместил программу в разделе "Средние программы"
http://borlpasc.narod.ru/progcredn.htm
под номером 92
Прямая ссылка:
http://borlpasc.narod.ru/Boris/SORT1.PAS
|
1678.
Никита
(26.11.2008 10:12)
0
Еще раз здравствуйте.:)очень вас прошу доделать задачу побыстрее...а то уже надо показать. Пожалуйста:):)
Ответ: Наконец-то удалось приступить - занимаюсь математикой - для такой задачи она нужна.
|
1677.
AlexLAN
(25.11.2008 23:11)
0
Очень помог учебник! отличный сайт! Все очень понятно и доступно. Авторам мое почтение.
|
1676.
Даша
(22.11.2008 18:46)
0
Здравствуйте!Очень нужна Ваша помощь.Помогите решить. Задачи вроде не трудные,но че то не получается.Извините что много.Заранее спасибо.
1.Среди членов последовательности 1,1+n ,1+2n ,1+3n ,... найти и вывести первое число большее М
2.Дано натуральное число. Найти сумму цифр этого числа. Верно ли что число начинается и заканчивается одной и той же цифрой
3.Найти все трехзначные числа, такие что сумма цифр равна М а само число делится на В.
4. Составить программу, вычисляющую сумму членов геометрической прогрессии до тех пор, пока сумма не превысит заданное число Х. b1=1,q=2,bn=b(n-1)*q (n и n-1 это индексы)
5.Среди всех натуральных двузначных чисел найти и вывести на экран только нечетные и вычислить их количество
6. найти количество нечетных делителей натурального числа, больших К
Ответ: Я не понял последнее 6-е задание: как выбирать натуральное число и K?
А остальные найдете в разделе "Простые программы" под номерами 65 - 69:
http://borlpasc.narod.ru/progprost.htm
|
1675.
Никита
(18.11.2008 20:58)
0
Простите за надоедливость, не буду мешать.и за спам заранее прошу прощения.
Ответ: Это не спам - а простая работа :))
|
1674.
Надя
(17.11.2008 21:23)
0
срочно нужно решение задачи. Помогите пожалуйста : В одномерном массиве F[1..12] вывести на экран номера отрицательных элементов и сумму элементов с индексами, кратными 4
|
1673.
djek
(17.11.2008 18:58)
0
Хороший сайт , много полезной информации
|
1672.
Никита
(17.11.2008 16:56)
0
Жаль что вы не можете сделать мою задачу:(
Ответ: Я все могу, но нужно ещё час - два для отладки. НО НЕТ ИХ!!!
Постараюсь в пятницу или в субботу доделать
|
1671.
Никита
(14.11.2008 07:02)
0
Я вам не надоел?:(
|
1670.
YAriX
(13.11.2008 21:26)
0
Классный сайт! Очень помог мне в практике!
|
1669.
Ольга
(13.11.2008 17:32)
0
Помогите решить задачу. Тут текст есть, а решения нет.Дан целочисленный массив размера n. Проверить чередуются ли в нем четные и нечетные числа.Если да вывести0, иначе номер элемента нарушающий эту последовательность
Ответ: Вот так решается эта задача:
=================
const
n = 20;
max = 50;
VAR
A: array[1..n] of Integer;
i, k: Integer;
BEGIN
{Заполнение случайными числами}
for i:=1 to n do A[i] := random(max)+1; {+1, чтобы не было нуля}
{Покажем}
for i:=1 to n do write(A[i]:5); WriteLn;
{Проверка}
k:=0;
for i:=2 to n do
if (odd(A[i-1]) and odd(A[i])) or
((not odd(A[i-1])) and (not odd(A[i]))) then
begin
k:=i-1;
break; {принудительный выход из цикла}
end;
WriteLn(k);
END.
|
|
|
|
