Вход

Зачет по ТУРБО ПАСКАЛЮ 7.0

Реферат по программированию
Дата добавления: 14 июля 2002
Язык реферата: Русский
Word, rtf, 72 кб
Реферат можно скачать бесплатно
Скачать
Данная работа не подходит - план Б:
Создаете заказ
Выбираете исполнителя
Готовый результат
Исполнители предлагают свои условия
Автор работает
Заказать
Не подходит данная работа?
Вы можете заказать написание любой учебной работы на любую тему.
Заказать новую работу




Зачётная работа по ПОЭВМ

Выполнил:Введите своё имя.




Задание.

Компания хочет передавать данные по телефону, но она

обеспокоена возможностью телефонного перехвата. Все передаваемые данные являются четырехзначными целыми числами. Компания попросила вас написать программу, которая должна шифровать эти данные так, чтобы они могли передаваться с большой безопасностью. Ваша программа должна читать целые четырехзначные числа и шифровать их следующим образом: заменять каждую цифру значение остатка от деления: (сумма этой цифры плюс 7) / 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

Пишите мне и заходите ко мне на сайт буду всем рад!



© Рефератбанк, 2002 - 2017