Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ
ЧЕРКАСЬКИЙ ДЕРЖАВНИЙ ТЕХНОЛОГІЧНИЙ УНІВЕРСИТЕТ
КАФЕДРА СИСТЕМНОГО ПРОГРАМУВАННЯ
Звіт
З лабораторної роботи №1
з дисципліни «Програмування»
|
Перевірила: К.т.н, доцент кафедри системного програмування Бабенко В.Г. _________________(оцінка) _________________(підпис) |
Виконав: студент 1 курсу групи КМ-125 Чупрун Едуард Анатолійович ______________________(підпис) |
Черкаси 2012
Зміст
Вступ …………………………………………………………………………...-3-
Висновки ……………………………………………………………………….-13-
Вступ
Тема: інтегроване середовище програмування TURBO PASCAL. Найпростіші програми. Оператори умовного та безумовного переходу.
Мета: навчитися працювати в середовищі Turbo Pascal, основним прийомам роботи з текстовим редактором, методам налагоджування програм отримання навичок зі складання простих програм з використанням умовних операторів; знайомство з задачами, для розв`язання яких потрібні умовні оператори; отримання навичок з використання простих типів даних, операторів введення-ведення. Отримання навичок по складанню найпростіших блок-схем.
Постановка завдання
а) вивчити основні типи даних та допустимі операції зі змінними цих типів;
б) вивчити види умовних операторів, операторів введення-виведення, синтаксичні особливості написання та правил роботи кожного з них;
в) розробити алгоритми розв`язання задач свого варіанту, записавши їх у вигляді блок-схем;
г) створити програми на мові програмування Pascal згідно завдань свого варіанту;
д) програми повинні правильно виконуватися при будь-яких допустимих значеннях початкових даних;
е) правильність роботи всіх гілок програм повинна бути перевірена на тестах (результати виконання).
Варіант 3
Завдання 1: Дано дійсні додатні числа a,b,c,d. З`ясувати, чи можливо прямокутник зі сторонами a,b вмістити усередині прямокутника зі сторонами c,d, щоб кожна зі сторін одного прямокутника була паралельна чи перпендикулярна кожній стороні другого прямокутника.
Завдання 2: Нехай функція y=f(x) задана таблицею
|
X |
X1 |
X2 |
X3 |
|
Y |
Y1 |
Y2 |
Y3 |
Розробити програму для знаходження приблизного значення функції y=f(x) у точці x1xx3 за формулою:
1 Короткі теоретичні відомості
Структура програми мови Паскаль.
Базові типи даних
До стандартів типів даних відносяться: чисельні, логічні, символьні і рядкові. Integer real string, boolean
Над цілочисельними типами можна виконувати такі операції як: додавання, віднімання, множення, а також ділення без остачі.
При розв’язувані багатьох задач на Pascal, а саме при обрахунках і обчисленнях використовуються так звані математичні функції Pascal.
|
Abs(x) модуль числа x |
Cos(x) |
Frac(x) – відкидає цілу частину. |
Ord(x) – порядковий номер в таблиці ASCII |
|
Sqr(x) = x² |
Arctan(x) |
Round(x) - округлення |
Chr(x) – символ таблиці ASCII |
|
Sqrt(x) = |
Exp(x) = e |
Log(x) = |
Succ(x) – повертає значення наступного аргумента за x в таб. ASCII |
|
Sin(x) |
Tranc(x) – відкидає дріб. |
Ln(a) = |
Exp(ln(x)*a)=ex |
Оператори мови Pascal
Оператори описують виконання конкретних дій і утворюють тіло про грами. До операторів також відноситься оператор присвоєння :=. Існують складні оператори, які в свою чергу складаються з простих операторів, обме жених операторними дужками Begin, end.
Оператори введення read(x), readln(x) – введення є безформатним і за лежить від користувача.
Оператор виведення write(x), writeln(x) – виведення може бути форматованим.
Оператор умовного розгалудження if <умова> then <дія 1> else <дія 2>, що означає: якщо умова справджується, то дія1 виконується, якщо ні то виконується дія2.
2 Математична постановка задач
Завдання №1
|
Дано |
Виконуємо |
Результати |
|
а, b, c, d - real |
ab<cd |
ab ∉ cd |
|
ab<dc |
ab ∈ cd |
Завдання №2
|
Дано |
Виконуємо |
Результати |
|
x1 ,x2 ,x3 ,y1 ,y2 ,y3 - real |
Якщо x1=x3, y=y3=3 |
y-real |
|
Якщо x2, y=y2+*(y3-y2) |
||
|
Якщо x2, y=y1+*(y2-y1) |
3 Тестовий приклад
Завдання №1
Завдання №2
|
Дано |
Результати |
|
x1=1, x2=2, x3 =1 y1=1, y2=2, y3=3 |
Якщо x1=x3, y=y3=3 Якщо x2, y=y2+*(y3-y2)=2,5 Якщо x2, y=y1+*(y2-y1)=1,5 |
|
x1=2, x2=1, x3 =3 y1=1, y2=2, y3=3 |
|
|
x1=1, x2=3, x3 =2 y1=1, y2=2, y3=3 |
4 Блок схеми
Блок схема до завдання №1
Ні
Ні
Так
Так
Так
a,b,c,d - real
Кінець
аb ∉ ac
аb ∈ ac
a<d, b<c
a<c, b<d
a>0, b>0, c>0, d>0
Ні
Блок схема до завдання №2
Так
Ні
Так
Кінець
y
y=y2+*(y3-y2)
Y:=y3
X2
X1=x3
X1 ,x2 ,x3 x4,y1,y2 ,y3 ,y4 - real
Ні
Ні
Так
y=y1+*(y2-y1)
X2
5 Лістинг програм
Лістинг 1:
Program Lab1_3;
Uses crt;
var a,b,c,d:real;
BEGIN
clrscr;
write('Enter a= '); read(a);
write('Enter b= '); read(b);
write('Enter c= '); read(c);
write('Enter d= ');read(d);
if (a>0) and (b>0) and (c>0) and (d>0) then
begin
if (a<c) and (b<d) then write('pryamokutnuk ab vhodut v cd')
else if (a<d) and (b<c) then write('pryamokutnuk ab vhodut v cd')
else write('pryamokutnuk ab ne vhodut v cd');
end else write('Danni vvedeno ne virno');
readkey;
end.
Лістинг 2:
Program Lab1_3_2;
Uses crt;
var y,x1,x2,x3,y1,y2,y3:real;
BEGIN
clrscr;
writeln('Enter x1,x2,x3'); read(x1,x2,x3);
writeln('Enter y1,y2,y3');read(y1,y2,y3);
if x1=x3 then y:=y3 else
if (x1>=X2) and (x1<=x3) then
y:=y2+((x1-x2)/(x3-x2))*(y3-y2) else
if (x3>=x1) and (x3<=x2) then
y:=y1+((x3-x1)/(x2-x1))*(y2-y1) else write(' Dani vvedeno ne virno');
write(‘y= ‘,y:8:3); readkey;
end.
6 Результати виконаної роботи
Завдання №1
1) виконання програми при a<c, b>d;
2) виконання програми при a>c, b<d;
3) виконання програми при d>a>c, b<c;
4) виконання програми при d>b>c, a<c.
Завдання № 2
1) виконання програми при x=x3;
2) виконання програми при x2 x1 <x3;
3) виконання програми при x1 x3 <x2;
Висновки
На даній лабораторній роботі я навчився працювати в середовищі Turbo Pascal, оволодів основними прийомамами роботи з текстовим редактором, методами налагоджування програм і отримав навички зі складання простих програм з використанням умовних операторів; познайомився з задачами, для розв`язання яких потрібні умовні оператори; отримав навички з використання простих типів даних, операторів введення-виведення. Отримав навички по складанню найпростіших блок-схем.