Програма переводу з однієї системи числення у іншу

ЗМІСТ

Вступ

Розділ 1. Системи числення

Розділ 2. Методи та засоби розв'язку задачі

Розділ 3. Практична реалізація розв'язку задачі

Висновки

Список використаної літератури.

Додаток А. Текст програми

Додаток В. Тест програми

Вступ

Головним напрямком науково-технічного прогресу в наш час є розвиток методів і засобів обчислювальної техніки. Використання методів математичного моделювання і розв’язування інженерних задач на ЕОМ позволяє значно підвищити ефективність процесів проектування і управління.

Застосування персональних комп’ютерів, розширення можливостей міні- та мікро-ЕОМ, створення потужних ЕОМ п’ятого покоління, розвиток математичного моделювання привели до розширення як практичної так і теоретичної бази обчислювальної математики. Розвивається новий науковий напрям - інформатика, який об’єднує широке коло питань, пов’язаних з розробкою і впровадженням методів і засобів математичного моделювання, обробки інформації і обчислень на ЕОМ.

Високі вимоги до ефективності обчислювальних алгоритмів визначаються також тим, що які б величезні можливості не мали сучасні ЕОМ, їх вже не вистачає для проведення крупномасштабних прикладних досліджень і керування складними динамічними процесами. Бурхливий розвиток науки і техніки приводить до швидкого росту складності задач, які стоять перед прикладною математикою.

Розвиток обчислювальної математики тісно пов’язаний з розвитком програмування, яке йде шляхом спрощення способів спілкування людини з комп’ютером, наближенням мов програмування до природних мов. На сучасному етапі розвитку інформатики поряд з розвитком і створенням нових мов високого рівня інтенсивно розвиваються проблемно-орієнтовані мови програмування, засоби візуального програмування, створюються пакети прикладних програм. Здійснюється поступовий перехід від евристичного програмування до програмування, підпорядкованого чітким законам і алгоритмам синтезу. Виникають і інтенсивно розвиваються структурне програмування і спеціалізовані мови для розробки структурованих програм.

Завдання на курсовий проект передбачає розробку програмного забезпечення для розв’язування задачі обчислювального характеру, тому для створення програми було вибрано середовище Turbo Pascal 7.0.

Розробник системи програмування Turbo Pascal - фірма Borland International виникла в 1984 році і за порівняно короткий час неодноразово дивувала користувачів персональних ЕОМ своїми Turbo системами. Було випущено на ринок програмних продуктів декілька версій Turbo Pascal: 3.0, 4.0, 5.0, 5.5, 6.0, 7.0, Pascal for Windows, Borland Pascal.

Головні особливості мови Turbo Pascal:

- широкий спектр даних;

- можливість обробки стрічкових та структурних даних;

- достатній набір операторів керування розгалуженнями та циклами;

- відносно слабкі можливості вводу-виводу даних порівняно з іншими мовами високого рівня (Turbo C та PL/1);

- добре розвинутий апарат підпрограм;

- зручні конструкції роботи з файлами;

- великі можливості керування всіма ресурсами комп’ютера;

- різноманітні варіанти стикування з мовою Асемблера;

- використання інтегрованого середовища, яке значно підвищує продуктивність праці програміста;

- підтримка ідей об’єктно-орієнтованого програмування (ООП).

Курсовий проект складається зі вступу, двох розділів, висновків, списку використаної літератури, графічної частини та додатків.

Список використаної літератури

1. Н.А. Криницкий‚ Г.А. Миронов‚ Г.Д. Фролов. Программирование и алгоритмические языки. М., Наука. 1978. 512 с.

2. В.Я. Сердюченко. Розробка алгоритмів та прграмування мовою Turbo Pascal. - Х.: «Паритет», 1995. - 349 с.

3. Д. Ван Тассел. Стиль, разработка, эффективность, отладка и испытание программ. М.: «Мир», 1985. - 332 с.

Додаток А. Текст програми

program Kurs2;

uses Crt,dos,calc;

label m1,m2,m3,m4;

const poz=2;

poz1=3;

type fak=(ten_to_,_to_ten,fild1,help,exit);

fak1=(ten_to_two,ten_to_eight,ten_to_sixteen);

fak2=(two_to_ten,eight_to_ten,sixteen_to_ten);

const rab:array[fak] of string [16] =

(' ПЕРЕВЎД З 10 ',' ПЕРЕВЎД В 10 ',' ',' ДОПОМОГА ',' ВИХЎД ');

rab1:array[fak1] of string [17] =

(' В ДВЎЙКОВУ ',' В ВЎСЎМКОВУ ',' В ШЎСНАДЦЯТКОВУ ');

rab2:array[fak2] of string [18] =

(' З ДВЎЙКОВО° ',' З ВЎСЎМКОВО° ',' З ШЎСНАДЦЯТКОВО° ');

var dov:fak;

dov1:fak1;

dov2:fak2;

sim:char;

x1,x2,y1,y2:integer;

procedure ramka1;

var i:integer;

begin

TextColor(0);

gotoxy(x1,y1);write('-');

for i:=1 to x2-x1-1 do write('-');write('¬');

for i:=1 to y2-y1-1 do begin

gotoxy(x2,y1+i);write('¦');

gotoxy(x1,y1+i);write('¦');end;

gotoxy(x1,y2); write('L');

for i:=1 to x2-x1-1 do write('-');write('-');

end;

procedure Golovnemenu;

var s:fak;nom:integer;

begin

textbackground(white);textcolor(0); x1:=1;y1:=0;

for s:=ten_to_ to exit do

if s=dov then begin

textbackground(green);

gotoxy(x1,y1+1); write(rab[s]);

textcolor(2); textbackground(white);