Лабораторна робота №3
Мп Turbo Pascal. Знайомство з середовищем. Створення програми за зразком
Ознайомистися з середовищем Turbo Pascal 7.0.
Завдання для лабораторної роботи
Ввести програми. Запустити програми на виконання. Виправити помилки, якщо вони будуть допущені під час введення програм. Проаналізувати повідомлення про помилки. Проаналізувати результати роботи програм.
Програма №1.
Program My_First_Program;
const Text = 'Я програмую мовою Турбо Паскаль';
begin
WriteLn(Text);
end
Програма №2.
Program Input_0utput; {програма вводить два цілих числа і виводить результат ділення першого числа на друге}
var n1,n2 : Integer; {n1 і n2 — цілі числа, що вводяться}
х : Real;{x — результат}
BEGIN
Write( 'n1 = ');{програма запрошує ввести n1}
ReadLn (n1) ;{вводимо n1}
Write ( 'n2 = ');{ програма запрошує ввести n2}
ReadLn (n2);{вводимо n2}
x := n1/n2;{виконується ділення n1 на n2}
WriteLn('n1/n2 =',х);{виводиться результат}
END.
Програма №3.
Program Code_pf_Char;
{Програма зчитує символ з клавіатури і виводить на екран цей символ та код, що відповідає даному символу}
var ch: Char; {в змінну ch зчитується символ}
begin
Write('Введіть будь-який символ: '); {Програма запрошує ввести будь-який символ з клавіатури}
ReadLn(ch); {в змінну ch зчитується символ, який користувач ввів з клавіатури}
WriteLn(ch, ' = ',ord(ch)); { на екран виводиться код символа }
END.
Програма №4 (знаходження коренів квадратного рівняння, дивись алгоритм стор.7)
program KVUR;
var a, b, c, x1, x2, x, d:real; y:string;
begin
writeln(‘Введіть значення a, b, c’);
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
then
begin
y:=’є два дійсні корені’;
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln(x1,x2,y)
end
else if d<0
then
begin
y:=’нема дійсних коренів’;
writeln(y)
end
else
begin
y:=’є один дійсний корінь’;
x:=-b/(2*a);
writeln(x,y)
end
end.
Примітка:
Зверніть увагу на структурованість текстів програм.
№3
Вивчити теоретичний матеріал.
Класифікація структур даних
Д
ані,
що використовуються в програмуванні,
можна розділити на дві великі групи:
Дані статичної структури — це такі дані, взаєморозміщення та взаємозв'язки елементів яких завжди залишаються постійними.
Дані динамічної структури — це дані, внутрішня будова яких формується за якимось законом, але кількість елементів, їх взаєморозміщення та взаємозв'язки можуть динамічно змінюватися під час виконання програми відповідно до закону формування.
Дані статичної структури
Дані статичної структури можуть бути простими і складеними, що формуються з простих структур за якимось законом.
Простим даним у мовах програмування відповідають стандартні типи даних, до яких, як правило, відносять арифметичні, символьний та булівський (логічний) типи. Крім того, Turbo Pascal дозволяє програмісту описувати власні прості типи шляхом перерахування всіх припустимих для них значень.
Дані
складеної структури є однорідними,
тобто такими, в яких усі елементи мають
однаковий тип, і неоднорідними
(комбінованими), які об'єднують в єдине
ціле різнотипові елементи. До даних
однорідної структури належать масиви,
рядки і множини, а до даних неоднорідної
структури — прості записи, варіантні
записи, об'єднання та об'єкти.
Дані динамічної структури
До даних динамічної структури відносять файли, незв'язані та зв'язані динамічні дані.
Файли в даній класифікації [3] віднесені до динамічних структур даних тому, що хоча видалення і вставка елементів в середину файлів не допускається, але довжина файла в процесі роботи програми може змінюватися — збільшуватися, або зменшуватися. А це вже динамічна властивість файла як структури даних.
