Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практична робота №7
Створення та реалізація програм
із використанням функцій та процедур.
Мета: Навчитися створювати програми, що містять функції та процедури на мові Pascal та користува ти ся основними елементами інтерфейсу середовища програмування для редагу ван ня і виконання програм у Turbo Pascal.
Прилади, обладнання та інструменти:
Для виконання практичної роботи використовується ПК з наступним програмним забезпеченням: операційна система Windows XP; середовище Turbo Pascal.
Хід роботи:
1. Занотовую номер свого варіанту для звіту: 5.
2. Вибираю згідно номеру свого варіанту дані для завдання та переписую у звіт формулювання цього завдання:
Скласти наступні програми: обчислити заданий вираз підпрограми – функції та підпрограми – процедури. Необхідні вхідні дані задати самостійно.
У програмі передбачити виведення початкових даних та значень виразу.
|
№ |
вираз |
|
5 |
3. Складаю та занотовую для звіту текст першої програми на мові Pascal для виконання завдання:
program prfnc;
var x,y,z:real;
function f1(a,b:real):real;
begin f1:=sqrt(abs(3+a*b)); end;
function f2(a,b:real):real;
begin f2:=exp(5*ln(a))+ln(b); end;
begin
write('vvedit x:' :15); readln(x);
write('vvedit y:' : 15); readln(y);
z:=f1(x,y)/(5-y)-9*f2(x,y)+(f2(x,y)+2)/sin(f1(a,b));
writeln; writeln('x=' :10,x:12:3, 'y=' :20,y:12:3);
writeln('z=' : 15,z: 12:5);
readln; end.
4. Складаю та занотовую для звіту текст другої програми на мові Pascal для виконання завдання:
program prfnc;
var x,y,z,z1,z2:real;
procedure f1(a,b:real; var r1:real);
begin
r1:= sqrt(abs(3+a*b));
end;
procedure f2(a,b:real; var r2:real);
begin
r2: = exp(5*ln(a))+ln(b);
end;
begin
write('vvedit x:' :15); readln(x);
write('vvedit y:' :15); readln(y);
f1(x,y,z1);
f2(x,y,z2);
z:=z1/(5-y)-9*z2+(z2+2)/sin(z1);
writeln; writeln;
writeln('x=' :10,x:12:3, 'y=' :20,y:12:3);
writeln('z=' :15,z:12:5);
readln;
end.
5. Запускаю середовище програмування Turbo Pascal.
Двічі клацаю лівою клавішею мишки по піктограмі (ярлику) Turbo Pascal на робочому столі або виконую команду: Пуск - Програми — Turbo Pascal.
6. Виконую налаштування на робочий каталог - роблю поточним каталог групи
Команда головного меню: File - Change dir... та у діалоговому вікні послідовно вказую шлях до каталогу групи.
7. Створюю новий файл у середовищі програмування Turbo Pascal. Команда головного меню: File — New.
8. Вводжу текст першої створеної програми.
9. Даю назву створеному файлу програми – PR 071 та зберігаю його у папці групи на робочому диску D:\oksim02\< proniv >\PR071.PAS
Команда головного меню: File - Save або функціональна клавіша F2.
10. Виконую компіляцію створеної програми.
Команда головного меню: Compile - Compile або комбінація клавіш: Alt+F9. При цьому виправляю всі синтаксичні помилки. Компіляція завершується успішно, якщо з 'являється повідомлення „Compile successful: Press any key" („Компіляція успішна: натисніть будь-яку клавішу");
Запускаю програму на виконання у середовищі Turbo Pascal та переглядаю одержані результати.
Команда головного меню: Run - Run або комбінація клавіш: Ctrl+F9. Команда головного меню: Debug - User Screen або комбінація клавіш: Alt+F5 або у вікні Output командою Debug - Output.
11.Переглядаю та занотовую для звіту результати виконання програми для двох різних варіантів початкових даних:
X= 1.000 X= 3.230
Y= 2.000 Y= 3.560
Z= -500.36629 Z= -3747.13859
12.Вводжу текст другої створеної програми.
13. Даю назву створеному файлу програми – PR 072 та зберігаю його у папці групи на робочому диску D:\oksim02\<proniv>\PR072.PAS.
14. Виконую компіляцію створеної програми:
Команда головного меню: Compile - Compile або комбінація клавіш: Alt+F9. При цьому виправляю всі синтаксичні помилки. Компіляція завершується успішно, якщо з 'являється повідомлення „Compile successful: Press any key" („Компіляція успішна: натисніть будь-яку клавішу");
Запускаю програму на виконання у середовищі Turbo Pascal та переглядаю одержані результати.
Команда головного меню: Run - Run або комбінація клавіш: Ctrl+F9. Команда головного меню: Debug - User Screen або комбінація клавіш: Alt+F5 або у вікні Output командою Debug - Output.
15. Переглядаю та занотовую для звіту результати виконання програми для двох різних варіантів початкових даних:
X= 1.000 X= 3.230
Y= 2.000 Y= 3.560
Z= -500.36629 Z= -3747.13859
16. Виходжу із середовища програмування Turbo Pascal.
Команда головного меню: File — Exit або комбінація клавіш : Alt+X.
Висновки:
Я навчився створювати програми, що містять функції та процедури на мові Pascal та користува ти ся основними елементами інтерфейсу середовища програмування для редагу ван ня і виконання програм у Turbo Pascal
|
Вик. Пронів Ю.І. Пер. Кулик І.Я. |