+Chr(13)+’x1=’+S1
+Chr(13)+’x2=’+S2;
End;
End;
Keltirilgan dastur matnida Turbo Pascalning oddiy Read va Write (Kiritish va
chiqarish) operatorlari ishlatilmagan. O’zgaruvchilar qiymatini kiritish taxrirlash
maydonidan Text xossasiga murojaat qilish bilan amalga oshiriladi. Kiritilgan
o’zgaruvchilar qiymati matn bo’lgani uchun ular Val funksiyasi yordamida
raqamga o’tkaziladi. Kvadrat tenglamaning ildizlari x1 va x2 lar qiymatlari Str
funksiyasi orqali mos ravishda s1 va s2 o’zgaruvchilarga matnli qilib o’zatiladi.
Natijani ekranga matn ko’rinishida berish uchun Label6. Caption metkasiga qiymat
qilib yuboriladi.
Xuddi shunday “yangi” va “chiqish” tugmachalari uchun ham qayta ishlovchi
proseduralarini tashkil qilish kerak. Ular matnlari quyidagi ko’rinishga ega.
Procedure Tform1.Button2Click(Sender:Tobject);
Do'stlaringiz bilan baham: |