IPB

Здравствуйте, гость ( Вход | Регистрация )

> Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется
DAN
сообщение Aug 24 2005, 14:35
Сообщение #1


Мега постер
******

Группа: Posters
Сообщений: 1,337
Регистрация: 15.8.2005
Из: Москва
Пользователь №: 45



Можете сдесь задавать свои вопросы по этой теме.


--------------------
http://www.fds-net.ru Филиал Дома Студента МГУ
Вернуться к началу страницы
 
+Цитировать сообщение
10 страниц V  « < 8 9 10  
Создать новую тему
Ответов (180 - 198)
AleksXP
сообщение Feb 2 2008, 13:43
Сообщение #181


Продвинутый пользователь
***

Группа: Posters
Сообщений: 236
Регистрация: 17.11.2007
Пользователь №: 11,738



Цитата
Дан двумерный массив, содержит 5 строк и 3 столбца. Элементами массива являются целые числа.
Упорядочить массив по убыванию элементов первого столбца

"Ну пристрелите меня" ну незнаю я как эти массивы решатьььь. Хелп ми.
Вернуться к началу страницы
 
+Цитировать сообщение
skiminoc
сообщение Feb 3 2008, 23:05
Сообщение #182


Новичок
*

Группа: Members
Сообщений: 5
Регистрация: 7.8.2007
Пользователь №: 8,346



В общих чертах решение может выглядеть примерно так:
1.Заводим 4-й столбик, который заполняем числами от 1 до 5, являющимися по сути исходными номерами строк массива.
2. Сортируем 1 столбик по убыванию, причём при каждой перестановке элементов делаем такую-же перестановку элементов дополнительного (индексного) столбика.
3.По окончании процесса переставляем элементы остальных столбиков по порядку номеров в индексном столбике.
Вариант:
Нахер дополнительный столбик. Тупо сортируем первый, каждый раз при перестановке его элементов аналогично переставляя элементы остальных столбиков.
Успехов!
Вернуться к началу страницы
 
+Цитировать сообщение
skiminoc
сообщение Feb 3 2008, 23:16
Сообщение #183


Новичок
*

Группа: Members
Сообщений: 5
Регистрация: 7.8.2007
Пользователь №: 8,346



Цитата(SiMM @ Jan 17 2008, 17:30) *
Недостаточно данных. Если речь идёт о целых числах - то задача решается вообще без сортировки с использованием массива из 201 элемента независимо от N.

- очевидно подсказывающий имел в виду, что при большом количестве входных данных (теоретически - неограниченном) и ограниченном числе значений этих данных бывает проще пересчитать, сколько раз каждое значение встретится во входном потоке данных. Например, числа от -100 до 100 (и "0"!) могут принимать 201 значение. Тогда заполнив в процессе чтения входного файла 201 переменную количеством чтений каждого значения, можно на их основе сформировать выходной файл, содержащий указанные значения в строго отсортированном порядке.
Вернуться к началу страницы
 
+Цитировать сообщение
Kumarr
сообщение Feb 16 2008, 19:23
Сообщение #184


Новичок
*

Группа: Posters
Сообщений: 19
Регистрация: 7.5.2007
Пользователь №: 6,556



помогите плиз прогу в паскале написать: вычислить примерное значение бессконечной суммы с точностью е (эпсилон ~ 2.7183):
1/(1*3)+1/(2*4)+1/(3*5)+...+1/n(n+2)
(помогите хотя бы без эпслилона посчитать сумму)


--------------------

Вернуться к началу страницы
 
+Цитировать сообщение
skiminoc
сообщение Apr 14 2008, 08:25
Сообщение #185


Новичок
*

Группа: Members
Сообщений: 5
Регистрация: 7.8.2007
Пользователь №: 8,346



Кто знает?
Задача:
Треугольник Паскаля
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
.....................
и т.д., каждое число равно сумме чисел над ним.
Для первых рядов тоже справедливо, если положить крайние невидимые числа равны нулю.
найти число нечётных чисел в n-ной строке треугольника, n ограничено 2*10**9
Вернуться к началу страницы
 
+Цитировать сообщение
skiminoc
сообщение Apr 14 2008, 14:06
Сообщение #186


Новичок
*

Группа: Members
Сообщений: 5
Регистрация: 7.8.2007
Пользователь №: 8,346



