Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2013, 22:53   #41
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
uses
  crt;

var
  cs1, cs2, res, change: integer;
  TD: string;

const
  digit: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  { функция перевода Dec числа в любую CC }
function FromDec(n, r: longint): string;
var
  s: String;
begin
  s := '';
  repeat
    s := digit[(n mod r) + 1] + s;
    n := n div r;
  until n = 0;
  FromDec := s;
end;

{ функция перевода любой CC в Dec }
function ToDec(n: string; r: longint): longint;
var
  m, i: longint;
begin
  m := 0;
  for i := 1 to length(n) do
    m := m * r + pos(n[i], digit) - 1;
  ToDec := m;
end;

{ основная программа }
begin
  writeln('Введите из какой CC:');
  repeat
    readln(cs1);
  until (cs1 >= 2) and (cs1 <= 36);
  writeln('Введите число в соответствии с CC:');
  readln(TD);
  writeln('Введите в какую CC:');
  repeat
    readln(cs2);
  until (cs2 >= 2) and (cs2 <= 36);
  writeln('Перевод из ', cs1, ' CC --> ', cs2, ' CC:');
  writeln(FromDec(ToDec(TD, cs1), cs2));
  readln;
end.
Немного шаманства, и все видно.
Это и есть листинг программы.
Убрал удаление ведущих нулей - не вижу в этом смысла.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 19.03.2013 в 23:02.
BDA на форуме Ответить с цитированием
Старый 22.03.2013, 19:42   #42
DaH1eL
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 10
По умолчанию

Как бы по понятнее сказать по моему нужно с описание ф-ций всех типо ctr работа с экраном и т.д. или я не так понял что то?)
DaH1eL вне форума Ответить с цитированием
Старый 22.03.2013, 19:46   #43
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Цитата:
Сообщение от DaH1eL Посмотреть сообщение
Как бы по понятнее сказать по моему нужно с описание ф-ций всех типо ctr работа с экраном и т.д. или я не так понял что то?)
Можно то же самое, только по-русски?
s-andriano вне форума Ответить с цитированием
Старый 22.03.2013, 20:01   #44
DaH1eL
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 10
По умолчанию

Цитата:
Сообщение от s-andriano Посмотреть сообщение
Можно то же самое, только по-русски?
все я понял, в общем типо этого мне надо только на эту прогу, а то б долго объяснял. Ну как всегда все криво вставил, надеюсь так понятнее.
ОПИСАНИЕ ПРОГРАММЫ
1)Общие сведения
Телефонный справочник представляет собой программу которая использует на входе и выходе текстовый файл в котором хранятся данные о фамилии и имени абонента , номере его телефона. Программа позволяет добавлять новые сведения в файл, исправлять ошибочные сведения, выводить на экран весь телефонный справочник или одну запись из справочника. Программа является интерактивной, т.е работа пользователя с терминалом должна быть максимально облегчена.
Программа написана на языке программирования Паскаль и реализована в системе программирования Турбо Паскаль 6.0
2) Описание логической структуры
Программа имеет следующую структуру Главное меню – Заставка и процедуры обработки нажатий клавиш ‘ 1‘-‘6 ‘








В программе используются процедуры:
1) Создание файла справочника sozd1
2) Создание справочника sozd
3) Удаление справочника Delete
4) Просмотр справочника OutputAll
5) Просмотр одной записи OutputRec
6) Корректировка записи Korectir
7) Добавление записи Dobavka
Связующим звеном между процедурами является процедура Zastavka, выводящая на экран интерактивную Заставку - связь осуществляется с помощью ожидания ввода с клавиатуры номера выполняемого действия и обработки его на предмет выполнения той или иной процедуры.
3) Используемые технические средства
Программа была написана в системе программирования Турбо Паскаль на машине со следующими характеристиками:
K-6 450, 8 MB ОЗУ, 2 Гб HDD
4) Вызов и загрузка
Для запуска программы необходимо запустить файл tel.exe на экране появляется главное меню программы. Или находясь в системе программирования Паскаль запустить на выполнение файл tel.pas

Алгоритм программы:


























Эксплуатационная документация

Описание применения
Программа применима для организации небольших по составу телефонных справочников. Подойдет для применения для собственных нужд программиста и его близких. Для универсальности ей не хватает некоторых возможностей не включенных в техническое задание. К примеру поиска по ключу т. е. возможности поиска по номеру телефона или Фио, программа не поддерживает возможность ввода адресов проживания, не поддерживает ведение нескольких номеров телефонов, прямой набор и телефонное соединение из программы.
Руководство пользователя
1. Для работы программы необходим компьютер с характеристиками не ниже 386, 1Мб памяти, операционная система MS Dos 6.22
2. Программа состоит из следующих файлов:
Tel.exe
Tel.obj
3. Устанавливать программу не требуется Просто скопируйте файлы программы в любой каталог на жестком диске и запустите программу файлом tel.exe
DaH1eL вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Програмка на языке Pascal Tatyana Kur Помощь студентам 1 07.11.2011 22:36
Си програмка Nebojitel Общие вопросы C/C++ 8 15.07.2011 20:54
Задачи на Pascal ABC (обьясните хотябы суть) Joker_SoloD Помощь студентам 1 08.12.2010 15:15
Програмка Spiderik Паскаль, Turbo Pascal, PascalABC.NET 1 17.04.2010 09:12