void fastcall TForm1::Button1Click(TObject *Sender)
{
float a,b,s,p;
a=StrToFloat(Edit1->Text); b=StrT oFloat(Edit2->Text); s=(a+b)/2; p=sqrt(a*b);
Edit3->T ext=FloatToStr(s); Edit4->T ext=FloatToStr(p);
}
Turbo Pascal dasturlash tili: XVII asrda yashagan va dunyoda birinchi xisoblash mashinasini yaratgan frantsuz olimi Blez Paskal sharafiga shunday deb nomlangan PASKAL tili Shvetsariyaning Syurix shaxridagi oliy texnika maktabining professori Nikols Virt tomonidan 70-yillarda yaratilgan bulib 1979 yilda standart Paskal deb tasdiklangan. Uzining soddaligi, mantikiyligi va samaraligi tufayli bu til butun dunyoga tez tarkaldi. Xozirgi paytda barcha xisoblash mashinalari, xususan, mikro EXM lar xam shu tilda ishlash imkoniyatiga ega. Dasturlar matnining tugriligini osonlik bilan tekshirish mumkinligini, ularning ma'nosi yakkol kuzga tashlanishi va oddiyligi bilan ajralib turadi. Paskal tili ancha murakkab va kup vakt oladigan xisob ishlari bajarishga muljallangan tartiblashtirilgan dasturlar tuzishga imkon beradi. Yana bir afzalligi shundan iboratki, foydalanuvchi xatolikka yul kuymasligi uchun yoki xato yozib kuygan bulsa, tez tuzatib olishi uchun dasturda ishlatiladigan uzgaruvchilar oldindan kaysi turga (toifa) mansubligi dasturning barcha elementlari xakida ma'lumot tavsiflash bulimida mujassamlashgan buladi. Operator soni esa minimal darajada kamaytirilgandir. EXMda xisoblash uchun programma asosan ikki kismdan iborat buladi:
berilganlarni tavsiflash (bular ustida amallar bajariladi); amallarni tavsiflash (bu amallar berilganlar ustida bajarilishi kerak). Amallar operatorlar yordamida beriladi, berilganlar esa ta'riflar va tavsiflar yordamida beriladi.
Standart funktsiyalar
Standart funktsiyalar juda kup xollarda masala va misollarni echish uchun dastur tuzayotganda tez-tez uchrab turadi. Masalan: trigonometrik, logarifmik, eksponenta, ildiz chikarish va Xokazolar. Xar bir EXM uchun bunday funktsiyalarni xisoblash dasturi tuzilgan va EXM xotirasiga kiritilib, ular standart funktsiyalar deyiladi. Bu funktsiyalarga murojaat kilinganda avval funktsiyalarni nomlari keyin dumalok kavs ichiga ularning argumentlari yoziladi. Kup ishlatiladigan standart funktsiyalarning bazilarini keltiramiz:
(x( - ABS(x) ex-EXP(x)
TRUNC(x)- sonni butun kismga ajratish
x2 - SQR (x) ln x-LN(x)
PRED(x) -oldingi elementni topish
SUCC(x)- keyingi elementini topish
x
100-EXP(100*LN(X))
sin x-SIN(x) V x -SQRT(x)
cos x-COS(x) arctg x -ARCTAN(x)