Главная Случайная страница



Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать неотразимый комплимент Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника







Еlse begin





S2

еnd;

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

Мысал:

Delphi программалау тілінде тармақталған құрылымды программа жазу арқылы Y(x) функциясының мәнін табу керек:

 

 

егер x>2

Y(x) = егер x<2

егер x=2

Y(x) функциясының мәнін анықтау үшін:

1. Жаңа жоба ашу;

2. Формаға қажетті компоненттерді орнатып, қасиеттеріне мәндер меншіктеу:

 

Компонент Компонент қасиеті Қасиет мәні
Form1 Font Caption Name Times New Roman,15 У функциясын есептеу Func2
  Left
  Top
  Width
  Height
Label1 Caption x =
  Font Түсі - қызыл
Label2 Caption L =
  Font Түсі – күлгін
  Left
  Top
  Width
  Height
Edit1 Text -(бос ету)
Button1 Caption Іске қосу немесе Есептеу

 

3. Формада Button1 батырмасын екі рет шертіп, оның onClick оқиғасының өңдеуіш процедурасын құру

4. Құрылған процедураға қарастырып отырған мысалымыздың программасын төмендегідей етіп жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

Begin

x:=StrToFloat(Edit1.Text);

if x>2then y:=sin(x)-1/2*sqrt(sqr(x)+3);

Label2.Caption:='Y='+FloatToStr(Y);

if x<2 then y:=x*sin(x)-1/2*sqrt(sqr(x)+3) else begin y:=sqrt(sqr(x)+3);



Label2.Caption:='Y='+FloatToStr(Y);

end;

end;

End.

5. Жобаны сақтап, іске қосу командасын беру.

6. Программаны компиляциялау командасын беру (F9) немесе Run;

Программа компиляцияланып шыққан соң, жүйе нүктесіз форманы экранға шығарады;

7. Курсорды Edit1 өрісіне орналастырып оған х –тің нақты кез келген мәнін енгізу;

8. Форманың “Іске қосу” батырмасын шерту. Label2 өрісіне функция нәтижесі жазылып қойылады (15.7-сурет).

 

15.7-сурет. Нәтиже шығарылған Форма терезесі

 








Date: 2015-06-11; view: 889; Нарушение авторских прав



mydocx.ru - 2015-2021 year. (0.018 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию