Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Консультации по информатике


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

Лучшие эксперты в разделе

CradleA
Статус: Мастер-Эксперт
Рейтинг: 211
∙ повысить рейтинг »
Megaloman
Статус: Мастер-Эксперт
Рейтинг: 116
∙ повысить рейтинг »
SFResid
Статус: Мастер-Эксперт
Рейтинг: 2
∙ повысить рейтинг »

Информатика

Номер выпуска:379
Дата выхода:10.05.2021, 14:15
Администратор рассылки:Коцюрбенко Алексей Владимирович (Старший модератор)
Подписчиков / экспертов:3 / 30
Вопросов / ответов:3 / 5

Консультация # 179920: Уважаемые эксперты , прошу вас записать следующую программу в псевдокоде или блок схеме : program prog1; const N=10; var P:byte; i,C1,C2:integer; B:array [1..N] of integer; begin randomize; C1:=0; C2:=0; for i:=1 to 10 do begin B[i]:=random(100); write(B[i],' '); ...
Консультация # 176621: увaжaeмыe укспeрты. Помогите найти материал,или напиши те мини сочинение На тему ''Исторические предпосылки возникновения шифров. Использование вчера,сегодня,в будущем.''...
Консультация # 116433: Составьте программу, заменяющую из двух данных чисел большее число модулем суммы, а меньшее — модулем полуразности этих чисел....

Консультация # 179920:

Уважаемые эксперты , прошу вас записать следующую программу в псевдокоде или блок схеме :
program prog1;

const N=10;

var P:byte;
i,C1,C2:integer;
B:array [1..N] of integer;

begin
randomize;
C1:=0;
C2:=0;
for i:=1 to 10 do
begin
B[i]:=random(100);
write(B[i],' ');
end;
i:=1;
while i<=N/2 do
begin
C1:=C1+B[i];
i:=i+1;
end;
while i<=N do
begin
C2:=C2+B[i];
i:=i+1;
end;
writeln;
writeln('C1=',C1);
writeln('C2=',C2);
if C1>C2 then
P:=1
else
P:=2;
write(P);
end.

Дата отправки: 12.09.2010, 21:46
Вопрос задал: Roland Deschain
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Асмик Гаряка (Советник):

Здравствуйте, Roland Deschain.

Псевдокод допускает разные варианты, я приведу на "Ершоле"

алг prog1;
нач
C1 = 0, C2 = 0
для i от 1 до n
нц
B[i]=случ(100);
вывод(B[i],' ');
кц
i=1
пока i<=N/2
нц
C1=C1+B[i]
i=i+1
кц
пока i<=N
нц
C2=C2+B[i]
i=i+1
кц
вывод('C1=',C1)
вывод('C2=',C2)
еслиC1>C2 то P=1 иначе P=2
вывод(P)
кон

Консультировал: Асмик Гаряка (Советник)
Дата отправки: 13.09.2010, 18:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 176621:

увaжaeмыe укспeрты.
Помогите найти материал,или напиши те мини сочинение
На тему ''Исторические предпосылки возникновения шифров. Использование вчера,сегодня,в будущем.''

Дата отправки: 11.02.2010, 03:46
Вопрос задал: Сильвейстров Сергей
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Шалимов Александр Сергеевич:

Здравствуйте, Сильвейстров Сергей.
Вот материал по вашей теме, и вобще на этом сайте есть много чего по криптологии
http://lomasko.com/publ/4-1-0-4

Консультировал: Шалимов Александр Сергеевич
Дата отправки: 11.02.2010, 03:52
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Гуревич Александр Львович:

Здравствуйте, Сильвейстров Сергей.

Посмотрите, пожалуйста, следующие материалы по истории и практическим вопросам шифрования:

http://criptograf.narod.ru/kr1a.html
http://book.itep.ru/6/crypt_64.htm
http://www.vse-shifri.ru/history.html
http://borlpasc.narod.ru/inzik/glava6/kratkay.htm


Консультировал: Гуревич Александр Львович
Дата отправки: 11.02.2010, 06:50
Рейтинг ответа:

НЕ одобряю +1 одобряю!


Консультирует Коновалов Антон Сергеевич:

Здравствуйте, Сильвейстров Сергей.

Здесь: http://www.wikiznanie.ru/ru-wz/index.php/%D0%A8%D0%B8%D1%84%D1%80#.D0.98.D1.81.D1.82.D0.BE.D1.80.D0.B8.D1.8F_.D1.88.D0.B8.D1.84.D1.80.D0.BE.D0.B2
Вы можете найти, собственно, историю шифров и прочую информацию, их касающуюся

Консультировал: Коновалов Антон Сергеевич
Дата отправки: 11.02.2010, 07:34
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 116433:

Составьте программу, заменяющую из двух данных чисел большее число модулем суммы, а меньшее — модулем полуразности этих чисел.

Дата отправки: 30.12.2007, 20:47
Вопрос задал: Kevin Garnet
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Н.В.:

Здравствуйте, Kevin Garnet!
Код в приложении.
Удачи!

Приложение:

Консультировал: Н.В.
Дата отправки: 30.12.2007, 22:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное