Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
6pegeHok

Массивы и Шифр

11.12.2009, 09:12. Показов 902. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток, Товарищи программисты... Помогите пожалуйста решить задачки На Паскале:
1.Дана матрица размера M*N - поменять местами строки, содержащие минимальный и максимальный элементы.
2.Дано зашифрованное предложение на русском языке. Известен способ шифрования (замена каждой буквы на следующую, стоящую за ней, в алфавите, при сохранении регистра букв). Расшифровать предложение.
Изучаю Паскаль пол года, что-то понимаю, что-то не очень...

3. Построить Кривую Леви... (построить то я ее построил, а вот как перевернуть не понимаю...)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Levy;
 
uses CRT, Graph;
 
const
p = 12;
 
var
gd, gm: Integer;
i, j: Integer;
x, y, l: Real;
a: Real;
n, m, k: Integer;
 
begin
gd := Detect;
InitGraph(gd, gm, 'с:\bp\bgi');
x := 230;
y := 190;
l := 4;
MoveTo(Round(x), Round(y));
for i:=0 to Round(exp(p*ln(2))) -1 do
begin
a := 0;
n := i;
m := 0;
k := 0;
repeat
m := n mod 2;
n := n div 2;
case m of
0: a := a + pi/4;
1: a := a-pi/4
end;
inc(k);
until k>=p;
x := x + l*cos(a);
y := y + l*sin(a);
LineTo(Round(x), Round(y));
end;
ReadKey;
CloseGraph;
end.
Буду очень признателен.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.12.2009, 09:12
Ответы с готовыми решениями:

Составить программу шифрования и расшифровки в Delphi по соответствующему заданию: шифр Атбаш + шифр Цезеря
Составить программу шифрования и расшифровки в Delphi по соответствующему заданию: шифр Атбаш + шифр Цезеря (одновременно использовать два...

Расшифровать числовой шифр (предположительно шифр простой замены)
Доброго времени суток! Не могу расшифровать такое вот послание: 3632623163626461393766653039373630393861303036663338353761626662 ...

Шифр Полибия. Программа выводит шифр в разной последовательности.
Реализую шифр полибия для русского алфавита. Возникла проблема при выводе шифра. Например при вводе исходного сообщения "ВОВА"...

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
11.12.2009, 09:37
Цитата Сообщение от 6pegeHok Посмотреть сообщение
построить то я ее построил
Что-то сильно сомневаюсь. Если бы сам построил, то 5 цифр поменять уж точно бы смог.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
x := 230;
y := 290;
l := 4;
MoveTo(Round(x), Round(y));
for i:=0 to Round(exp(p*ln(2))) -1 do
begin
a := 0;
n := i;
m := 0;
k := 0;
repeat
m := n mod 2;
n := n div 2;
case m of
0: a := a - pi/4;
1: a := a+pi/4
end;
inc(k);
until k>=p;
x := x + l*cos(a);
y := y + l*sin(a);
LineTo(Round(x), Round(y));
end;
1
6pegeHok
13.12.2009, 19:54
Спасиб, да мне знакомый помогал. Потому и решили задачу, а сам я затупил =)
Говорит и те две легкие, а я тупица) решить не могу)) вот когда покажут как надо, разбираюсь)
и дальше задачи легче решать). а так не могу дотумкать
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.12.2009, 19:54
Помогаю со студенческими работами здесь

Моноалфавитный шифр (шифр Плейфейера)
Доброго времени суток, нужна Ваша помощь! Используя ключевое слово и шифр Плейфейера, закодировать фразу «КОД ПЛЕЙФЕЙЕРА ОСНОВАН НА...

Шифр Цезаря и шифр Виженера
1. Используя шифр Цезаря расшифруйте слово ЛГПЗРГ. Шифр Цезаря для русского алфавита со сдвигом на три позиции вправо 2. Используя шифр...

Шифр Виженера, шифр Скитала
Я много прочитал информации и захотел реализовать эти шифры на Buider C++, а вот как это сделать. Кому интересно, напишите мне примеры этих...

Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены
Напишите пожалуйста 2 программы в VB шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены;) ОЧЕНЬ НАДО!!!;((((:(

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi=...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru