М іністерство освіти І науки,

МОЛОДІ ТА СПОРТУ України

Індустріальний технікум ДонДТУ

Звіт

з навчальної практики з дисципліни

Основи програмування та алгоритмічні мови

Нпопам 501.822.12.00

Розробив Є.О. Сікорський

студент групи РП-2009-1/9 2011.06.24

Керівник О.Ю. Романова

2011

Зміст

Вступ 3

1 Робота в текстовому режимі 4

2 Оператор розгалуження і вибору. Цикл з параметром. 9

3 Оператори циклу 14

4 Одновимірні і двовимірні масиви 17

5 Обробка рядкових змінних 21

6 Робота з файлами записів 23

7 Створити малюнок за допомогою графіки 27

Висновок 29

Література 30

Вступ

Turbo, а пізніше Borland Pascal — це одна з найвдаліших і найпоширеніших реалізацій мови, створена компанією Borland. Turbo Pascal — могутнє розширення американського стандарту (ANSI Pascal), яке враховує архітектурні особливості ОС MS DOS та MS Windows і постачається зі значними за обсягом і різноманітності пакетами стандартних процедур. Такі принципові нововведення, як апарат модулів і об’єктно-орієнтовані засоби полегшують конструювання великих програмних систем на основі технології модульного програмування. 

Компілятор вхідної мови системи Turbo Pascal працює за однопрохідною схемою, реалізує функції редагування зв'язків, формуючи на виході готовий до виконання об'єктний код. Компілятор може здійснювати широкий набір локальних оптимізацій (згортання констант, виключення невикористовуваного коду і зайвих даних, оптимізація операцій і т.д.), що сприяє високій ефективності кінцевих програм.  Система Turbo Pascal є інтегрованим середовищем (IDE), яке налічує ряд компонентів, що в сукупності підтримують усі види робіт зі створення програм. Система містить універсальний текстовий редактор, компілятор вхідної мови, редактор зв'язків і вбудований символьний зневаджувач. Багатовіконний інтерфейс із розвинутою системою меню і досконалою довідковою системою забезпечує високу продуктивність праці програміста.  Borland Pascal 7.0 дозволяв компілювати програми для DOS, Windows і захищеного режиму MS DOS, також містив ряд додаткових утиліт.

1. Робота в текстовому режимі

Варіант № 12

1. Для прямокутного трикутника з катетами а та в обчислити тригонометричні функції кутів трикутника.

2. Обчислити функцію: Y = 2ax + sin b, якщо

program nomer1;

uses CRT;

label m1;

var Y,x,a,b:real;

sinA,cosA,tgA,ctgA,sinC,cosC,tgC,ctgC,StA,StB,StC:real;

k:integer;

begin

m1: CLRSCR;

gotoxy(30,2);

textcolor(3);

Writeln('Практическое задание №1');

gotoxy(30,3);

writeln('Работа в текстовом режиме.');

GOTOXY(30,5);

Writeln('Сделайте выбор:');

GOTOXY(25,6);

Writeln('1 - Задача №1');

GOTOXY(25,7);

writeln('2 - Задача №2');

GOTOXY(25,8);

writeln('3 - Выход');

read(k);

case k of

1:

begin

GOTOXY(30,9);

textcolor(1);

Writeln('Задача №1 - Функция');

writeln('Введите х: ');

readln(x);

Writeln('Рассчитаем функцию по частям: ');

a:=3*x*cos(x);

b:=2*sin(x)/cos(x)+4*sin(x);

textcolor(5);

writeln('­­­­­­­­­­­­­­­­­­­­********************');

writeln('**­­ a ** b ­­ **');

writeln('********************­­­­­­­­­­­­­­­­­­­­');

writeln('**­­ ',a:4:3,' **­­',b:4:3,'**­­');

writeln('********************­­­­­­­­­­­­­­­­­­­­');

textcolor(1);

Writeln('Считаем функцию полностью: ');

y:=2*a*x+sin(b);

textcolor(5);

writeln('********************­­­­­­­­­­­­­­­­­­­­');

writeln('**­­ y **­­');

writeln('­­­­­­­­­­­­­­­­­­­­********************');

writeln('**­­ ',y:3:3,' **');

writeln('­­­­­­­­­­­­­­­­­­­­********************');

readln;

textcolor(2);

Writeln('Выполнил студент:');

writeln('Сикорский Эдуард Александрович');

writeln('Группа РП-09-1/9 (28)');

readln;

goto m1;

end;

2:

begin

textcolor(1);

Writeln('Задача №2 - Углы треугольника по двум катетам');

writeln('Введите длины катетов: ');

readln(StA,StC);

writeln('Найдём гипотенузу StB: ');

StB:=sqrt(StA*StA+StC*StC);

Textcolor(5);

writeln('­­­­­­­­­­­­­­­­*****************');

writeln('**­­ StB ­­**');

writeln('­­­­­­­­­­­­­­­­*****************');

writeln('**­­ ',StB:3:1,' **­­');

writeln('­­­­­­­­­­­­­­­­*****************');

textcolor(1);

Writeln('Расчитаем тригонометрические функции для углов A,C: ');

sinA:=StA/StB;

cosA:=StC/StB;

tgA:=StA/StC;

ctgA:=StC/StA;

sinC:=StC/StB;

cosC:=StA/StB;

tgC:=StC/StA;

ctgC:=StA/StC;

textcolor(5);

Writeln('***********************************­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­******');

writeln('­­­** Функции ­ **­­ A ­­** C **­');

writeln('­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­*****************************************');

writeln('**­­­ Sin ­­­ **',sinA:3:2,' ** ­­­ ',sinC:3:2,' ** ­­­');

writeln('**­­­ Cos ­­­ **',cosA:3:2,' ** ­­­ ',cosC:3:2,' ** ­­­');

writeln('**­­­ Tg ­­­ **',tgA:3:2,' **­­­ ',tgC:3:2,' ­­­**');

writeln('­­­** Ctg ­­­ **',ctgA:3:2,' ** ­­­ ',ctgC:3:2,' **­­­');

Writeln('******************************************­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­');

readln;

textcolor(2);

Writeln('Выполнил студент:');

writeln('Сикорский Эдуард Александрович');

writeln('Группа РП-09-1/9 (28)');

readln;

goto m1;

end;

3:

else goto m1;

end;

end.