Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

lamed Статус: Практикант Рейтинг: 2130 ∙ повысить рейтинг »

Boriss Статус: Академик Рейтинг: 1751 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1576 ∙ повысить рейтинг »

Вопрос № 176438: здравствуйте уважаемые Эксперты!!! прошу пожалуйста помоч.. Тема: «Единая система программной документации» Цель: Научиться оформлять документацию на программу по ГОСТу Задание. 1. Оформить титульные листы к техническому зада...

здравствуйте уважаемые Эксперты!!! прошу пожалуйста помоч..

Тема: «Единая система программной документации»

Цель: Научиться оформлять документацию на программу по ГОСТу

Задание.
1. Оформить титульные листы к техническому заданию, описанию программы, тексту программы.
2. Сформировать документ описание программы и текст программы .

Вариант 2. Ввести два целых числа: 0 <= m <=60? 0 <=h <=12 , описывающий момент времени, когда “h часов m минут”. Определить наименьшее число полных минут, которое должно пройти до того момента, когда часовая и минутная стрелка на циферблате совпадут на каком-либо делении.

Рекомендации к исполнению. В этой работе разработка программы проходит не все стадии (этапы).
Процесс разработки программного обеспечения разбивается на этапы:
- постановка задачи;
- проектирование (формирование структуры программы, определение схемы взаимодействия частей);
- кодирование алгоритма;
- тестирован ие и отладка.

Отправлен: 01.02.2010, 21:56
Вопрос задал: luba tixomirova, 1-й класс
Всего ответов: 2
Страница вопроса »

