Гостевая книга - Персональный сайт

1803. Olga (16.12.2009 14:27)

0

Здравствуйте!
Просто потрясающий сайт!!! Вот ОГРОМНОЕ ВАМ СПАСИБО, что создали такой! Много полезного нашла для себя!!!

Можно обратиться за помощью? Катастрофически не хватает время - работа, учеба, семья - а нужна прога по решению задачи:
"Разработка компьютерной программы, для удаления дубликатов в файле записей. В файле храниться порядковый номер, название товара, количество и цена товара. УДАЛИТЕ В ФАЙЛЕ ЗАПИСИ- Дубликаты."

Ответ: Что-то я пропустил Вашу просьбу. Ещё нужно?

1802. Катюша (14.12.2009 19:39)

0

Здравствуйте! помогите пожалуиста!срочно сдавать..
Дана квадратная матрица порядка n. с помоью допустимых преобразований добиться того, чтобы один из элементов матрицы, обладающий наименьшим по модулю значением, располагался в правом нижнем углу матрицы.
(это нужно сделать путем перестоновок всех строк и столбцов, чтоб получилось что-то типо этого:
1 2 3 5 6 4
4 5 6 => 8 9 7
7 8 9 2 3 1

1801. Елена (13.12.2009 13:03)

0

03.12.2009 22:04
Елена Здравствуйте!!! Помогите пожалуйста сделать задачку, никак не получается((( Нужно написать программу умножения модулей двоично-десятичных чисел. Т.е. нужно вводить десятичное число, переводить его в двоично-десятичную систему а потом умножать. Очень надо, помогите пожалуйста.
В виде строк числа, или с помощью ассемблерной вставки? Ведь только там есть BCD-арифметика
В ВИДЕ СТРОК ЧИСЛА

Ответ: Вы не поняли - я имел в виду не ввод, а сам процесс умножения
ТОЛЬКО В АССЕМБЛЕРЕ имеем доступ к двоично-десятичным числам (BCD-арифметика)

1800. Абадябер (09.12.2009 21:13)

0

Кстати, описанный вами алгоритм для возведения X в степень Y не будет работать, если X является отрицательным. -2^2, например.

Ответ: Я свои программы проверяю и такой не писал... А где находится - не я один хозяин сайта

1799. Нюша (07.12.2009 19:05)

0

Мне очень нужна ваша помощь!!Вот задачка, вроде простенькая, но не могу разобраться насчет пробелов((
Вот она:
дана строка состоящая из русских слов, разделенными пробелами(одним или несколькими). Вывести строку содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.

Т.е. нужно условие: если есть пробелы более одного, то нужно, сделать везде по одному, и дальше сортировка...

Ответ: Исходный файл решения размещен по адресу http://borlpasc.narod.ru/Boris/progs/SORT_STR.PAS
а еще программа размещена в разделе "Средние программы":
http://borlpasc.narod.ru/progcredn.htm

1798. mAr (07.12.2009 14:04)

0

здорова помоги пожалуйста решить задачку по Pascal ABC
"В заданном Массиве X(N) поменяйте знак всех положительных элементов" очень срочно надо пожалуйста помоги=(( когда решиш на емайл напишиш!

Ответ: Ерунда, а не задача:
const
ar_max = 20;
delta_element = 100; {предел изменения элементов}
delta = delta_element/2;
var
ar: array [1..ar_max] of real;
{Вы не написали тип элементов массива - сделал вещественным}
i: Integer;
BEGIN
for i:=1 to ar_max do ar[i] := random*(delta_element) - delta;
for i:=1 to ar_max do
Write(ar[i]:8:2);
WriteLn;
// Меняем знаки у положиельных
WriteLn(''Измененный массив:'');
for i:=1 to ar_max do
if ar[i] > 0 then ar[i] := - ar[i];
for i:=1 to ar_max do
Write(ar[i]:8:2);
WriteLn;
END.

1797. Елена (03.12.2009 20:04)

0

Здравствуйте!!! Помогите пожалуйста сделать задачку, никак не получается((( Нужно написать программу умножения модулей двоично-десятичных чисел. Т.е. нужно вводить десятичное число, переводить его в двоично-десятичную систему а потом умножать. Очень надо, помогите пожалуйста.

Ответ: В виде строк числа, или с помощью ассемблерной вставки? Ведь только там есть BCD-арифметика

1796. Ирина (02.12.2009 15:17)

0

Здравствуйте! Помогите пожалуйста решить задачку!
Простейшие рекурсивные алгоритмы:
х0=1, хn=x*xn-1 при n>0, xn=1/x-n при n<0(x>=0 -вещественное число, n-целое). С помощью этой функции найти значения XN при 5 различных значениях N для данного X.
+ нужны функция или процедура.

Пример: х1=х*х0, х2=х1*х, х(-1)=1/х1, х(-2)=1/х2

1795. Нюша (02.12.2009 15:10)

0

Мне очень нужна ваша помощь!!Вот задачка, вроде простенькая, но не могу разобраться насчет пробелов((
Вот она:
дана строка состоящая из русских слов, разделенными пробелами(одним или несколькими). Вывести строку содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.

Т.е. нужно условие: если есть пробелы более одного, то нужно, сделать везде по одному, и дальше сортировка...

1794. Artem (27.11.2009 23:10)

0

Уважаемые программисты, очень - очень нужно написать программу... сложную...:
С заданой точностью eps1 (к примеру eps1=0.001) 1.вычислить абсциссы точек пересечения трех кривых, используя метод хорд(секущих) для приближенного решения ур-я F(x)=0, отрезки на которых прога ищет корни определяется вручную (аналитически, и вносится в программу)
2. и представить площадь заданной фигуры как алгебраическую сумму определенных интегралов с точностью eps1 по квадратурной формуле трапеций!!!

1793. Артем А (27.11.2009 22:34)

0

Здрасте. У меня вопрос: чем отличается язык программирования в среде Паскаль и С+? Похожи ли они?

Ответ: Ответил письмом

1792. Njkcn (26.11.2009 16:41)

0

Спасибо, большое за помощь!
Простите за наголость, но можно мне на Ваш адрес скинуть еще одну задачку (просто там формула, которая не совсем красиво пишется в окне сообщения). Как ее решать я понять никак не могу, даже вникнуть в суть задачи не получается. Помогите, пожалуйста.

Ответ: Давайте, а что с той делать?

1791. Njkcn (26.11.2009 14:00)

0

Здравствуйте. Да, это одна четверть, формула у меня получилась такая же, но я не могу понять, как записать, чтобы он все правильно считал. Пожалуйста, Вы не могли бы написать полную программу, буду Вам очень благодарен.

Ответ: Написать-то просто, но не разбогатеет он, болезный, никогда. За 100 000 лет у него наберется 3,75 при том, что ни есть, ни выпить, ни детям

А программа-то вот:
CONST
coeff0 = 0.5;
coeff1 = 0.25;
coeff2 = 0.15;
max_summ = 100;
VAR
count: LongInt; {Число циклов}
gain: array[1..4] of Extended;
sum: Extended;
BEGIN
gain[1] := 1;
gain[2] := gain[1]; gain[3] := gain[1];
count := 3;
sum := 3;
while (gain[4] < max_summ) and (count < 36500000) do begin
gain[4] := coeff0*gain[3] - coeff1*gain[2] + coeff2*gain[1];
gain[1] := gain[2];
gain[2] := gain[3];
gain[3] := gain[4];
inc(count);
{ WriteLn(count:6,'' )'', gain[4]:10:3); }
sum := sum + gain[4];
{ WriteLn(count:6,'' )'', gain[4]:10:3, '' '', sum:10:3);}
end;
WriteLn(''Доход '',sum:10:3,'' достигнута за '',count,'' дней'');
END.

1790. Njkcn (26.11.2009 01:37)

0

Здравствуйте.Помогите, пожалуйста, решить задачу, очень сильно нужно.

Еженедельно выручка лавочника равна половине выручки предыдущего дня минус ¼ выручки второго предыдущего дня плюс 0,15 выручки третьего предыдущего дня. Написать программу, определяющую, через сколько лет разбогатеет лавочник (по его мнению, богатым человеком можно считать того, у кого имеется 1000 долл.), если выручка первых трех дней составила по 1 долл. в день.

Ответ: Давайте уточним: ¼ - это одна четверть?
И получается, что формула:
g0 = 0.5*g(-1) - 0.25*g(-2) + 0.15*(g-3)?

1789. Romashka (20.11.2009 17:47)

0

Здравствуйте! Помогите пожалуйста с решением!
1) Использую RANDOM -20 элементов из интервала [25;55] одномерного массива М1;
2)Вывести на экран элементы массива;
3) Вывести на экран наименьший элемент и его индекс.

		Среда, 01.05.2024
	Мой сайт