Аналог темы в форумах На-связи http://forum.na-svyazi.ru/?showtopic=13586
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_foxter_*
сообщение Apr 17 2008, 17:04
Сообщение #187





Guests






Народ помогите плиз сделать прогу хоть на дельфи хоть на паскале.
Дана задача: Составить генератор случайных фраз.
Объясню на примере.
Вообщем дано 10 существительных, 10 глаголов, 10 прилагательных или типа того.
выбирается одно существительное, один глагол, одно прилагательное случайгым образом и выводиться на экран.
Вообщем-то всё. Помогите плиз wink.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_Дима81_*
сообщение Apr 17 2008, 17:45
Сообщение #188





Guests






Люди добрые помогите мне ПОЖАЛУЙСТА.
Лабораторная работа: "Программирование операции обработки двумерных массивов"
Задача: Включить вектор С(М) в качестве главной диагонали матрицы.
Спасибо.
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_cyBopoB_*
сообщение May 5 2008, 17:14
Сообщение #189





Guests






Простите пожалуйста что я с такой пустячной темой, но без помощи мне не обойтись.У меня возникли небольшие проблемы с циклами вот задача:

Составить алгоритм, написать и отладить программу для решения задачи:
Ввести вещественное X и натуральное N. Найти значения функции Y:

Y = x + x3 + x5 + . . . +x2n-1
Я знаю что надо решить эту задачу с помощью цикла,но как, вот вопрос.
Вернуться к началу страницы
 
+Цитировать сообщение
Sandro
сообщение May 5 2008, 18:04
Сообщение #190


Да прибудет с тобой сила...
******

Группа: Posters
Сообщений: 1,180
Регистрация: 21.5.2006
Из: г.п. Урмары :)
Пользователь №: 611



x3, x5-непонятно. x умноженное на 5, или чо?


--------------------
ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? ©
Вернуться к началу страницы
 
+Цитировать сообщение
Bjorndalen
сообщение May 5 2008, 18:22
Сообщение #191


SALT LAKE 2002
******

Группа: Posters
Сообщений: 2,129
Регистрация: 2.1.2007
Из: г. Цивильск.
Пользователь №: 4,562



Цитата(Sandro @ May 5 2008, 19:04) *
x3, x5-непонятно. x умноженное на 5, или чо?

Наверняка, икс в степени 2n-1: икс в третьей, икс в пятой, икс в седьмой и т.д.


--------------------
Побеждает тот, кто знает правила игры.
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_cyBopoB_*
сообщение May 5 2008, 21:20
Сообщение #192





Guests






приношу свои извинения скопировал а отредактировать забыл
y=x+x^3+x^5.....+x^2n-1
Вернуться к началу страницы
 
+Цитировать сообщение
Sandro
сообщение May 6 2008, 06:50
Сообщение #193


Да прибудет с тобой сила...
******

Группа: Posters
Сообщений: 1,180
Регистрация: 21.5.2006
Из: г.п. Урмары :)
Пользователь №: 611



Код
y:=0;
while i<2*n do begin
y:=y+x^i;
i:=i+2; end;

Так чтоли? rolleyes.gif


--------------------
ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? ©
Вернуться к началу страницы
 
+Цитировать сообщение
Gobbs
сообщение May 6 2008, 08:12
Сообщение #194


Супер постер
Иконка группы

Группа: Local moder
Сообщений: 888
Регистрация: 23.10.2005
Из: п.Кугеси
Пользователь №: 106



Цитата(Sandro @ May 6 2008, 07:50) *
Так чтоли? rolleyes.gif

сам-то проверял на работоспособность, правильно будет сказать, этого клочка программы? smile.gif В Паскале нет оператора возведения в степень.
Вернуться к началу страницы
 
+Цитировать сообщение
Sandro
сообщение May 6 2008, 16:00
Сообщение #195


Да прибудет с тобой сила...
******

Группа: Posters
Сообщений: 1,180
Регистрация: 21.5.2006
Из: г.п. Урмары :)
Пользователь №: 611



Цитата(Gobbs @ May 6 2008, 09:12) *
сам-то проверял на работоспособность, правильно будет сказать, этого клочка программы? smile.gif В Паскале нет оператора возведения в степень.

Да я утром писал, что пришло в голову более или менее умное, то и написал ^^
Сейчас подумаем-с.