Приложение:
{ Задание: Ввести два целых числа: 0 <= m <=60? 0 <=h <=12, описывающий момент времени, когда “h часов m минут”. Определить наименьшее число полных минут, которое должно пройти до того момента, когда часовая и минутная стрелка на циферблате совпадут на каком-либо делении. Замечания: Строго говоря, задание сформулировано неоднозначно. Если принимать во внимание, что деления на циферблате обычно обозначают минуты, часовая стрелка движется непрерывно, а минутная может двигаться непрерывно или скачками (по минутам), то единственное место, где они "совпадут на каком-либо делении" будет 00:00 (12:00). В такой формулировке задача банальна и не представляет интереса. Для определенности будем считать, что минутная стрелка движется непрерывно и требуется узнать наименьшее число полных минут, которые необходимы для того, чтобы стрелки "совпали". Максимальное значение минут, необходимых для этого будет проходить с того момента, как стрелки уже находятся в "совпавшем" положении. Искомое "наименьшее" число полных минут будет находиться в пределах 0 < result <= 65. } Uses Crt; Const MinValue = 0; MaxHour = 23; MaxMinute = 59; VMinute = 6; { Скорость минутной стрелки (градусов/минуту)} VHour = 0.5; { Скорость часовой стрелки (градусов/минуту)} Var h, m, result: Byte; function InitValue (max: Byte): Byte; var result: Byte; begin repeat Write(\' (0-\', max, \'): \'); ReadLn(result); until ((result >= 0) and (result <= max)); InitValue := result; end; procedure Solve; var hg, mg, _g, _m: Integer; begin {Выяснить положение (в градусах) часовой стрелки можно так} hg := Round(((h mod 12) * 60 + m) * VHour); {а минутной - так} mg := Round(m * VMinute); {Уточнили разницу (в градусах) между стартовыми положениями стрелок} _g := 360 + hg - mg; if (_g > 360) then _g := _g mod 360; {Собственно получение результата} result := Trunc(_g / (VMinute - VHour)); WriteLn(\'До момента совпадения стрелок пройдет \', result, \' полных минут.\'); end; begin ClrScr; Write(\'Введите значение h\'); h := InitValue(MaxHour); Write(\'Введите значение m\'); m := InitValue(MaxMinute); Solve; repeat until keypressed; end.

Ответ отправил: Andrew Kovalchuk, 3-й класс
Ответ отправлен: 02.02.2010, 14:25
Номер ответа: 259146

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259146 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
program Strelki; (* mполн=m+h*60 hсовп=[mполн*11/720]+ mсовп=[720*hсовп/11]- dm = mсовп-mполн *) type TErrLevel = 0..3; { тип ошибки 0 - нет ошибки, 1 - неверные часы, 2 - неверные минуты, 3 - неверные часы и минуты } var h : integer; { данное число часов } m : integer; { данное число минут } InputError: TErrLevel; { уровень ошибки } function ceil(a: real): integer; { возвращает целое, не меньшее заданного вещественного } { применимо: a>=0, a<MaxInt } var inta : integer; begin inta := trunc(a); { отбрасываем дробную часть } if inta<a then { если дробная часть была } ceil:= inta+1 else ceil:= inta; end; { ceil } function MinDoSovp(h,m: integer): integer; { минут от заданного времени до совпадения } var k : real; { коэффициент перевода, k=720/11 } mpoln: integer; { число минут от полуночи до заданного времени } hsovp: integer; { число часов от полуночи до ближайшего следующего совпадения } msovp: integer; { число минут от полуночи до ближайшего следующего совпадения стрелок } begin k:= 720/11; mpoln := m+h*60; hsovp := ceil(mpoln/k); msovp := trunc(hsovp*k); MinDoSovp := msovp-mpoln; end; { MinDoSovp } procedure vvod(var h,m: integer; var ErrLevel: TErrLevel); { ввод часов и минут, запись уровня ошибки } begin write(\'h=\'); readln(h); write(\'m=\'); readln(m); ErrLevel := 0; if not (h in [0..11]) then ErrLevel := ErrLevel+1; if not (m in [0..59]) then ErrLevel := ErrLevel+2; end; { vvod } procedure ErrMsg(ErrLevel: TErrLevel); { печать сообщения об ошибке } const Msg1 = \'Неверный ввод часов\'; Msg2 = \'Неверный ввод минут\'; Msg99 = \'Неопознанная ошибка\'; begin case ErrLevel of 0:; 1: writeln(Msg1); 2: writeln(Msg2); 3: begin writeln(Msg1); writeln(Msg2); end; else writeln(Msg99); end; end; { ErrMsg } begin { основной блок } vvod(h,m, InputError); if InputError>0 then { если ошибка ввода } ErrMsg(InputError) else writeln(\'С заданного времени до совпадения стрелок пройдет \', MinDoSovp(h,m), \' мин.\'); readln; end.

Ответ отправил: lamed, Практикант
Ответ отправлен: 08.02.2010, 14:35
Номер ответа: 259314

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259314 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

1.Подсчитать число различных (неодинаковых)букв в слове.
Например
Мама, кол-во равно 2
Слово кол-во 3

2. Даны 2 слова. Поменяйте местами буквы этих слов,занимающие одинаковые позиции.

Отправлен: 03.02.2010, 17:01
Вопрос задал: practikal1204, Посетитель
Всего ответов: 3
Страница вопроса »

Приложение:
{ 2. Даны 2 слова. Поменяйте местами буквы этих слов,занимающие одинаковые позиции. } Uses Crt; Var St1, St2: String; ch: Char; maxi, i: Byte; begin ClrScr; Write(\'Первое слово: \'); ReadLn(St1); Write(\'Второе слово: \'); ReadLn(St2); if (Length(St1) > Length(St2)) then {сколько букв будем менять?} maxi := Length(St2) else maxi := Length(St1); for i:=1 to maxi do begin {прием тройного попарного обмена} ch := St1[i]; St1[i] := St2[i]; St2[i] := ch; end; Write(\'Первое: \', St1, \' Второе: \', St2); repeat until keypressed; end.

Ответ отправил: Andrew Kovalchuk, 3-й класс
Ответ отправлен: 03.02.2010, 18:28
Номер ответа: 259185

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259185 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
var a:string; function count(a:string):integer; begin if length(a)>1 then begin if pos(a[1],copy(a,2,length(a)-1))=0{проверяем позицию в слове} then count:=1+count(copy(a,2,length(a)-1)){больше таких символов нет увеличиваем счетчик} else count:=count(copy(a,2,length(a)-1));{есть пропускаем симол и удаяем его} end else count:=1;{единственный символ остался} end; begin repeat{вводим слово} write(\'enter word:\'); readln(a); until length(a)>0; writeln(\'word: \',a, \' char \',count(a));{выводим результат} readln; end.
-----
Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч

Ответ отправил: Зенченко Константин Николаевич, Модератор
Ответ отправлен: 03.02.2010, 18:59
Номер ответа: 259186
Украина, Киев
Тел.: +38-097-953-66-19
Адрес: Украина, Киев

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259186 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
{ ∙ Вопрос № 176459 Подсчитать число различных (неодинаковых)букв в слове. Например Мама, кол-во равно 2 Слово кол-во 4 } program p176459; { Подсчитать число различных (неодинаковых)букв в слове } var letters : set of char; { множество символов } s : string; { вводимая строка } i : integer; { индекс символа в строке } count : integer; { число различных символов } begin { читаем строку (слово) } write(\'Слово \'); readln(s); { в пустой строке 0 символов } count := 0; { в пустой строке множество символов пусто } letters := []; for i:= 1 to length(s) do if not (s[i] in letters) then { если очередной символ не входит в множество символов, уже проверенных до этого } begin { тогда включим этот символ в множество } letters := letters+[s[i]]; { и увеличим количество различных символов на единицу } count := count + 1; end; writeln(\'Слово \', s, \' содержит \', count, \' различных символов\'); readln; end.

Ответ отправил: lamed, Практикант
Ответ отправлен: 04.02.2010, 11:32
Номер ответа: 259201

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259201 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Здравствуйте, есть у меня еще одна проблема с моем программой про которую я забыл когда писал(и мне ответили) здесь в предыдуший раз. Что бы не было недразумений напишу условия. Есть код программы на нахождение минимума функции(сам код прилагается). Программа выводит на экран значение "min", дописали программу что бы среди этих "min" находилось самое наименьшее среди них. Теперь я сделал что бы программа запускалась 10 раз и на экран выводится 10 "minimum". Надо что бы среди этих "minimum" находилось самое наименьшее. Что бы программа запускалась 10 раз я использовал FOR но если кого то не устроит то можно переделать, главное результат. В приложении программа реализуюшая простой генетический алгоритм (селекция, скркшивание, мутация) для нахождения минимума функции Z(x,y)=x^2+y^2, -5.12<=x<=5.12, -5.12<=y<=5.12.

Отправлен: 03.02.2010, 19:27
Вопрос задал: Hivrenko, Посетитель
Всего ответов: 2
Страница вопроса »

Приложение:
BEGIN { Главная программа } global_min := 65535; {Здесь подразумевается любое значение заведомо бОльшее, нежели любой из минимумов} clrscr; for a:=1 to 10 do begin popsize:=20; {размер популяции} lchrom:=20; {число битов на один кодируемый параметр} maxgen:=5; {максимальное число поколений} pmutation:=0.01; {вероятность скрещивания} pcross:=0.9; {вероятность мутации} {Инициализация генератора случайных чисел} randomize; {Инициализация счетчиков} nmutation := 0; ncross := 0; initpop; statistics (popsize, max, avg, min, sumfitness, oldpop); min1:=min; gen:= 0; {Установка счетчика поколений в 0} repeat {Главный итерационный цикл} gen:= gen + 1; generation; statistics(popsize, max, avg, min, sumfitness, newpop); oldpop:= newpop; {переход на новое поколение } writeln(\'min= \',min); if min1>min then min1:=min; until (gen >= maxgen); writeln(\'minimum= \',min1); if global_min > min1 then global_min := min1; end; writeln; writeln(\'Global minimum: \', global_min); readln; END. {End главной программы}

Ответ отправил: Andrew Kovalchuk, 3-й класс
Ответ отправлен: 03.02.2010, 20:17
Номер ответа: 259189

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259189 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
program sga; uses crt; const maxpop = 100; maxstring = 30; dim = 2; {размерность пространства поиска} type allele = boolean; {Алель ? позиция в битовой строке} chromosome = array[1..maxstring*dim] of allele; {битовая строка} fenotype = array[1..dim] of real; individual = record chrom:chromosome; {генотип = битовая строка} x:fenotype; {фенотип = массив вещественных координат точки в пространстве поиска} fitness:real; {значение целевой функции} end; population = array[1..maxpop] of individual; const xmax:fenotype=(5.12,5.12); {массив максимальных значений для координат точки в про-странстве поиска} xmin:fenotype=(-5.12,-5.12); {массив минимальных значений для координат точки в про-странстве поиска} var oldpop, newpop, intpop :population; {Три непересекающихся популяции ? старая, новая и проме-жуточная} popsize, lchrom, gen, maxgen: integer; {Глобальные целые переменные} pcross, pmutation, sumfitness:real; {глобальные вещественные переменные} nmutation, ncross:integer; {Статистические целые} avg, max, min:real; {Статистические вещественные} min1:real; a:integer; {Вероятностные процедуры} function random_:real; begin random_ := random(65535)/(65535-1); end; function flip(probability:real):boolean; {подбрасывание монетки ? true если орел} begin if probability = 1.0 then flip := true else flip := (random_ <= probability); end; function rnd(low,high:integer):integer; {Случайный выбор между low и high} var i:integer; begin if low >= high then i := low else begin i := trunc( random_ * (high-low+1) + low); if i > high then i := high; end; rnd := i; end; {интерфейсные процедуры: decode and objfunc} function objfunc(x:fenotype):real; begin objfunc:= sqr(x[1])+sqr(x[2]); end; procedure decode(chrom:chromosome; lbits:integer; var x:fenotype); {Декодирование строки в массив вещественных координат точки в пространстве поиска - true=1, false=0} var i,j:integer; f, accum, powerof2:real; begin for i:=1 to dim do begin accum := 0.0; powerof2 := 1; f:=1; for j := 1+lbits*(i-1) to lbits+lbits*(i-1) do begin if chrom[j] then accum := accum + powerof2; powerof2 := powerof2 * 2; f:=f*2; end; x[i] := xmin[i]+(xmax[i]-xmin[i])*accum/(f-1) end end; {Расчет статистических величин: statistics } procedure statistics(popsize:integer; var max,avg,min,sumfitness:real; var pop:population); {Расчет статистик популяции } var j:integer; begin {Инициализация } sumfitness := pop[1].fitness; min := pop[1].fitness; max := pop[1].fitness; {Цикл для max, min, sumfitness } for j := 2 to popsize do with pop[j] do begin sumfitness := sumfitness + fitness; {Накопление суммы значений функции пригодности} if fitness>max then max := fitness; {Новое значение max} if fitness<min then min := fitness; {Новое значение min} end; {Расчет среднего} avg := sumfitness/popsize; end; {Процедура инициализации initpop} procedure initpop; {Инициализация начальной популяции случайным образом} var j, j1:integer; begin for j := 1 to popsize do with oldpop[j] do begin for j1 := 1 to lchrom*dim do chrom[j1] := flip(0.5); {Бросок монетки} decode(chrom,lchrom,x); {Декодирование строки} fitness := objfunc(x); {Вычисление начальных значений функции пригодно-сти} end; end; {3 генетических оператора: отбора (select), скрещивания (crossover) и мутации (mutation)} procedure select; {процедура выбора} var ipick:integer; procedure shuffle(var pop:population); {процедура перемешивания популяции в процессе отбора} var i,j:integer; ind0:individual; begin for i := popsize downto 2 do begin j:= random(i-1)+1; ind0:=pop[i]; pop[i]:=pop[j]; pop[j]:=ind0; end; end; function select_1:integer; var j1,j2,m:integer; begin if (ipick>popsize) then begin shuffle(oldpop); ipick:=1 end; j1:=ipick; j2:=ipick+1; if (oldpop[j2].fitness<oldpop[j1].fitness) then m:=j2 else m:=j1; ipick:=ipick+2; select_1:=m; end; var j:integer; begin ipick:=1; for j:=1 to popsize do begin intpop[j]:=oldpop[select_1]; end; oldpop:=intpop; end; function mutation (alleleval:allele; pmutation:real; var nmutation:integer):allele; {мутация одного бита в строке (аллеля) с вероятностью pmutation, count number of mutations} var mutate:boolean; begin mutate := flip(pmutation); {Flip the biased coin} if mutate then begin nmutation := nmutation + 1; mutation := not alleleval; {Change bit value} end else mutation := alleleval; {No change} end; procedure crossover(var parent1, parent2, child1, child2:chromosome; flchrom:integer; var ncross, nmutation, jcross:integer; var pcross, pmutation:real); {Скрещивание 2 родительских строк, результат помещается в 2 строках-потомках} var j:integer; begin if flip(pcross) then begin {Выполняется скрещивание с вероятностью pcross} jcross := rnd(1,flchrom-1); {Определение точки сечения в диапазоне между 1 и l-1} ncross := ncross + 1; {Инкрементирование счетчика скрещиваний} end else jcross := flchrom; {певая часть обмена , 1 to 1 and 2 to 2} for j := 1 to jcross do begin child1[j] := mutation(parent1[j], pmutation, nmutation); child2[j] := mutation(parent2[j], pmutation, nmutation); end; {вторая часть обмена, 1 to 2 and 2 to 1]} if jcross<>flchrom then {пропуск, если точка скрещивания равна flchrom--скрещивание не происходит} for j := jcross+1 to flchrom do begin child1[j] := mutation(parent2[j], pmutation, nmutation); child2[j] := mutation(parent1[j], pmutation, nmutation); end; end; {Процедура создания нового поколения: generation} procedure generation; {Генерирование нового поколения при помощи отбора, скре-щивания и мутации} {Прим: предполагается, что популяция имеет четный размер} var j, mate1, mate2, jcross:integer; begin select; j := 1; repeat {выполняются отбор, скрещивание и мутация, пока полно-стью не сформируется новая популяция ? newpop} mate1:= j; {выбор родительской пары} mate2:= j+1; {скрещивание и мутация ? мутация вставлена в процедуру скрещивания} crossover(oldpop[mate1].chrom, oldpop[mate2].chrom, newpop[j ].chrom, newpop[j + 1].chrom, lchrom*dim, ncross, nmutation, jcross, pcross, pmutation); {Декодирование строки и вычисление пригодности} with newpop[j ] do begin decode(chrom, lchrom,x); fitness := objfunc(x); end; with newpop[j+1] do begin decode(chrom, lchrom,x); fitness := objfunc(x); end; j := j + 2; until (j>popsize); end; procedure main_procedure; Begin popsize:=20; {размер популяции} lchrom:=20; {число битов на один кодируемый параметр} maxgen:=5; {максимальное число поколений} pmutation:=0.01; {вероятность скрещивания} pcross:=0.9; {вероятность мутации} {Инициализация генератора случайных чисел} randomize; {Инициализация счетчиков} nmutation := 0; ncross := 0; initpop; statistics (popsize, max, avg, min, sumfitness, oldpop); min1:=min; gen:= 0; {Установка счетчика поколений в 0} repeat {Главный итерационный цикл} gen:= gen + 1; generation; statistics(popsize, max, avg, min, sumfitness, newpop); oldpop:= newpop; {переход на новое поколение } writeln(\'min= \',min); if min1>min then min1:=min; until (gen >= maxgen); writeln(\'minimum= \',min1); end; { Главная программа } var final_minimum: real; BEGIN clrscr; main_procedure; final_minimum:=min1; for a:=1 to 9 do begin main_procedure; if final_minimum>min1 then final_minimum:=min1; end; writeln(\'Minimum of 10: \',final_minimum); readln; END. {End главной программы}

Ответ отправил: Лейла, 5-й класс
Ответ отправлен: 03.02.2010, 20:32
Номер ответа: 259190

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 259190 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »