Розробка та виконання програм на мові Pascal
Работа из раздела: «
Программирование и комп-ры»
Заняття №3.
Розробка та виконання програм на мові Pascal.
Мета: систематизація знань, формування вмінь і навичок, розробки та
виконання на ЕОМ найпростіших програм на мові Pascal.
Теоретичні відомості.
Програма на мові Pascal складається:
розділ оголошень;
розділ текстів процедур і функцій;
розділ основного блоку.
Розділ оголошень
program заголовок програми:
{ $…} глобальні директиви компілятора:
uses підключаємі бібліотеки:
label розділ оголошення глобальних міток:
const розділ оголошення глобальних констант:
type розділ оголошення глобальних типів:
var розділ оголошення глобальних змінних:
Розділ текстів процедур і функцій
procedure (function)
label розділ оголошення локальних міток:
const розділ оголошення локальних констант:
type розділ оголошення локальних типів:
var розділ оголошення локальних змінних:
begin основний блок процедури або функції:
end;
Розділ основного блоку програми.
begin основний блок програми:
end.
Програми діляться на прості(лінійні), розгалужені та циклічні. В
простих програмах відсутні будь-які перевірки умов та використовуються
лінійні оператори. В розгалужених можуть бути оператори умовного та
безумовного переходу.
Умовні:
скорочена форма IF умова THEN опер.
повна форма IF умова THEN опер.1 ELSE опер. 2
Оператор безумовного переходу – GOTO «мітка».
Оператор множинного вибору:
CASE вираз OF
мітка1: опер. 1;
мітка2: опер. 2;
END;
Розрізняють три способи організації циклів:
1) цикл з параметром (FOR .. TO .. DO);
1) цикл з післяумовою(REPEAT UNTIL);
1) цикл з передумовою(WHILE .. DO).
Індивідуальне завдання.
Варіант №3.
Скласти та виконати на ЕОМ програми розв’язування слідуючих задач:
Задача 1.
Обчислити та вивести на очищений екран з К-ї позиції L-го рядка в
форматованому вигляді значення вихідних даних та результатів обчислення
виразу:
Обчислити значення виразу на ЕОМ для значень:
A=-6, b=6.4, c=8.85, k=20, l=10
Задача 2.
Обчислити значення даної функції, використовуючи оператори IF_THEN,
IF_THEN_ELSE (два варіанти програми):
Виконати для: a=-2.3, b=-8, t1=-4.5, t2=1.2*10-3, t3=4.3
Задача 3.
Обчислити та вивести на екран в стовпчик таблицю значень функції:
Для значень Х із проміжку Х=[-3,5] з кроком h=1.2
Скласти програми, використавши всі структури циклів.
Задача 1:
program zanattia3;
uses crt;
const
k=20;
l=10;
a=-6;
b=6.4;
c=8.85;
var
f:real;
begin
clrscr;
f:=(exp(a)+2*ln(b+c))/(arctan(b))+a*b;
gotoxy(k,l);
textcolor(2);
write('Вiдповiдь : ');
textcolor(3);
write(f:7:5);
textcolor(14);
write(' при а=-6, в=6.4, с=8.85');
end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
Вiдповiдь : -34.54943 при а=-6, в=6.4, с=8.85
____________________________________________________________________________
__
Задача 2:
program zanattia3_variant1;
uses crt;
const
a=-2.3;
b=-8;
t1=-4.5;
t2=1.2e-3;
t3=4.3;
var
y,t:real;
function obch(t:real):real;
begin
if t>3 then obch:=exp(t)/ln(t);
if t<-3 then obch:=exp(a)+a*b;
if ((t<=3) and (t>=-3)) then obch:=sin(t)/cos(t)+sqrt(a*b+b);
end;
begin
clrscr;
t:=t1;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
t:=t2;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
t:=t3;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
при t= -4.500 вiдповiдь : 18.500
при t= 0.001 вiдповiдь : 3.226
при t= 4.300 вiдповiдь : 50.527
____________________________________________________________________________
__
program zanattia3_variant2;
uses crt;
const
a=-2.3;
b=-8;
t1=-4.5;
t2=1.2e-3;
t3=4.3;
var
y,t:real;
function obch(t:real):real;
begin
if t>3 then obch:=exp(t)/ln(t) else
if t<-3 then obch:=exp(a)+a*b else obch:=sin(t)/cos(t)+sqrt(a*b+b);
end;
begin
clrscr;
t:=t1;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
t:=t2;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
t:=t3;
y:=obch(t);
writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);
end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
при t= -4.500 вiдповiдь : 18.500
при t= 0.001 вiдповiдь : 3.226
при t= 4.300 вiдповiдь : 50.527
____________________________________________________________________________
__
Задача 3:
program zanattia3_variant1;
uses crt;
var
y:real;
x:real;
h:real;
begin
clrscr;
x:=-3;
h:=1.2;
repeat
y:=2*sqr(x-1)+3;
writeln(' y=',y:7:5,' при x=',x:7:5);
x:=x+h;
until x>5;
end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
y=35.00000 при x=-3.00000
y=18.68000 при x=-1.80000
y=8.12000 при x=-0.60000
y=3.32000 при x=0.60000
y=4.28000 при x=1.80000
y=11.00000 при x=3.00000
y=23.48000 при x=4.20000
____________________________________________________________________________
__
program zanattia3_variant2;
uses crt;
var
y:real;
x:real;
h:real;
begin
clrscr;
x:=-3;
h:=1.2;
while x<5 do begin
y:=2*sqr(x-1)+3;
writeln(' y=',y:7:5,' при x=',x:7:5);
x:=x+h;
end;
end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
y=35.00000 при x=-3.00000
y=18.68000 при x=-1.80000
y=8.12000 при x=-0.60000
y=3.32000 при x=0.60000
y=4.28000 при x=1.80000
y=11.00000 при x=3.00000
y=23.48000 при x=4.20000
Висновок: закріпив основні навички роботи з усіми видами циклів, умов,
рівнянь та математичнимх функцій в Torbo Pascal, виконав всі завдання по
розробці програм з циклами та розгалудженнями, які надає мова Pascal.
-----------------------
[pic]
[pic]
[pic]
