I Семестр
Лабораторна робота №1. Середовище програміста: інтерфейс та елементи управління процесом створення програм.
Метою лабораторної роботи є отримання базових практичних навичок використання середи програмування Turbo Pascal необхідних для подальшого виконування циклу лабораторних робіт.
Викладачеві необхідно розповісти студентам про мову програмування Pascal. Обґрунтувати вибір мови програмування Pascal та середовища програмування Turbo Pascal як необхідних та максимально ефективних засобів для досягнення мети дисципліни.
В ході цієї лабораторної роботи студенту пропонується виконати деякі дії, які повинні ознайомити його з використанням середи програмування Turbo Pascal для підготовки, компіляції, виконання та налагодження програм.
Хід лабораторної роботи:
-
Запустіть середу програмування Turbo Pascal .
-
Відкрийте в вікні редактора наступну програму на мові Pascal, яка призначена для обчислення коренів квадратного рівняння.
Program first;
Uses crt;
Var a,b,c,d,w,z,xl,x2 :Real;
otvet:Char;
BEGIN
Clrscr;
WriteLn ('Вы работаете с программой вычисления корней');
WriteLn ('квадратного уравнения общего вида ахх + bх + с = О');
Repeat
Write('Введитe значение a'); ReadLn (а);
If a=0 Then Writeln ('Уравнение не квадратное') Else
Begin
Write ('Введите значение b='); ReadLn (b);
Write ('Введите значение с ='); ReadLn (с);
D: = b*b - 4*a*c;
Z:= -b/(2*a);
W:=sqrt(abs(d))/(2*a);
WriteLn ('При а=',а:5:2,' b=',b:5:2, ' c=',c:5:2);
If D<0 then
Begin
WriteLn ('Xl= ', Z:6:3,' + j*',w:5:3);
WriteLn ('X2= ', Z:6:3,' - j*',w:5:3);
End
Else
Begin
xl: = z + w;
x2: = z - w;
WriteLn ('xl=',xl:5:2,' x2=',x2:5:2);
End
End;
WriteLn ('Желаете продолжить работу? (y/n)');
Readln (otvet);
Until otvet<>'у';
WriteLn ('Спасибо! До свидания!');
Readln;
END.
-
Використовуючи команду Save пункту меню File, запишіть набрану Вами програму на диск під ім’ям lab1. Відкомпілюйте програму <Alt> +<F9>. Виправте допущені помилки та запустіть програму на виконання.
-
Протестуйте програму із трьома різними рівняннями.
-
По закінченню роботи вийдіть із середи Turbo Pascal натиснувши <Alt>+<X>.
Виконання цієї роботи не вимагає перевірки. У випадку недобросовісного відношення та поганого засвоєння студентом матеріалу цієї роботи, це неминуче проявиться при виконанні наступних лабораторних робіт.
Лабораторна робота №2. Структура програми. Синтаксис мови Паскаль: символи, вирази та операції.
Метою лабораторної роботи є ознайомлення студентів із структурою програми взагалі та структурою програми яка складається мовою Pascal. Засвоєння синтаксису мови програмування, робота із деякими виразами та основними арифметичними операціями. Пріоритети виконання арифметичних операцій, дужки.
Лабораторна робота передбачає написання елементарної першої програми яка виводе на екран повідомлення “Hello World!” та виконує операції сумування, віднімання, ділення, множення.
Текст програми №2:
Program lab2; {необов’язковий заголовок із назвою програми}
Begin {початок програми}
Writeln (‘Hello World!’); {функція виводу повідомлення}
Writeln (‘2+2=’, 2+2); {елементарні арифметичні операції}
Writeln (‘2*3=’, 2*3);
Writeln (‘(10-1)/3=’, (10-1)/3);
End. {кінець програми}
Лабораторна робота №3. Основні типи даних, операції з ними.
Метою лабораторної роботи є вивчення та засвоєння поняття змінної, основних типів даних, які використовуються в мові програмування Pascal та елементарних операцій з ними.
Необхідно розглянути такі типи даних як Integer, Real, String. Під час лабораторної роботи повинна бути розібрана програма №3, на прикладі якої необхідно продемонструвати необхідний матеріал.
Текст програми №3:
Program lab3;
var Celsius, Fahrenheit, Kelvin: real; {змінні}
Begin
Writeln(‘Соответствие между температурными шкалами’);
Writeln(‘Цельсия, Фаренгейта и Кельвина’);
Writeln;
Writeln(‘Введите значение температуры по Цельсию:’);
Readln(Celsius); {Ввід температури за Цельсієм}
Writeln;
Fahrenheit:=1.8 * Celsius + 32;
Kelvin:=Celsius + 273.15;
Writeln(‘C=’, Celsius);
Writeln(‘F=’, Fahrenheit);
Writeln(‘K=’, Kelvin);
Readln;
End.
Завдання для самостійного виконання:
-
Знайти площу ромба за формулою S=(AC * BD)/2, де AC і BD - діагоналі ромба та вводяться з клавіатури.
-
Знайти площу кола за формулою S=2 * Pi * R^2, де R – радіус кола значення якого вводиться з клавіатури.
-
Знайти об’єм конуса за формулою V=1/3 * Pi * R^2 * H, де R – радіус основи, H – висота, вводяться з клавіатури.
-
Знайти площу трапеції за формулою S=((A + B) * H)/2, де A і B основи трапеції, H – висота, значення вводяться з клавіатури.
-
Знайти площу трикутника за формулою S=(a*b*c)/4*R, де a, b, c – сторони трикутника, R – радіус описаного кола.
Лабораторна робота №4. Оператори мови Паскаль.
Метою лабораторної роботи є оволодіння та закріплення навичок роботи з основними операторами. Також на даному етапі буде розглянуто основні арифметичні функції Abs, Sin, Cos, Sqr, Sqrt, Ln, операції DIV, MOD, функції вводу-виводу. Під час лабораторної роботи повинна бути розглянута програма №4.
Деякі корисні математичні функції яких немає у стандартних бібліотеках Turbo Pascal:
:= exp(a*ln(X)); {Формула
піднесення до ступеню }
tg(x) = sin(x)/cos(x); {Обчислення тангенсу}
ctg(x) = cos(x)/sin(x); {Обчислення котангенсу}
Ln(a)/Ln(b); {Обчислення
логарифму з довільною основою}
Текст програми №4:
Програма обчислює значення
Program lab4;
var T: real;
a,b,c,x: integer;
Begin
Writeln(‘Введите a:’);
Readln(a);
Writeln(‘Введите b:’);
Readln(b);
Writeln(‘Введите c:’);
Readln(c);
Writeln(‘Введите x:’);
Readln(x);
T:=1/(2*a*b)*ln(b+c*cos(a*x));
Writeln(‘T=’,T);
End.
Завдання для самостійного виконання:
Обчислити та вивести значення N. Значення a, b, c, d, x, y вводяться з клавіатури:
Лабораторна робота №5. Оператори переходу та алгоритмічні конструкції вибору альтернатив.
Метою лабораторної роботи є отримання практичних навичок у роботі з умовними операторами та розгалуженими алгоритмами в мові програмування Pascal; конструкції if … then, case … of, goto … . Також необхідно розглянути операції відношення > < = <> >= <= .
Текст програми №5.1
Програма виконує обчислення
Program lab5_1;
var a, b, x: real;
Begin
Writeln(‘Введите a:’);
Readln(a);
Writeln(‘Введите b:’);
Readln(b);
If a>b then x:=a*b+1;
If a=b then x:=25;
If a<b then x:=(a-5)/b;
Writeln(‘X=’,x);
Readln;
End.
Текст програми №5.2
Демонстраційна програма яка використовую оператор вибору case of
Program lab5_2;
var ch: string;
Begin
Writeln(‘Введите символ:’);
Readln(ch);
Case ch of
‘A’..’Z’,’a’..’z’: writeln(‘Это буква’);
‘0’..’9’ : writeln(‘Это цифра’);
‘+’,’-’,’*’,’/’ : writeln(‘Это оператор’);
End;
Readln;
End.
Завдання для самостійного виконання:
Лабораторна робота №6. Оператори та алгоритмічні конструкції повторення.
Метою лабораторної роботи є отримання практичних навичок в роботі з операторами циклу мови програмування Pascal. Під лабораторної роботи буде корисно розглянути код програми №6 з детальним поясненням викладача.
Самостійні завдання необхідно скласти із використанням циклів типу for, while, repeat … until.
Текст програми №6:
Program lab6;
var i,n: integer;
x: real;
Begin
{цикл типу for}
Writeln(‘Демонстрация работы цикла for’);
for i:=2 to 10 do WriteLn(i,’*’,i,’=’,i*i);
Writeln;
for i:=10 downto 1 do WriteLn(’i=’,i);
Writeln;
{цикл типу while}
Writeln(‘Переход к демонстрации работы цикла while’);
Readln;
n:=0;
While n<>5 do
Begin
Writeln(‘Введите n’);
Readln(n);
End;
{цикл типу repeat … until}
Writeln(‘Переход к демонстрации работы цикла repeat … until’);
Readln;
repeat
writeln(‘Введите положительное число’);
readln(x);
until x>0;
writeln(‘Работа программы завершена’);
readln;
End.
Завдання для самостійного виконання:
Лабораторна робота №7. Стандартні процедури та функції.
Метою лабораторної роботи є ознайомлення із деякими стандартними процедурами та функціями мови програмування Pascal. Арифметичні функції inc, dec, int, frac, round, random; а також функції для роботи із символами та строками chr, ord, upcase, length, copy, delete, insert, pos; процедура clrscr.
В ході лабораторної роботи буде корисним розглянути код програми №7.
Текст програми №7:
Program lab7;
uses crt; {Підключаємо модуль crt}
var r: real;
n: integer;
st: string;
Begin
Clrscr; {Вимагає підключення модулю crt}
Writeln(‘Введите число’);
Readln(r);
If frac(r)=0 then writeln(‘Введено целое число’) else
writeln (‘Введено дробное число’);
Readln;
{Генерування випадкового числа}
Randomize;
Writeln(‘Введите верхнюю границу для генерирования числа’);
Readln(n);
Writeln(random(n)); {Генерує ціле число від 0 до n-1}
Readln;
{Вивід таблиці символів}
For n:=0 to 255 do Write(chr(n));
Readln;
{Вивід кодів символів в слові}
st:=’slovo’;
For n:=1 to length(st) do writeln(ord(st[n]));
Readln;
End.