ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
17.12.2009, 19:06
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714
Репутация:
29
|
|
Всем доброго времени суток. Нет ли у кого реализации шифрования текста по алгоритму AES с ключом 128 бит? Желательно с комментариями  |
|
|
17.12.2009, 19:11
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25.
rus:Составьте программу для вычисления суммы всех трехзначительных чисел, кратных 25.
НА ПАСКАЛЕ,плз.
написали уже раз, но как сказал препод это Дельфи..
помогииите...
|
|
|
|
17.12.2009, 19:59
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от TPAXTOP
Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25.
rus:Составьте программу для вычисления суммы всех трехзначительных чисел, кратных 25.
НА ПАСКАЛЕ,плз.
написали уже раз, но как сказал препод это Дельфи..
помогииите...
Код:
program PoraSamomuUchitsya;
var
i,k:integer;
begin
k:=0;
i:=100;
while i<=1000 do
begin
k:=k+i;
i:=i+25;
end;
writeln (k);
end.
Самый оптимальный алгоритм, я думаю.
Сообщение от TPAXTOP
но ничего, получилось схитрить и по примеру похожей задачи слепил свою, прокатило))
Последний раз редактировалось Thenno; 17.12.2009 в 20:06..
|
|
|
|
17.12.2009, 20:09
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Сообщение от Thenno
Код:
program PoraSamomuUchitsya;
var
i,k:integer;
begin
k:=0;
i:=100;
while i<=1000 do
begin
k:=k+i;
i:=i+25;
end;
writeln (k);
end.
Самый оптимальный алгоритм, я думаю. Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25 
А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598
Вообще не пойму, в чём проблема переделать на паскаль? Делфи это и есть обджек паскаль
Паскаль на компе не стоит, но вот, должно работать:
Код:
program PoraSamomuUchitsya;
var
a:array[1..1000] of integer;
i,s:integer;
begin
for i:=1 to 900 do begin
a[i]:=99+i;
if a[i] mod 25=0 then begin
s:=s+a[i];
end;
end;
writeln (s);
end.
Последний раз редактировалось Vish; 17.12.2009 в 20:17..
|
|
|
|
17.12.2009, 20:14
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Сообщение от Vish
Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25
А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598
Вообще не пойму, в чём проблема переделать на паскаль? Делфи это и есть обджек паскаль для тебя может и не проблема, а у нас было пропущено 10 лекций...тоесть было 6 лекций, и 16 лабораторных, кучу всего не объяснили...
|
|
|
|
17.12.2009, 20:52
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от Vish
Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25
А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598 Я ему что требовалось, то и написал. Только в одном месте немного ошибся, признаю.
Код:
var
i,k:integer;
begin
k:=0;
i:=100;
while i<=999 do // тут 999, а не 1000, как было
begin
k:=k+i;
i:=i+25;
end;
writeln (k);
end.
Просто это несколько другой алгоритм, вот и все. Посмотри повнимательней.
P.S Мне твой способ кажется каким то... извращенским что ли. Можно проще, без ненужного геморроя с массивами.
Код:
var
i:integer;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 25 = 0 then
k:=k+i;
writeln (k);
end.
Последний раз редактировалось Thenno; 17.12.2009 в 20:55..
|
|
|
|
17.12.2009, 20:56
|
|
Познающий
Регистрация: 09.08.2009
Сообщений: 39
Провел на форуме:
298385
Репутация:
75
|
|
Как на инди хттп сервере делфи можно реализовать поддержку пхп??
|
|
|
|
17.12.2009, 21:33
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Код:
var
i:integer;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 25 = 0 then
k:=k+i;
writeln (k);
end.
Можно и так, без массива, в принципе так меньше кода) Одно и тоже, ток без массива
А вот первый код явно не верный, запусти его и тот что ты последний написал, тот что как у меня, но без массива и вот результаты будут 100% разные..
//хотя наверно я ошибаюсь, потому что в уме начал считать и получается верно) Я сразу и не понял, твоего алгоритма
Последний раз редактировалось Vish; 17.12.2009 в 21:36..
|
|
|
|
17.12.2009, 21:44
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от Vish
А вот первый код явно не верный, запусти его и тот что ты последний написал, тот что как у меня, но без массива и вот результаты будут 100% разные..
Странно, у меня выдает одно и тоже
Первый код был точно неверен, я там немного сбился с мысл в одном месте - он одно не трехзначное захватывал.
|
|
|
|
17.12.2009, 21:47
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Сообщение от Thenno
Странно, у меня выдает одно и тоже
Первый код был точно неверен, я там немного сбился с мысл в одном месте - он одно не трехзначное захватывал. поэтому у меня и получились разные результаты
Зато теперь у парня есть несколько вариантов реализации данной ему задачи
Интересно, что ему препод сказал, когда он принёс задачу написанную на делфи 
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
