Реферат Курсовая Конспект
Зачет по ТУРБО ПАСКАЛЮ 7.0 - раздел Программирование, Зач Тная Работа По Поэвм Выполнил Введите Сво Имя. Задание. Компания Хочет П...
|
Зач тная работа по ПОЭВМ Выполнил Введите сво имя. Задание. Компания хочет передаватьданные по телефону, но онаобеспокоена возможностьютелефонного перехвата. Все передаваемые данные являются четырехзначными целымичислами. Компания попросила вас написать программу, которая должна шифроватьэти данные так, чтобы они могли передаваться с большой безопасностью.Вашапрограмма должна читать целые четырехзначные числа и шифровать их следующимобразом заменять каждую цифрузначение остатка от деления сумма этой цифры плюс 10. Затем печатать полученноезашифрованное число. Напишите отдельную программу, которая вводила бызашифрованные четырехзначные целые и дещифровала их, получая исходные числа.
Программа шифрования чисел.Uses CRT Var ne string не кодированное число ko string это закодированное число r string строковые i integer числовые per integer чтобы перевести строковые в числовые Begin Clrscr Writeln Введите четырехзначное числокоторое хотити зашифровать Readln ne x copy ne,1,1 val r,i,per i i 7 mod 10 str i,r insert r,ko,3 x copy ne,2,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,4 x copy ne,3,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,1 x copy ne,4,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,2 Write Введенное вами число зашифровано Write ko Readln End. Подготовил RASIK Моя почта rasik nptus.ru или rasik bzz.ru Моя страница www.rasik.by.ru Пишите мне и заходите ко мне на сайт буду всем рад!.
– Конец работы –
Используемые теги: зачет, Турбо, ПАСКАЛЮ0.064
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Зачет по ТУРБО ПАСКАЛЮ 7.0
Если этот материал оказался полезным для Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов