Еlse begin

Date: 2014-02-27; view: 597.

Еnd

S2

еnd;

Блокқа енгізілген оператор тек біреу болса, операторлық жақшаларға алу міндетті емес.

If (егер) командасының орналасуы стандартты Паскальдағы сияқты: егер шарт орындалса, онда thenкілттік сөзінен соң жазылған блоk , шарт орындалмаса else кілттік сөзінен соң жазылған блоk орындалады.

1-мысал ax²+bx+c=0 квадрат теңдеуін шешу керек.

1. Жаңа проект ашу;
2. Баған бойынша формаға Label1,…, Label4 компонентерін орнату;
3. Олардың оң жағына баған бойынша Edit1,..,Edit3 компонентерін және формаларының төменгі қатарына Button1 компонентерін орнату (2.2-суретті қараңыз) Label4 өрісіне квадрат теңдеудің түбірлерін шығаруды, Edit1 , Edit2, Edit3, өрісіне a, b, c міндерін енгізуді жоспарлау;
4. Обьектілер қасиеттеріне мәндер меншіктеу:

2. 2-сурет Теңдеуді шешу үшін дайындалған Форма

1. Button1 түймесін екі рет шертіп, оның onClick оқиғасын өңдеуіш процедура құру:

Procedure Tform1. Button1 Click (Sender:TОbject);

Var a,b,c,d,x1,x2 : real;

begin

a:=StrToFloat(Edit1.Text);

b:= StrToFloat(Edit2.Text);

c:= StrToFloat(Edit3.Text);

d:= sqr(b)-4*a*c; //Дискриминант

if d<0 then begin

{Label4 өрісін қызыл түске бояу}

Label4.Color:=clRed;

Label4.Caption:=’дискриминант <0’+#13+

+’теңдеудін нақты түбірлері жоқ’;

end

else begin

x1:=(-b+sqrt(d))/(2+a);

x2:=(-b-sqrt(d))/(2+a);

Label4.Color:=clRed;

Label4.Caption:=’x1=’+FloatToStrF(x1,ffFixed,7,4)+

#13+’x2=’+FloatToStrF(x2,ffFixed,7,4);

end;

end;

6. Проектіні сақтап, іске қосу командасын беру (2.2-суретте бейнеленген форма көрінеді);

7. Мысалы, Edit1 өрісіне 1, Edit2 өрісіне 2, Edit3 өрісіне –3 енгізіп, Button1 түймесін шерту. Label4 өрісінде квадрат теңдеудің түбірлері көрінеді:

x1= 3

x2=1

Тапсырма: Соңғы көрінген формада Edit өрістеріне 1,-4, 6 мәндерін енгізіп, Button1 түймесін шертіңіз. Label4 өрісінде қандай мәлімет көрінеді?