| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1323.
Сивилла
(05.04.2007 22:34)
0  
доброй ночи...просматриваю ваш сайт уже несколько раз очень помогли..некоторые задачи похожи с моими...но может поможите сделать вот такую задачку:
задан массив (размерность 9)
записей следующей структуры:
1.наименование прибора
2.номер прибора
3.вес золота в приборе(ВЗ)
4.вес серебра в приборе(ВС)
5.стоимость прибора(С)
6.количество приборов данного вида(КП)
определить общий вес драгоценных металлов в приборах данного наименования (КП*ВЗ+КП*ВС)
определить среднюю стоимость приборов в лаборатории.
Ответ: То есть, должны быть еще стоимость килограмма золота и серебра?
|
1322.
Миха
(05.04.2007 20:25)
0
Очень хороший сайт!!!
Cпасибо создателям
|
1321.
andrjuha
(05.04.2007 08:48)
0
ЗАДАЧА!!!! ХЕЛП!!!!
Используя один из первых несовершенных телескопов, Галилей разглядел неясные пятна по краям диска планеты, которые посчитал спутниками Сатурна. Чтобы закрепить за собой первенство и в то же время не попасть в неловкое положение ошибившегося, Галилей прибегнул к модному в те времена способу: об открытии, правильность и достоверность которого вызывали сомнения, сообщалось в краткой шифровке, сложной для толкования всем, кроме автора. Если открытие подтверждалось дальнейшими исследованиями, сообщение об открытии расшифровывалось, и весь мир видел, кто же был первый. Галилей в 1610-м году опубликовал такую анаграмму: «smaismrmielmepoetaleumibuvnenugttaviras». Иоганн Кеплер попробовал расшифровать эту анаграмму, выбросив из набора пару букв (иногда в анаграммы добавлялись лишние символы, для большей путаницы), и составил фразу «salve umbistineum geminatum martia proles», что переводится как «Привет вам, близнецы, Марса порождение». Иначе говоря, получалось, что Галилей открыл 2 с!
путника Марса. Галилео Галилей расшифровал свое послание миру позднее, также исключив две буквы: «altissimum planetam tergeminum observavi» то есть «самую далекую планету тройную наблюдал». Первым разглядевший кольца Сатурна Гюйгенс тоже сначала публикует в 1658 году сообщение о своем открытии в виде анаграммы «aaaaaaacccccdeeeeeghiiiiiiillllmmnnnnnnnnnooooppqrrstttttuuuuu», которую расшифрует через три года как «annulo cingitur tenui plano nusquam cohaerente ad eclipticam inclinato». В 1676 году Гук печатает в своей книге анаграмму «ceiiinosssttuv». Через 18 лет в другой книге Гук расшифрует ее как «ut tensio sic vis» и сформулирует закон пропорциональности между упругими растяжениями, сжатиями, изгибами и производящими их напряжениями.
Напишите программу, проверяющую соответствие анаграммы и ее расшифровки.
В первой строке входного файла содержится анаграмма, состоящая из строчных латинских букв. Во второй строке содержится предполагаемая расшифровка анаграммы, состоящая из строчных латинских букв и пробелов. Пробелы служат только для разделения слов в расшифровке и при сравнении игнорируются. Длина анаграммы и расшифровки не превышает 100000 символов.
В выходной файл вывести число -1, если в расшифровке есть буквы, для которых нет соответствия в анаграмме, иначе вывести количество букв, присутствующих в анаграмме, но отсутствующих в расшифровке. Как ее сделать с минимальными затратами времени - Кто может отправьте на мыло, а кто - сюда напишите!!!!!!!!! ПоЖаЛуЙстА!!!!
Ответ: Привет. Давя гада-спамера, нечаянно удалил, было, Ваше сообщение. Восстановил, но адрес потерялся - дайте его еще раз.
О задаче: легче всего удалять одинаковые символы "там" и "там". Тогда сразу получите, сколько осталось или сколько не хватает. Удалять легко с помощью функции POS + DELETE.
Основная проблема: как хранить такую большую строку (100000 символов). Решение зависит от того, в чем пишите программу.
====== ВОТ СХЕМА РЕШЕНИЯ БЕЗ ВЫВОДА
ЧТО НЕ ПОЙМЕШЬ - ПИШИ ИЛИ ДАЙ АДРЕС ======
var
S, A, s_copy, a_copy: String;
i, len: Longint;
BEGIN
S:=''smaismrmielmepoetaleumibuvnenugttaviras'';
A:=''altissimum planetam ter1geminum observavi'';
s_copy:=S;
a_copy:=A;
While POS('' '', a_copy) <> 0 do delete(a_copy, POS('' '', a_copy), 1);
i:=1;
len := length(a_copy);
while i <= len do
if POS(a_copy[i], s_copy) <> 0 then
begin DELETE(s_copy, POS(a_copy[i], s_copy), 1);
DELETE(a_copy, i, 1);
dec(len) end
else inc(i);
WriteLn(''Unused chars in source:''#13#10, s_copy);
WriteLn(''Source remainder:''#13#10, a_copy);
if length(a_copy) > 0 then WriteLn(''INPOSSIBLE = -1'') else
WriteLn(''possible'')
END.
|
1320.
маша
(01.04.2007 19:57)
0
спасибо!очень поможет в учебе
|
1319.
SE
(29.03.2007 10:25)
0
Спасибо большое за такой полезный сайт. Молодцы.
|
1318.
Mng
(25.03.2007 15:31)
0
Ребят помогите, плиз...нужно лабу сделать на процедуры:
3. Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l), по задан-ным правилам: (i+j)/2, (i*j)/ . Фактическое число строк (n,k) и столб-цов (m,l) каждой матрицы, а также признак выбора заданного правила вводить с клавиатуры. Создать процедуру, определяющую одномерный массив (вектор), состоящий из сумм каждой строки матрицы с четными номерами. Вывести на экран исходные и результирующие массивы.
И на файлы:
. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий сведения о нескольких автомобилях, после чего определить фамилии владельцев и номера автомобилей заданной марки. Марка автомобиля вводится пользователем.
Помогите, чем можете...)))
|
1317.
Mng
(25.03.2007 15:25)
0
Спасибо за создание такого клёвого сайта...Мне очень помог, скачала себе здесь курсовую...Супер...Хотелось бы каких-нибудь программ на процедуры и файли...)))
Заранее спасибо...)))
Ответ: Нет проблем (кроме времени). Сформулируй, если сможешь поконкретнее, что нужно - поможем
|
1316.
sgagarin
(23.03.2007 17:31)
0
Молодцец, кто такой сайт сделал! Мне очень помогло.
Ответ: Спасибо. Приходите еще - если что, то и помочь сможем
|
1315.
AROMIB
(21.03.2007 12:43)
0
help me plz
Ответ: :)) What''s a task?
|
1314.
(21.03.2007 12:39)
0
помогите решить задачу за 15 мин plz
Ответ: Какую?
|
1313.
(19.03.2007 12:54)
0
напишите программу
Ответ: Уже выполнено! :)) И не одну...
А Вам какая нужна?
|
1312.
Андрей
(15.03.2007 17:11)
0
Очень класный сайт, очень помогает.
|
1311.
Максим
(15.03.2007 01:17)
0
В тексте все цепочки символов, изображающие однозначные целые, заменить цепочкой "**" (две звездочки)
Ответ: Не понятно: три, пять цифр -> все равно каждую группу двумя звезочками? Или КАЖДУЮ цифру двумя звездочками?
|
1310.
Bakhtiyor
(09.03.2007 21:52)
0
thank you very much
|
1309.
Kostya
(03.03.2007 18:36)
0
Привет Борис! Давно я здесь не появлялся.
Ответ: Привет. :)) Зато сразу 4 раза!!
|
|
|
|
