НЕКОТОРЫЕ КОНСТРУКЦИИ ЯЗЫКА OBJECT РASCAL

Ветвление (фрагменты программ).

1. if x>7 then y:= x*x else y:= sin(x);

if x<5 then z:= exp(x) else z:= sqrt(x);

2. if a<7 then

begin b:=a-2; c:=1+2*a end

Else

begin b:=2+5*a; c:=12-4*a end;

3. if x<-1 then y:= ln(abs(x))

Else

if (x>=-1) and (x<1) then y:= sin(x)

Else

y:= cos(x) ;

4. if x>12 then y:= 2*x ; z:=10;

if x<5 then z:=10+x/2;

Команда выбора Case (фрагмент программы).

1. {к - вводить с клавиатуры}

Case k of

1: cena:=22;

2..4: cena:=25;

5,6: cena:=30

else cena:=35;

Циклы (фрагменты программ).

Команда цикла c параметром (for).

1. {Пусть S:=0}

for i:=4 to 6 do

Begin

s:=s+i; z:=2*i;

end;

2. {Пусть S:=0}

for i:=6 downto 4 do

Begin

s:=s+i; z:=2*i;

end;

3. {Пусть summa:=0; proizved:=1; fact:=1}

for i:=1 to 25 do

Begin

fact:= fact*i; {i!=1*2*3*…*25}

summa:= summa+ 5*sqr(i)/ fact;

proizved:= proizved*i*i;

end;

y:= summa+ proizved;

Команда цикла с предусловием (while).

1. while x<=8 do

Begin

s:=s+x; x:=x+1.5;

end;

2. i:=20;

while x<=30 do

Begin

Edit.Text:=IntToStr(i)+’; в квадрате=’+ IntToStr(i*i)+’;

в кубе=’+ IntToStr(i*i*i); {вывод результатов расчета в delphi}

i:=i+1;

end;

3. xk:=3.1; x:=0; h:=0.1;

while x<=xk+h/2 do

Begin

y:=sin(x);

writeln(x:3:1, y:6:2);

x:=x+h;

end;

Команда цикла с послеусловием (repeat).

Repeat

y:=y+x; z:=2*x;

writeln( ‘x=’x:3:1,’ y= ‘, y:6:2,’ z= ‘, z:2:2);

x:=x-2

until x<=1;

2. max:=sin(x);

Repeat

y:=sin(x);

writeln(x:7:2,’ ‘, y:6:2);

{определяем максимум функции}

if y>max then max:=y;

x:=x+h

until x>=pi+h/2;

Приложение 3

ПРАКТИЧЕСКИЕ РАБОТЫ

ПРАКТИЧЕСКАЯ РАБОТА № 1. АНКЕТА СОТРУДНИКА