--------------------
ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? ©
Вернуться к началу страницы
 
+Цитировать сообщение
Brut47
сообщение May 6 2008, 16:55
Сообщение #196


Новичок
*

Группа: Members
Сообщений: 4
Регистрация: 21.1.2008
Пользователь №: 13,915



CODE
program norm;
uses Crt,GraphABC;
var
maxMj,i,j,N,C,l:integer;
x,r,a:real;
M:array[1..10000]of integer;
Begin
clrscr;
write('Vvedite N');
readln(N);
write('Vvedite chislo yacheek: ');
readln©;
randomize;
maxMj:=0;
a:=500/N;
setpencolor(clBLACK);
rectangle(8,38,512,62);
setbrushcolor(clGREEN);
for i:=1 to N do
begin
r:=random©;
x:=r;
for j:=1 to C do
begin
if x>j-1 then if x<=j then M[j]:=M[j]+1;
if M[j]>maxMj then maxMj:=M[j];
end;
rectangle(10,40,10+round(i*a),60);
end;
SetWindowCaption('Гистограмма нормального распределения');
SetwindowSize(600,600);
Setbrushcolor(clDARKGRAY);
l:=0;
for j:=1 to C do
begin
rectangle(round(l+630/5/C),480,round(l+630/C),round(480-400*M[j]/maxMj));
l:=l+round(630/C);
end;
readln;
End.



помогите плиз модифицировать программку
ато полный завал буит!!

нужен результат тот же самый... но саму прогу переписать надобы...
huh.gif

Сообщение отредактировал Gobbs - May 6 2008, 16:58
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_XIII_*
сообщение May 21 2008, 17:50
Сообщение #197





Guests






модули к паскалю выложите пажалуста(все которые есть на тп7)
Вернуться к началу страницы
 
+Цитировать сообщение
Диана
сообщение Mar 22 2009, 21:44
Сообщение #198


Продвинутый пользователь
***

Группа: Posters
Сообщений: 291
Регистрация: 9.7.2006
Из: Москва-Урмары
Пользователь №: 891



Помогите решить хоть одну задачку...очень прошу вас, мне не на кого положиться, паук-единственная надежда...
Напишите программу реализации очередей с помощью указателей.
Напишите программу реализации множеств посредством связанных списков.
Напишите программу нахождения самого длинного простого пути от заданной вершины ориентированного графа.
Напишите программу реализации алгоритма умножения целых чисел методом декомпозиции.
Напишите программу, которая выводит динамическое изображение октаэдра, вращающегося вокруг заданной оси.

Сообщение отредактировал Диана - Mar 22 2009, 21:53


--------------------
Всё что ни делается - всё к лучшему!

проверено на собственном опыте
Вернуться к началу страницы
 
+Цитировать сообщение
InFernal
сообщение May 4 2009, 14:09
Сообщение #199


Новичок
*

Группа: Members
Сообщений: 9
Регистрация: 2.2.2008
Пользователь №: 14,418



Со спутника-шпиона получено изображение в некотором волновом диапазоне сверхсекретной военной базы предполагаемого противника. База расположена на Антарктиде, все постройки на ней высечены из кубов льда и имеют на фотографии квадратную форму и не имеют общих фрагментов стен ненулевой длины (по всей видимости, это сделано в целях маскировки от локаторов, работающих в инфракрасном спектре). Благодаря мастерству операторов оказалось, что стены разных построек параллельны границам фотографии. Для того, чтобы составить сверхсрочный отчет для командования, необходимо узнать, сколько зданий находятся на базе. Напишите программу, которая это сделает.
Формат входного файла
В первой строке входного файла записаны числа пит (1 <= т, п <= 500) — размеры фотографии в пикселях по вертикали и по горизонтали. Следующие п строк содержат по т символов каждая: символ '.' соответствует пустому месту, '#' — элементу постройки.
Формат выходного файла
В выходной файл выведите единственное число — количество построек на базе.
Примеры

input.txt Output.txt
8 6
2
. . . . . .
. . . # # .
. . . # # .
. . . . . .
. # # # . .
. # # # . .
. # # # . .
. . . . . .

Помогите кто нить =)


--------------------
Вернуться к началу страницы
 
+Цитировать сообщение

10 страниц V  « < 8 9 10
ОтветитьСоздать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 29th March 2024 - 01:43